delphi java aes_Delphi AES加密(转)

最新推荐文章于 2024-07-28 21:24:05 发布
最新推荐文章于 2024-07-28 21:24:05 发布
阅读量219 收藏
点赞数
文章标签： delphi java aes
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_39985279/article/details/114460866
版权
这个博客介绍了一个 Delphi 中的 AES 加密算法接口单元，支持 128/192/256 位密钥。提供了加密和解密字符串及流的功能，并包含文件加解密的实现。示例代码展示了如何使用这些函数。
摘要由CSDN通过智能技术生成

(**************************************************************)

(*Advanced Encryption Standard (AES)*)

(*Interface Unit v1.3*)

(* *)

(*Copyright (c) 2002 Jorlen Young*)

(* *)

(*说明：*)

(*基于 ElASE.pas 单元封装*)

(* *)

(*这是一个 AES 加密算法的标准接口。*)

(*调用示例：*)

(*if not EncryptStream(src, key, TStream(Dest), keybit) then*)

(*showmessage('encrypt error');*)

(* *)

(*if not DecryptStream(src, key, TStream(Dest), keybit) then*)

(*showmessage('encrypt error');*)

(* *)

(**** 一定要对Dest进行TStream(Dest) ****)

(*==========================================================*)

(* *)

(*支持 128 / 192 / 256 位的密匙*)

(*默认情况下按照 128 位密匙操作*)

(* *)

(**************************************************************)

unitAES;interface

{$IFDEF VER210}

{$WARN IMPLICIT_STRING_CAST OFF} //关闭警告

{$WARN IMPLICIT_STRING_CAST_LOSS OFF}

{$ENDIF}

usesSysUtils, Classes, Math, ElAES;constSDestStreamNotCreated= 'Dest stream not created.';

SEncryptStreamError= 'Encrypt stream error.';

SDecryptStreamError= 'Decrypt stream error.';typeTKeyBit=(kb128, kb192, kb256);functionStrToHex(Const str: AnsiString): AnsiString;function HexToStr(constStr: AnsiString): AnsiString;functionEncryptString(Value: AnsiString; Key: AnsiString;

KeyBit: TKeyBit=kb128): AnsiString;functionDecryptString(Value: AnsiString; Key: AnsiString;

KeyBit: TKeyBit=kb128): AnsiString;functionEncryptStream(Src: TStream; Key: AnsiString;var Dest: TStream; KeyBit: TKeyBit =kb128): Boolean;functionDecryptStream(Src: TStream; Key: AnsiString;var Dest: TStream; KeyBit: TKeyBit =kb128): Boolean;procedureEncryptFile(SourceFile, DestFile: String;

Key: AnsiString; KeyBit: TKeyBit=kb128);procedureDecryptFile(SourceFile, DestFile: String;

Key: AnsiString; KeyBit: TKeyBit=kb128);implementation

functionStrToHex(Const str: Ansistring): Ansistring;asmpush ebx

push esi

push edi

test eax,eax

jz @@Exit

mov esi,edx//保存edx值，用来产生新字符串的地址

mov edi,eax //保存原字符串

mov edx,[eax-4] //获得字符串长度

test edx,edx //检查长度

je @@Exit {Length(S) = 0}mov ecx,edx//保存长度

Push ecxshl edx,1mov eax,esi{$IFDEF VER210}movzx ecx, word ptr [edi-12] {需要设置CodePage}

{$ENDIF}call System.@LStrSetLength//设置新串长度

mov eax,esi //新字符串地址

Call UniqueString //产生一个唯一的新字符串，串位置在eax中

Pop ecx

@@SetHex:xor edx,edx //清空edx

mov dl, [edi] //Str字符串字符

mov ebx,edx //保存当前的字符

shr edx,4 //右移4字节，得到高8位

mov dl,byte ptr[edx+@@HexChar] //转换成字符

mov [eax],dl //将字符串输入到新建串中存放

and ebx,$0F //获得低8位

mov dl,byte ptr[ebx+@@HexChar] //转换成字符

