java delphi aes加密算法_谁有C#与delphi通用的AES加密算法

最新推荐文章于 2024-07-28 21:24:05 发布
最新推荐文章于 2024-07-28 21:24:05 发布
阅读量232 收藏
点赞数
文章标签： java delphi aes加密算法
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_39535125/article/details/114515183
版权
这篇博客详细介绍了如何在Delphi中实现AES加密算法，包括128、192和256位密钥的加密和解密函数，并提供了与Java兼容的AES加密方法，有助于跨平台的加密数据传输。
摘要由CSDN通过智能技术生成

展开全部

unit AES;

interface

uses

SysUtils, Classes, Math, ElAES;

type

TKeyBit = (kb128, kb192, kb256);

function StrToHex(Value: string): string;

function HexToStr(Value: string): string;

function EncryptString(Value: string; Key: string;

KeyBit: TKeyBit = kb128): string;

function DecryptString(Value: string; Key: string;

KeyBit: TKeyBit = kb128): string;

function EncryptStream(Stream: TStream; Key: string;

KeyBit: TKeyBit = kb128): TStream;

function DecryptStream(Stream: TStream; Key: string;

KeyBit: TKeyBit = kb128): TStream;

procedure EncryptFile(SourceFile, DestFile: string;

Key: string; KeyBit: TKeyBit = kb128);

procedure DecryptFile(SourceFile, DestFile: string;

Key: string; KeyBit: TKeyBit = kb128);

implementation

function StrToHex(Value: string): string;

var

I: Integer;

begin

Result := '';

for I := 1 to Length(Value) do

Result := Result + IntToHex(Ord(Value[I]), 2);

end;

function HexToStr(Value: string): string;

var

I: Integer;

begin

Result := '';

for I := 1 to Length(Value) do

begin

if ((I mod 2) = 1) then

Result := Result + Chr(StrToInt('0x'+ Copy(Value, I, 2)));

end;

end;

{  --  字符62616964757a686964616fe4b893e5b19e31333363363438串加密函数 默认按照 128 位密匙加密 --  }

function EncryptString(Value: string; Key: string;

KeyBit: TKeyBit = kb128): string;

var

SS, DS: TStringStream;

Size: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;

begin

Result := '';

SS := TStringStream.Create(Value);

DS := TStringStream.Create('');

try

Size := SS.Size;

DS.WriteBuffer(Size, SizeOf(Size));

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

if KeyBit = kb128 then

begin

FillChar(AESKey128, SizeOf(AESKey128), 0 );

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

EncryptAESStreamECB(SS, 0, AESKey128, DS);

end;

{  --  192 位密匙最大长度为 24 个字符 --  }

if KeyBit = kb192 then

begin

FillChar(AESKey192, SizeOf(AESKey192), 0 );

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

EncryptAESStreamECB(SS, 0, AESKey192, DS);

end;

{  --  256 位密匙最大长度为 32 个字符 --  }

if KeyBit = kb256 then

begin

FillChar(AESKey256, SizeOf(AESKey256), 0 );

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

EncryptAESStreamECB(SS, 0, AESKey256, DS);

end;

Result := StrToHex(DS.DataString);

finally

SS.Free;

DS.Free;

end;

end;

{  --  字符串解密函数 默认按照 128 位密匙解密 --  }

function DecryptString(Value: string; Key: string;

KeyBit: TKeyBit = kb128): string;

var

SS, DS: TStringStream;

Size: Int64;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;

begin

Result := '';

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

DS := TStringStream.Create('');

try

Size := SS.Size;

SS.ReadBuffer(Size, SizeOf(Size));

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

if KeyBit = kb128 then

begin

FillChar(AESKey128, SizeOf(AESKey128), 0 );

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

DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS);

end;

{  --  192 位密匙最大长度为 24 个字符 --  }

if KeyBit = kb192 then

begin

FillChar(AESKey192, SizeOf(AESKey192), 0 );

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

DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS);

end;

{  --  256 位密匙最大长度为 32 个字符 --  }

if KeyBit = kb256 then

begin

FillChar(AESKey256, SizeOf(AESKey256), 0 );

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

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

end;

Result := DS.DataString;

finally

SS.Free;

DS.Free;

end;

end;

{  --  流加密函数 默认按照 128 位密匙解密 --  }

function EncryptStream(Stream: TStream; Key: string;

KeyBit: TKeyBit = kb128): TStream;

