[ delphi ] AES-256-ECB 加密、解密算法控件说明


源代码下载

前言

在微信支付、公众号等开发过程中,需要用到AES加密方法,例如微信支付中的[退款结果通知],就需要使用AES-256-ECB解密(PKCS7Padding)。但是在Delphi原生没有提供这个算法,所以就在网上找,看是否有这个代码,还好网上很多,一大堆。但基本上都是使用的ElAES.pas代码,本身ElAES.pas代码直接使用就已经够了,但是大家都包了一层,无非就是更方便使用。

为了方便使用,主要是为了搞清楚AES加密,我做成了控件,把相关的属性独立列出来,清晰管理,另外提供了一些公共函数,便于开发过程中使用。

1. 控件属性

在这里插入图片描述

1.1 SourceEncodingType:源字符串的编码方式

TEncodingType = (etANSI,etUnicode,etUTF8,etBase64);

这个属性是一个重要的属性,因为开起来一样的文字,其内部编码可以不一样,这就是说加入对字符串: 你好 进行加密,那么可能出现的结果不一样,为什么,因为我们看到的 你好 编码可能是不同的。

序号编码方式字节流
1ANSIC4 E3 BA C3
2Unicode60 4F 7D 59
3UTF-8E4 BD A0 E5 A5 BD

如果不能清晰理解这个,就可能导致加密解密的时候出现不一致的错误而无解决办法!

1.2 AlgoMode: 算法模式

TAlgoMode = (amECB, amCBC);

1.3 KeyBit: 密钥长度

TKeyBit = (kb128, kb192, kb256);

1.4 KeyStr: 当前密钥

字符串行形式的密钥,正常来说,应该是字节流作为密钥,但是一般为了可见,所以也设置成字符串属性。切记!只作为ANSI编码使用!

1.5 PaddingType:补齐方式

TPaddingType= (PKCS5Padding, PKCS7Padding, ZeroPadding);

关于补齐方式,网上有很多说法,纷乱无比。但归纳起来,大致意思是说:

  1. PKCS5Padding:最后一包数据按照差几补几的方式,包大小是8个字节;

  2. PKCS7Padding:也有最后一包数据按照差几补几的方式说法,也有说是差几个就补几个0。说法不一!!

  3. ZeroPadding:字面理解就是不需要对齐补足。

由于核心算法ElAES.pas并不是我们写的,也不想详细研究具体的算法,发现ElAES.pas并没有提供8个字节一包的算法,似乎都是16个字节一包。我们想做8个字节都不行。网上在线检查AES的似乎也没有区分这两个。根据这个情况,我在控件中的具体做法是:

  1. PKCS5Padding:16个字节一包,最后一包差几就不足几个几,不差就补16个16。

  2. PKCS7Padding:16个字节一包,最后一包差几就不足几个0,不差就补16个0。

  3. ZeroPadding:不需要补足,直接加密使用。

注意:控件实际测试结果是PKCS7Padding和ZeroPadding是一样的!之所以这样做是为了方便各种情况,如果还不能满足需求,有源代码,可以直接修改!

1.6 InitVector:初始向量

字符串形式的,仅作为ANSI编码使用。

1.7 SourceStr:源字符串

无论是加密,还是解密,源字符串都需要在这个位置。

2. 公共方法

2.1 Bytes2HexStr:字节流转16进制字符串

function Bytes2HexStr(Bytes: TBytes; Delia: string = ' '; BCount: Byte = 16) : string;

2.2 HexStr2Bytes:16进制字符串转字节流

function HexStr2Bytes(const HexStr : string) : TBytes;

2.3 EnCodeBase64:字节流转换成Base64字符串

function EnCodeBase64(const B : TBytes) : string

2.4 DeCodeBase64:Base64字符串还原成字节流

function DeCodeBase64(const S : string) : TBytes;

2.5 EncryptStringToBytes:AES加密,返回字节流

function EncryptStringToBytes  : TBytes;

2.6 EncryptStringToBase64:AES加密,返回Base64编码

function EncryptStringToBase64 : string;

2.7 EncryptStreamToBytes:加密数据流到字节流

function EncryptStreamToBytes(const S_Stream : TStream) : TBytes;   //返回字节

2.8 DecryptStringToBytes:解密字符串到字节流

function DecryptStringToBytes  : TBytes;  //这个是最基本

2.9 DecryptStringToString:解密字符串到字符串

function DecryptStringToString(EncodingType : TEncodingType = etANSI) : string;

其中EncodingType表示解密后的字节流按照那种编码方式显示.

2.10 DecryptStreamToBytes:解密数据流到字节流

function DecryptStreamToBytes(const S_Stream : TStream) : TBytes;

3. 需要注意

加密,解密都需要使用相关的参数,切记加密完成后,如果是返回的Base64编码,那么解密的时候就需要把SourceEncodingType更改成Base64。

真正的加密、解密都是对数据流来说的,但是我们为了能够看清楚,所以就直接对字符串进行加密、解密,这就必然导致编码方式统一的问题,如果不注意这个肯定会出问题。

另外网上有些在线监测AES加密、解密的,其实也没有区分编码方式,不用迷信,相信自己吧。

4. 其它技巧

Delphi开发,我们经常会需要设置属性,例如控件等。在本Demo中,专门演示了TValueListEditor的用法,以后使用可以作为参考!

在这里插入图片描述

加密完成后,如果需要解密,请把SourceEncodingType更改为Base64!!!

5. 控件-源代码

源代码下载!

  • 0
    点赞
  • 1
    评论
  • 2
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

打赏
文章很值,打赏犒劳作者一下
相关推荐
©️2020 CSDN 皮肤主题: 1024 设计师:白松林 返回首页

打赏

sensor_WU

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者