inc eax //移动一个字节,存放低位

mov [eax],dl

inc edi

inc eax

loop @@SetHex

@@Exit:

pop edi

pop esi

pop ebx

ret

@@HexChar: db'0123456789ABCDEF'

end;function HexToStr(constStr: AnsiString): AnsiString;asmpush ebx

push edi

push esi

test eax,eax//为空串

jz @@Exit

mov edi,eax

mov esi,edx

mov edx,[eax-4]

test edx,edx

je @@Exit

mov ecx,edx

push ecxshr edx,1mov eax,esi//开始构造字符串

{$IFDEF VER210}movzx ecx, word ptr [edi-12] {需要设置CodePage}

{$ENDIF}call System.@LStrSetLength//设置新串长度

mov eax,esi //新字符串地址

Call UniqueString //产生一个唯一的新字符串，串位置在eax中

Pop ecxxorebx,ebxxoresi,esi

@@CharFromHex:xoredx,edx

mov dl, [edi]//Str字符串字符

cmp dl, '0' //查看是否在0到f之间的字符

JB @@Exit //小于0，退出

cmp dl,'9' //小于=9

ja @@DoChar//CompOkNum

sub dl,'0'jmp @@DoConvert

@@DoChar://先转成大写字符

anddl,$DF

cmp dl,'F'ja @@Exit//大于F退出

add dl,10sub dl,'A'@@DoConvert://转化

inc ebx

cmp ebx,2je @@Num1xoresi,esishl edx,4mov esi,edx

jmp @@Num2

@@Num1:

add esi,edx

mov edx,esi

mov [eax],dlxorebx,ebx

inc eax

@@Num2:

dec ecx

inc edi

test ecx,ecx

jnz @@CharFromHex

@@Exit:

pop esi

pop edi

pop ebxend;{-- 字符串加密函数 默认按照 128 位密匙加密 --}

functionEncryptString(Value: AnsiString; Key: AnsiString;

KeyBit: TKeyBit=kb128): AnsiString;var

{$IFDEF VER210}SS,DS: TMemoryStream;{$ELSE}SS, DS: TStringStream;{$ENDIF}Size: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;

st: AnsiString;beginResult := '';{$IFDEF VER210}ss := TMemoryStream.Create;

SS.WriteBuffer(PAnsiChar(Value)^,Length(Value));

DS := TMemoryStream.Create;{$ELSE}SS := TStringStream.Create(Value);

DS := TStringStream.Create('');{$ENDIF}

trySize :=SS.Size;

DS.WriteBuffer(Size, SizeOf(Size));{-- 128 位密匙最大长度为 16 个字符 --}

if KeyBit = kb128 then

beginFillChar(AESKey128, SizeOf(AESKey128),0);

Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));

EncryptAESStreamECB(SS,0, AESKey128, DS);end;{-- 192 位密匙最大长度为 24 个字符 --}

if KeyBit = kb192 then

beginFillChar(AESKey192, SizeOf(AESKey192),0);

Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));

EncryptAESStreamECB(SS,0, AESKey192, DS);end;{-- 256 位密匙最大长度为 32 个字符 --}

if KeyBit = kb256 then

beginFillChar(AESKey256, SizeOf(AESKey256),0);

Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));

EncryptAESStreamECB(SS,0, AESKey256, DS);end;{$IFDEF VER210}SetLength(st,Ds.Size);

DS.Position := 0;

DS.ReadBuffer(PAnsiChar(st)^,DS.Size);

Result :=StrToHex(st);{$ELSE}Result :=StrToHex(DS.DataString);{$ENDIF}

finallySS.Free;

DS.Free;end;end;{-- 字符串解密函数 默认按照 128 位密匙解密 --}

functionDecryptString(Value: AnsiString; Key: AnsiString;

KeyBit: TKeyBit=kb128): AnsiString;varSS, DS: TStringStream;

Size: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;beginResult := '';

SS := TStringStream.Create(HexToStr(Value));

DS := TStringStream.Create('');trySize :=SS.Size;