var

Count: Int64;

OutStrm: TStream;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;

begin

OutStrm := TStream.Create;

Stream.Position := 0;

Count := Stream.Size;

OutStrm.Write(Count, SizeOf(Count));

try

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

if KeyBit = kb128 then

begin

FillChar(AESKey128, SizeOf(AESKey128), 0 );

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

EncryptAESStreamECB(Stream, 0, AESKey128, OutStrm);

end;

{  --  192 位密匙最大长度为 24 个字符 --  }

if KeyBit = kb192 then

begin

FillChar(AESKey192, SizeOf(AESKey192), 0 );

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

EncryptAESStreamECB(Stream, 0, AESKey192, OutStrm);

end;

{  --  256 位密匙最大长度为 32 个字符 --  }

if KeyBit = kb256 then

begin

FillChar(AESKey256, SizeOf(AESKey256), 0 );

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

EncryptAESStreamECB(Stream, 0, AESKey256, OutStrm);

end;

Result := OutStrm;

finally

OutStrm.Free;

end;

end;

{  --  流解密函数 默认按照 128 位密匙解密 --  }

function DecryptStream(Stream: TStream; Key: string;

KeyBit: TKeyBit = kb128): TStream;

var

Count, OutPos: Int64;

OutStrm: TStream;

AESKey128: TAESKey128;

AESKey192: TAESKey192;

AESKey256: TAESKey256;

begin

OutStrm := TStream.Create;

Stream.Position := 0;

OutPos :=OutStrm.Position;

Stream.ReadBuffer(Count, SizeOf(Count));

try

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

if KeyBit = kb128 then

begin

FillChar(AESKey128, SizeOf(AESKey128), 0 );

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

DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,

AESKey128, OutStrm);

end;

{  --  192 位密匙最大长度为 24 个字符 --  }

if KeyBit = kb192 then

begin

FillChar(AESKey192, SizeOf(AESKey192), 0 );

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

DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,

AESKey192, OutStrm);

end;

{  --  256 位密匙最大长度为 32 个字符 --  }

if KeyBit = kb256 then

begin

FillChar(AESKey256, SizeOf(AESKey256), 0 );

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

DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,

AESKey256, OutStrm);

end;

OutStrm.Size := OutPos + Count;

OutStrm.Position := OutPos;

Result := OutStrm;

finally

OutStrm.Free;

end;

end;

