Base64加密和解密

最新推荐文章于 2024-03-25 20:00:00 发布
最新推荐文章于 2024-03-25 20:00:00 发布
阅读量922 收藏
点赞数 1
分类专栏： delphi---系列问题 文章标签： 加密 string integer table function div

{******************************************************************************}
{** A Base64 encoding unit ****************************************************}
{******************************************************************************}
{** Written by David Barton (davebarton@bigfoot.com) **************************}
{** http://www.scramdisk.clara.net/ *******************************************}
{******************************************************************************}
unit UntBase64;

interface
uses
  SysUtils;

{ Base64 encode and decode a string }
function B64Encode(const s: string): string;
function B64Decode(const s: string): string;

{******************************************************************************}
{******************************************************************************}
implementation

const
  B64Table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

function B64Encode;
var
  i: integer;
  InBuf: array[0..2] of byte;
  OutBuf: array[0..3] of Char;
begin
  SetLength(result, ((Length(s) + 2) div 3) * 4);
  for i := 1 to ((Length(s) + 2) div 3) do
  begin
    if Length(s) < (i * 3) then
      Move(s[(i - 1) * 3 + 1], InBuf, Length(s) - (i - 1) * 3)
    else
      Move(s[(i - 1) * 3 + 1], InBuf, 3);
    OutBuf[0] := B64Table[((InBuf[0] and $FC) shr 2) + 1];
    OutBuf[1] := B64Table[(((InBuf[0] and $03) shl 4) or ((InBuf[1] and $F0) shr 4)) + 1];
    OutBuf[2] := B64Table[(((InBuf[1] and $0F) shl 2) or ((InBuf[2] and $C0) shr 6)) + 1];
    OutBuf[3] := B64Table[(InBuf[2] and $3F) + 1];
    Move(OutBuf, result[(i - 1) * 4 + 1], 4);
  end;
  if (Length(s) mod 3) = 1 then
  begin
    result[Length(result) - 1] := '=';
    result[Length(result)] := '=';
  end
  else if (Length(s) mod 3) = 2 then
    result[Length(result)] := '=';
end;

function B64Decode;
var
  i: integer;
  InBuf: array[0..3] of byte;
  OutBuf: array[0..2] of byte;
begin
  if (Length(s) mod 4) <> 0 then
    raise Exception.Create('Base64: Incorrect string format');
  SetLength(result, ((Length(s) div 4) - 1) * 3);
  for i := 1 to ((Length(s) div 4) - 1) do
  begin
    Move(s[(i - 1) * 4 + 1], InBuf, 4);
    if (InBuf[0] > 64) and (InBuf[0] < 91) then
      Dec(InBuf[0], 65)
    else if (InBuf[0] > 96) and (InBuf[0] < 123) then
      Dec(InBuf[0], 71)
    else if (InBuf[0] > 47) and (InBuf[0] < 58) then
      Inc(InBuf[0], 4)
    else if InBuf[0] = 43 then
      InBuf[0] := 62
    else
      InBuf[0] := 63;
    if (InBuf[1] > 64) and (InBuf[1] < 91) then
      Dec(InBuf[1], 65)
    else if (InBuf[1] > 96) and (InBuf[1] < 123) then
      Dec(InBuf[1], 71)
    else if (InBuf[1] > 47) and (InBuf[1] < 58) then
      Inc(InBuf[1], 4)
    else if InBuf[1] = 43 then
      InBuf[1] := 62
    else
      InBuf[1] := 63;
    if (InBuf[2] > 64) and (InBuf[2] < 91) then
      Dec(InBuf[2], 65)
    else if (InBuf[2] > 96) and (InBuf[2] < 123) then
      Dec(InBuf[2], 71)
    else if (InBuf[2] > 47) and (InBuf[2] < 58) then
      Inc(InBuf[2], 4)
    else if InBuf[2] = 43 then
      InBuf[2] := 62
    else
      InBuf[2] := 63;
    if (InBuf[3] > 64) and (InBuf[3] < 91) then
      Dec(InBuf[3], 65)
    else if (InBuf[3] > 96) and (InBuf[3] < 123) then
      Dec(InBuf[3], 71)
    else if (InBuf[3] > 47) and (InBuf[3] < 58) then
      Inc(InBuf[3], 4)
    else if InBuf[3] = 43 then
      InBuf[3] := 62
    else
      InBuf[3] := 63;
    OutBuf[0] := (InBuf[0] shl 2) or ((InBuf[1] shr 4) and $03);
    OutBuf[1] := (InBuf[1] shl 4) or ((InBuf[2] shr 2) and $0F);
    OutBuf[2] := (InBuf[2] shl 6) or (InBuf[3] and $3F);
    Move(OutBuf, result[(i - 1) * 3 + 1], 3);
  end;
  if Length(s) <> 0 then
  begin
    Move(s[Length(s) - 3], InBuf, 4);
    if InBuf[2] = 61 then
    begin
      if (InBuf[0] > 64) and (InBuf[0] < 91) then
        Dec(InBuf[0], 65)
      else if (InBuf[0] > 96) and (InBuf[0] < 123) then
        Dec(InBuf[0], 71)
      else if (InBuf[0] > 47) and (InBuf[0] < 58) then
        Inc(InBuf[0], 4)
      else if InBuf[0] = 43 then
        InBuf[0] := 62
      else
        InBuf[0] := 63;
      if (InBuf[1] > 64) and (InBuf[1] < 91) then
        Dec(InBuf[1], 65)
      else if (InBuf[1] > 96) and (InBuf[1] < 123) then
        Dec(InBuf[1], 71)
      else if (InBuf[1] > 47) and (InBuf[1] < 58) then
        Inc(InBuf[1], 4)
      else if InBuf[1] = 43 then
        InBuf[1] := 62
      else
        InBuf[1] := 63;
      OutBuf[0] := (InBuf[0] shl 2) or ((InBuf[1] shr 4) and $03);
      result := result + Char(OutBuf[0]);
    end
    else if InBuf[3] = 61 then
    begin
      if (InBuf[0] > 64) and (InBuf[0] < 91) then
        Dec(InBuf[0], 65)
      else if (InBuf[0] > 96) and (InBuf[0] < 123) then
        Dec(InBuf[0], 71)
      else if (InBuf[0] > 47) and (InBuf[0] < 58) then
        Inc(InBuf[0], 4)
      else if InBuf[0] = 43 then
        InBuf[0] := 62
      else
        InBuf[0] := 63;
      if (InBuf[1] > 64) and (InBuf[1] < 91) then
        Dec(InBuf[1], 65)
      else if (InBuf[1] > 96) and (InBuf[1] < 123) then
        Dec(InBuf[1], 71)
      else if (InBuf[1] > 47) and (InBuf[1] < 58) then
        Inc(InBuf[1], 4)
      else if InBuf[1] = 43 then
        InBuf[1] := 62
      else
        InBuf[1] := 63;
      if (InBuf[2] > 64) and (InBuf[2] < 91) then
        Dec(InBuf[2], 65)
      else if (InBuf[2] > 96) and (InBuf[2] < 123) then
        Dec(InBuf[2], 71)
      else if (InBuf[2] > 47) and (InBuf[2] < 58) then
        Inc(InBuf[2], 4)
      else if InBuf[2] = 43 then
        InBuf[2] := 62
      else
        InBuf[2] := 63;
      OutBuf[0] := (InBuf[0] shl 2) or ((InBuf[1] shr 4) and $03);
      OutBuf[1] := (InBuf[1] shl 4) or ((InBuf[2] shr 2) and $0F);
      result := result + Char(OutBuf[0]) + Char(OutBuf[1]);
    end
    else
    begin
      if (InBuf[0] > 64) and (InBuf[0] < 91) then
        Dec(InBuf[0], 65)
      else if (InBuf[0] > 96) and (InBuf[0] < 123) then
        Dec(InBuf[0], 71)
      else if (InBuf[0] > 47) and (InBuf[0] < 58) then
        Inc(InBuf[0], 4)
      else if InBuf[0] = 43 then
        InBuf[0] := 62
      else
        InBuf[0] := 63;
      if (InBuf[1] > 64) and (InBuf[1] < 91) then
        Dec(InBuf[1], 65)
      else if (InBuf[1] > 96) and (InBuf[1] < 123) then
        Dec(InBuf[1], 71)
      else if (InBuf[1] > 47) and (InBuf[1] < 58) then
        Inc(InBuf[1], 4)
      else if InBuf[1] = 43 then
        InBuf[1] := 62
      else
        InBuf[1] := 63;
      if (InBuf[2] > 64) and (InBuf[2] < 91) then
        Dec(InBuf[2], 65)
      else if (InBuf[2] > 96) and (InBuf[2] < 123) then
        Dec(InBuf[2], 71)
      else if (InBuf[2] > 47) and (InBuf[2] < 58) then
        Inc(InBuf[2], 4)
      else if InBuf[2] = 43 then
        InBuf[2] := 62
      else
        InBuf[2] := 63;
      if (InBuf[3] > 64) and (InBuf[3] < 91) then
        Dec(InBuf[3], 65)
      else if (InBuf[3] > 96) and (InBuf[3] < 123) then
        Dec(InBuf[3], 71)
      else if (InBuf[3] > 47) and (InBuf[3] < 58) then
        Inc(InBuf[3], 4)
      else if InBuf[3] = 43 then
        InBuf[3] := 62
      else
        InBuf[3] := 63;
      OutBuf[0] := (InBuf[0] shl 2) or ((InBuf[1] shr 4) and $03);
      OutBuf[1] := (InBuf[1] shl 4) or ((InBuf[2] shr 2) and $0F);
      OutBuf[2] := (InBuf[2] shl 6) or (InBuf[3] and $3F);
      result := result + Char(OutBuf[0]) + Char(OutBuf[1]) + Char(OutBuf[2]);
    end;
  end;
end;

end.

wangxuelid
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Base64加密解密
Jin的随手笔记
03-29 3万+
解决：btoa 不支持 Unicode 字符编码的问题编码时，先用 encodeURIComponent 对字符串进行编码，再进行 btoa 进行 Base64 编码解码时，先用 atob 对 Base64 编码的串进行解码，再用 decodeURIComponent 对字符串进行解码。注意：不适用于带中文解密，即window.btoa 与 window.atob 不支持中文，且 IE9 以下不支持atob、btoa。2、window.atob() 函数用来解码被 base64 编码过的数据。
Java实现加密（五）Base64编码
ACGkaka的博客
06-21 7575
Java实现加密（五）Base64编码
Base64加密
qq_56005036的博客
05-28 1万+
前言 对网络通信有所了解的同学，应该都听过Base64编码。例如，我们一段数据通过MD5 、SHA等手段加密后，经过Base64编码为字符串就可以很方便地在网路上传输。那么Base64也算是一种加密算法吗？ 在这篇文章里，我将带你理解Base64的基本原理 & 实现，希望能帮上忙 系列文章 《密码学 | Base64是加密算法吗？》 《密码学 | 什么是散列算法？》 延伸文章 《计算机组成原理 | Unicode 和 UTF-8 是什么关系？》 目录 1. 基本原理 Base64.
BASE64加密解密（两种方式）
最新发布
分享式获得也是一种学习的态度
03-25 5708
严格来说BASE64的加密解密是指编码格式，而非加密算法我们暂且将它归为加解密方式的一种对于Base64的使用有两种方式：第一种直接使用sun.misc包下的BASE64工具第二种是使用org.springframework包下的Base64Utils工具相较于第一种，第二种更为方便。对于Base64的使用，仅限于简单加密需求的编码解码对于安全性较高的需求尽量使用更为安全的加密解密方式。
base64加密解密
Rain022111的博客
03-21 7677
想要使用Base64加密，原文长度必须是3的倍数。如果原文不是3的倍数就填充其他符号来凑足成3的倍数;主要是对字符串的处理，所以对字符串相关的方法和属性一定要熟练；
PB BASE64加密和解密DEMO
12-10
PB BASE64加密和解密DEMO是一种在PowerBuilder（PB）环境中实现的基于BASE64编码技术的加密和解密方法。BASE64是一种常见的数据编码方式，它将二进制数据转换为可打印的ASCII字符，常用于在网络上传输包含二进制的...
python3.x实现base64加密和解密
01-01
用python3.x实现base64加密和解密，供大家参考，具体内容如下 加密 base64_encrypt.py #!/usr/bin/python3 #encoding:utf-8 import base64 var = 1 while var==1: str_encrypt=input(输入要加密的字符串:\n); ...
C#编写的Base64加密和解密类
12-31
这个C#类是一个基于Base64的加密和解密类，用户可以可以使用默认的秘钥进行加密、解密，也可以自己设定秘钥进行加密和解密，非常实用 代码一：非常精简的代码 /// /// Base64加密，解密方法 /// /// 输入字符串 /...
Java 实现 Base64 加密。
lyfGeek的博客
05-26 4122
Java 实现 Base64 加密。
Base64加密与解密使用(+拓展：盐值法)
热门推荐
qianfeifeio的专栏
09-07 1万+
1、什么是Base64 Base64是一种直接利用64位可打印字符来表示二进制数据的算法，是一种比较常见的加密算法。JDK1.8版本提供了java.util.Base64的工具类，使用Base64提供的2个内部类进行加解密操作。 数据加密：java.util.Base64.Encoder， 对象获取方法：public static Base64.Encoder getEncoder() 数据加密处理：public byte[] encoder (byte[] src)。 ......
Java加密算法：MD5加密，对称加密，非对称加密
qi341500的博客
02-24 2899
Java：密码算法 1、base64加密方式 2、jdk原生api实现MD5 3、使用codec依赖实现MD5加密 4、SHA加密 5、MAC算法加密 6、对称加密 7、非对称加密
前端数据加密的方法
w418856的博客
05-31 1万+
在这个页面中，当用户点击“base64加密”按钮时，会调用一个JavaScript函数fn1()，该函数使用了window.btoa()方法进行Base64加密操作，并使用window.atob()方法进行解密操作。在这个页面中，当用户点击“编码解码加密”按钮时，会调用一个JavaScript函数fn4()，该函数使用了escape()和unescape()方法进行编码和解码操作。window.atob()方法接受一个Base64编码的字符串作为参数，返回该编码的原始字符串。
Base64加密方式详解
xiaobeichen1的博客
07-01 5691
Base64加密方式的原理 Base64编码是一种基于用64个可打印字符来表示二进制数据的表示方法。它通常用作存储、传输一些二进制数据编码的方式 编码原理 用64个可打印字符表示二进制所有数据方法，由于2的6次方等于64，所以用每6个位元（二进制位）为一个Base64单元，对某个可打印字符。三个字节有24个位元，可以刚好对应于4个Base64单元,即三个字节需要用4个Base64的可打印字符来表示。在Base64中的可打印字符包括字母A-Z,a-z,数字0-9，这样共有62个字符，此外两个可打印符号在
欢迎使用CSDN-markdown编辑器
前端漫漫兮
02-26 521
(function(){ function Base64() { // private property _keyStr = “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=”; // public method for encoding this.
Base64加密与解密的三种方法
BobZhangfighting的博客
08-31 1万+
前言： 加密与解密一直是程序猿经常需要面对的东东，下面了解一下常见的base64的三种加密与解密的方法。 public static final String str=&quot;zhangtao&quot;; 1. 基于JDK public static void JdkBase64(){ try { //加密 BASE64Encoder...
Base64加密和解密使用
周不老的博客
08-09 1278
Base64加密 这个加密是固定加密，有些不安全，拿到加密串可以解密了 直接上代码： package com.zjy.knife4j.controller; import java.io.UnsupportedEncodingException; import java.util.Base64; public class Test2 { public static void main(String[] args) throws UnsupportedEncodingException {
对QString进行base64 加密和解密
07-15
您可以使用以下方法对QString进行Base64加密和解密： 加密： ```cpp QString QStringToBase64(const QString& str) { QByteArray byteArray = str.toUtf8(); return byteArray.toBase64(); } ``` 解密： ```cpp ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值