SS.ReadBuffer(Size, SizeOf(Size));{-- 128 位密匙最大长度为 16 个字符 --}

if KeyBit = kb128 then

beginFillChar(AESKey128, SizeOf(AESKey128),0);

Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));

DecryptAESStreamECB(SS, SS.Size-SS.Position, AESKey128, DS);end;{-- 192 位密匙最大长度为 24 个字符 --}

if KeyBit = kb192 then

beginFillChar(AESKey192, SizeOf(AESKey192),0);

Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));

DecryptAESStreamECB(SS, SS.Size-SS.Position, AESKey192, DS);end;{-- 256 位密匙最大长度为 32 个字符 --}

if KeyBit = kb256 then

beginFillChar(AESKey256, SizeOf(AESKey256),0);

Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));

DecryptAESStreamECB(SS, SS.Size-SS.Position, AESKey256, DS);end;

Result :=DS.DataString;finallySS.Free;

DS.Free;end;end;{流加密函数, default keybit: 128bit}

functionEncryptStream(Src: TStream; Key: AnsiString;var Dest: TStream; KeyBit: TKeyBit =kb128): Boolean;varCount: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;begin

if Dest = nil then

begin

raise Exception.Create(SDestStreamNotCreated);

Result:=False;

Exit;end;trySrc.Position:= 0;

Count:=Src.Size;

Dest.Write(Count, SizeOf(Count));{-- 128 位密匙最大长度为 16 个字符 --}

if KeyBit = kb128 then

beginFillChar(AESKey128, SizeOf(AESKey128),0);

Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));

EncryptAESStreamECB(Src,0, AESKey128, Dest);end;{-- 192 位密匙最大长度为 24 个字符 --}

if KeyBit = kb192 then

beginFillChar(AESKey192, SizeOf(AESKey192),0);

Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));

EncryptAESStreamECB(Src,0, AESKey192, Dest);end;{-- 256 位密匙最大长度为 32 个字符 --}

if KeyBit = kb256 then

beginFillChar(AESKey256, SizeOf(AESKey256),0);

Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));

EncryptAESStreamECB(Src,0, AESKey256, Dest);end;

Result :=True;except

raise Exception.Create(SEncryptStreamError);

Result:=False;end;end;{流解密函数, default keybit: 128bit}

functionDecryptStream(Src: TStream; Key: AnsiString;var Dest: TStream; KeyBit: TKeyBit =kb128): Boolean;varCount, OutPos: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;begin

if Dest = nil then

begin

raise Exception.Create(SDestStreamNotCreated);

Result:=False;

Exit;end;trySrc.Position:= 0;

OutPos:=Dest.Position;

Src.ReadBuffer(Count, SizeOf(Count));{-- 128 位密匙最大长度为 16 个字符 --}

if KeyBit = kb128 then

beginFillChar(AESKey128, SizeOf(AESKey128),0);

Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));

DecryptAESStreamECB(Src, Src.Size-Src.Position,

AESKey128, Dest);end;{-- 192 位密匙最大长度为 24 个字符 --}

if KeyBit = kb192 then

beginFillChar(AESKey192, SizeOf(AESKey192),0);

Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));

DecryptAESStreamECB(Src, Src.Size-Src.Position,

AESKey192, Dest);end;{-- 256 位密匙最大长度为 32 个字符 --}

if KeyBit = kb256 then

beginFillChar(AESKey256, SizeOf(AESKey256),0);

Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));

DecryptAESStreamECB(Src, Src.Size-Src.Position,

AESKey256, Dest);end;

Dest.Size := OutPos +Count;

Dest.Position :=OutPos;

Result :=True;except

raise Exception.Create(SDecryptStreamError);

Result:=False;end;end;{-- 文件加密函数 默认按照 128 位密匙解密 --}

procedureEncryptFile(SourceFile, DestFile: String;

Key: AnsiString; KeyBit: TKeyBit=kb128);varSFS, DFS: TFileStream;

Size: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;beginSFS := TFileStream.Create(SourceFile, fmOpenRead);tryDFS := TFileStream.Create(DestFile, fmCreate);trySize :=SFS.Size;