weixin_39535125
关注
c#和delphi通用加密法
03-30
c#和delphi通用加密解密法。delphi那边可以用delphi语法直接实现，这里不包括delphi的方法。
aes加密算法delphi
01-09
aes加密算法delphi
基于Delphi实现的AES加解密算法
最新发布
xurunxian的博客
07-28 421
基于Delphi实现AES加密解密算法。利用密钥KEY对指定内容进行加密并返回Base64或者HEX字符串。keybit分：128 Bit、192 Bit、256 Bit。mode分：ECB、CBC、CFB、OFB。padding分：Zero和PKCS7。返回数据可以为base64或者HEX。
AES加密演算法Delphi程式
08-17
AES加密算法
AES for Delphi 加密解密
06-01
AES for Delphi 加密解密，代码在Delphi10.2.3下已调试通过。 算法模式包含： CBC(Cipher Block Chaining,加密块链) 模式、 ECB(Electronic Code Book,电子密码本) 模式 加密结果包含：十六进制、base64 补码方式：PKCS5Padding 密钥长度：128、192、256
java delphi aes加密算法_Delphi AES，又一个加密算法例子
weixin_39835792的博客
02-13 675
/////////////////////////////////////////////////////////////////////////////////AES DEMO V1.0////作者：ksaiy////欢迎使用由ksaiy制作的AES加密算法演示程序，此算法为标准的AES算法，你可以根据的//的自己需要进行变形。具体怎么操作可以登录我们的网站查询详细的资料。我们专门为软//件开发...
AES加密算法 Delphi7
10-19
基础算法引用ElAES.pas，密钥长度128/192/256bit，支持中文，简单易用。
AES for Delphi 加密解密与JAVA、PHP、C#效果一样
05-19
AES for Delphi 加密解密与JAVA、PHP、C#效果一样 代码在Delphi10.3和10.2.3下已调试通过。 算法模式包含： CBC(Cipher Block Chaining,加密块链) 模式、 ECB(Electronic Code Book,电子密码本) 模式 加密结果包含：...
AES加密算法 delphi7
09-18
Delphi 7是一款历史悠久的面向对象的编程环境，其强大的编译器和丰富的库资源使得开发AES加密算法的程序变得可能。 AES算法基于块密码设计，将明文分为128位的块进行处理。该算法采用了替换和置换两种基本操作，...
通用AES加密版本
11-26
在Android平台上，由于是Java的子集，AES加密原理与Java相同，但是考虑到移动设备的资源限制，可能需要更注重性能优化。Android还提供了KeyGenerator和SecretKeySpec类来生成和管理密钥。 通用AES加密版本意味着...
Delphi7与C#实现Des加解密互通Demo,全网找遍只次一份
07-12
总之，这个“Delphi7与C#实现Des加解密互通Demo”项目提供了一个宝贵的实例，让开发者能够了解和掌握如何在两种不同的编程环境下实现相同加密算法的互通，这对于多平台应用开发或者需要在不同系统间交换加密数据的...
Delphi AES加密算法实例程序.rar
07-10
Delphi AES加密算法实例程序，包括了加密算法的接口应用，包含 2 个过程和 2 个字符加密函数，支持 128 位密匙加密和解密字符串。重新修改加密模式，支持 128、192 和 256 位密匙加密。 　　改动函数参数表，添加 KeyBit 参数。但是可以不带此参数，默认情况按照 128 位操作。 　　添加了新例程，支持对流和文件的操作。 　　ElASE.pas 单元封装是一个 AES 加密算法的标准接口。作者：杨泽晖，支持 128 / 192 / 256 位的密匙，默认情况下按照 128 位密匙操作。
Delphi.rar_AES_AES加密_delphi AES加密_delphi 加解密_java delphi aes
07-15
Delphi实现AES加密和解密， 同Java加解密兼容
Delphi与JAVA互加解密AES算法
03-30
本组代码采用标准AES算法（基础算法引用ElAES.pas，感谢作者），代码支持AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit，密钥0填充，Delphi与JAVA互相加解密。
DelphiXE10.3与Java互通AES加解密算法，亲测可用.zip
12-01
DelphiXE10.3与Java互通AES加解密算法，亲测可用。支持ECB、CBC算法，支持128、192、256密匙长度，支持密匙和向量设置，支持补码方式PKCS5和PKCS7，支持16进制密文和Base64密文。
Delphi AES 加密解密控件 Cipher_Component(1.0.0.0).rar
12-15
Delphi 开发的AES 等对称加密解密控件 1.AES算法 AES-128-CBC、AES-192-CBC、AES-256-CBC; AES-128-CFB、AES-192-CFB、AES-256-CFB; AES-128-CFB1、AES-192-CFB1、AES-256-CFB1; AES-128-CFB8、AES-192-CFB8、AES-256-CFB8; AES-128-ECB、AES-192-ECB、AES-256-ECB; AES-128-OFB、AES-192-OFB、AES-256-OFB; 2.DES算法 ......
[ delphi ] AES-256-ECB 加密、解密算法控件说明
sensor_WU 博客
03-18 4062
AES-256加密、解密算法控件说明前言1. 控件属性1.1 SourceEncodingType：源字符串的编码方式1.2 AlgoMode: 算法模式1.3 KeyBit: 密钥长度1.4 KeyStr: 当前密钥1.5 PaddingType：补齐方式1.6 InitVector：初始向量1.7 SourceStr：源字符串2. 公共方法2.1 Bytes2HexStr：字节流转16进制字符...
Delphi关于改进AES算法的加解密文件功能
编程开发资料库
07-22 123
以下代码出自http://blog.csdn.net/hellogv/,引用请注明出处！ 代码有点乱，想要具体实现方法的朋友，可以给我留言 附：以下代码在杨泽晖 (Jorlen Young)所开发的AES算法接口上改进！ function StrToHex(Value: string): string; var I: Integer; begin Res...
delphi aes加密
nextop88的专栏
07-09 1365
Delphi AES加密(转) (**************************************************************) (*     Advanced Encryption Standard (AES)                     *) (*     Interface Unit v1.3                 
使用Delphi实现AES加密算法
本文主要介绍了在Delphi编程环境中实现AES加密算法的相关函数，包括字符串填充、去填充以及字符串转换为十六进制的函数。 AES（Advanced Encryption Standard）是一种广泛使用的块密码，它基于Rijndael算法，具有...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值