DFS.WriteBuffer(Size, SizeOf(Size));{-- 128 位密匙最大长度为 16 个字符 --}

if KeyBit = kb128 then

beginFillChar(AESKey128, SizeOf(AESKey128),0);

Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));

EncryptAESStreamECB(SFS,0, AESKey128, DFS);end;{-- 192 位密匙最大长度为 24 个字符 --}

if KeyBit = kb192 then

beginFillChar(AESKey192, SizeOf(AESKey192),0);

Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));

EncryptAESStreamECB(SFS,0, AESKey192, DFS);end;{-- 256 位密匙最大长度为 32 个字符 --}

if KeyBit = kb256 then

beginFillChar(AESKey256, SizeOf(AESKey256),0);

Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));

EncryptAESStreamECB(SFS,0, AESKey256, DFS);end;finallyDFS.Free;end;finallySFS.Free;end;end;{-- 文件解密函数 默认按照 128 位密匙解密 --}

procedureDecryptFile(SourceFile, DestFile: String;

Key: AnsiString; KeyBit: TKeyBit=kb128);varSFS, DFS: TFileStream;

Size: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;beginSFS := TFileStream.Create(SourceFile, fmOpenRead);trySFS.ReadBuffer(Size, SizeOf(Size));

DFS := TFileStream.Create(DestFile, fmCreate);try

{-- 128 位密匙最大长度为 16 个字符 --}

if KeyBit = kb128 then

beginFillChar(AESKey128, SizeOf(AESKey128),0);

Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));

DecryptAESStreamECB(SFS, SFS.Size-SFS.Position, AESKey128, DFS);end;{-- 192 位密匙最大长度为 24 个字符 --}

if KeyBit = kb192 then

beginFillChar(AESKey192, SizeOf(AESKey192),0);

Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));

DecryptAESStreamECB(SFS, SFS.Size-SFS.Position, AESKey192, DFS);end;{-- 256 位密匙最大长度为 32 个字符 --}

if KeyBit = kb256 then

beginFillChar(AESKey256, SizeOf(AESKey256),0);

Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));

DecryptAESStreamECB(SFS, SFS.Size-SFS.Position, AESKey256, DFS);end;

DFS.Size :=Size;finallyDFS.Free;end;finallySFS.Free;end;end;end.

weixin_39985279
关注
AES For Delphi And Java V1.0.0.0
06-08
此AES测试用例，使用的加密方式和填充方式是AES/ECB/PKCS5Padding 博主仅仅写了密钥正好是128位时java和delphi的加密解密，192位和256位还没有写，不过应该可以举一反三的， 后续会将192位和256位的加密解密也写出来，请关注http://blog.csdn.net/kunlun122/article/details/29270219
Delphi下AES算法完整源码与调用方法
11-10
AES加密解密算法调用的源码.Delphi7下编译通过。
Delphi/Java兼容的AES加密代碼 R2
04-01
群裏星星大神寫的，我改了一下，默認改為BASE64編碼輸出，速度要快點. ---- 再次修改，原版只针对文字的加密，对二进制不能处理，这次修改我增加了一个加密类，改写了几个函数，速度比上一个版本快多了，而且能对任何数据进行加密解密。
基于Delphi实现的AES加解密算法
最新发布
xurunxian的博客
07-28 339
基于Delphi实现AES加密解密算法。利用密钥KEY对指定内容进行加密并返回Base64或者HEX字符串。keybit分：128 Bit、192 Bit、256 Bit。mode分：ECB、CBC、CFB、OFB。padding分：Zero和PKCS7。返回数据可以为base64或者HEX。
java delphi aes_Delphi AES加密
weixin_29932039的博客
02-16 296
(**************************************************************)(*AdvancedEncryptionStandard(AES)*)(*InterfaceUnitv1.3*)(*...
java delphi aes加密算法_Delphi AES，又一个加密算法例子
weixin_39835792的博客
02-13 673
/////////////////////////////////////////////////////////////////////////////////AES DEMO V1.0////作者：ksaiy////欢迎使用由ksaiy制作的AES加密算法演示程序，此算法为标准的AES算法，你可以根据的//的自己需要进行变形。具体怎么操作可以登录我们的网站查询详细的资料。我们专门为软//件开发...
AES For Delphi And Java V2.0.0.0.rar
06-23
此测试用例，使用的加密方式和填充方式是AES/ECB/PKCS5Padding；密钥填充方式是ZEROPadding（就是当密钥不足16、24、32时，用0补全）；文件编码格式是GBK（中文乱码的话，请注意）。小弟原创，花了好几天的时间整理的。
Delphi与JAVA互加解密AES算法
weixin_34223655的博客
12-07 119
搞了半天终于把这个对应的参数搞上了,话不多说，先干上代码： package com.bss.util; import java.io.UnsupportedEncodingException; import java.security.InvalidAlgorithmParameterException; import java.security.InvalidKeyExcepti...
Delphi.rar_AES_AES加密_delphi AES加密_delphi 加解密_java delphi aes
07-15
本资源"Delphi.rar_AES_AES加密_delphi AES加密_delphi 加解密_java delphi aes"提供的是在Delphi编程环境中实现AES加密和解密的示例代码，其目标是与Java平台上的加解密过程保持兼容。 首先，让我们深入了解一下...
aes.rar_AES_aes delphi_aes 加密 解密_delphi aes
09-24
在**Delphi**中实现AES加密和解密，你需要了解以下关键概念： 1. **密钥（Key）**：AES加密的核心是密钥，它决定了加密和解密过程。密钥长度必须是16、24或32字节，对应128、192和256位。 2. **明文（Plaintext）*...
aes.rar_AES_aes delphi_delphi AES加密_delphi aes
07-13
適用 delphi xe6 aes 加密
Delphi7AES加密解密与JAVA互转（默认128位+ECB+PKCS5Padding+先BASE64再HEX）
02-09
Delphi7可与JAVA互转的AES加密解密算法（默认128位+ECB+PKCS5Padding+先BASE64再HEX），保证纯源码（ElAES基础上并参考大牛代码），不带任何控件。
delphi7 AES 加密兼容Java
02-19
实现的delphi AES加解密与Java AES 加解密互转， delphi 7 下测试通过，这是一个delphi7下的例子程序.
AES for Delphi 加密解密
06-01
AES for Delphi 加密解密，代码在Delphi10.2.3下已调试通过。 算法模式包含： CBC(Cipher Block Chaining,加密块链) 模式、 ECB(Electronic Code Book,电子密码本) 模式 加密结果包含：十六进制、base64 补码方式：PKCS5Padding 密钥长度：128、192、256
AES.rar_AES_aes ecb delphi_aes_call delphi_delphi aes
09-21
**AES加密算法在Delphi中的实现** AES（Advanced Encryption Standard），即高级加密标准，是一种广泛应用于数据加密的块密码算法。它基于Rijndael算法，由两位比利时密码学家Vanderstad和Meyers设计，于2001年被...
AES.rar_AES_AES加密示范_aes delphi_aes key 生成_delphi aes
09-23
这个"AES.rar"压缩包包含了一个关于AES加密的Delphi编程示例，主要涉及如何在Delphi程序中生成AES密钥和进行加密操作。 AES加密的核心在于它的分组密码结构，它将明文分成128位的数据块，然后用128、192或256位的...
delphi AES encrypt
weixin_34235457的博客
07-26 428
xe8 ok unit TntLXCryptoUtils; interface function AES128_Encrypt( Value, Password : string ) : string; function AES128_Decrypt( Value, Password : string ) : string; implementation uses ...
使用Delphi实现AES加密算法
本文主要介绍了在Delphi编程环境中实现AES加密算法的相关函数，包括字符串填充、去填充以及字符串转换为十六进制的函数。 AES（Advanced Encryption Standard）是一种广泛使用的块密码，它基于Rijndael算法，具有...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值