Delphi 加密解密

最新推荐文章于 2025-03-05 19:31:48 发布

强哥83

最新推荐文章于 2025-03-05 19:31:48 发布

阅读量1.7k

点赞数

文章标签： delphi 加密 string function 解密

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/hzqghost/article/details/1869440

版权

procedure TForm3.FormCreate(Sender: TObject);

var

RegI: String ;

F: TextFile;

Cipher: TDCP_blockcipher;

S: string ;

begin

AssignFile(F, GetSysDir + ' test.txt');

Reset(F);

Readln(F,S);

CloseFile(F);

Cipher: = TDCP_blockcipher(DCP_cast2561);

Cipher.InitStr( ' Key');

S: = B64Decode(S);

Cipher.DecryptCFB(S[ 1 ],S[ 1 ],Length(S));

Cipher.Reset;

Cipher.Burn;

ShowMessage(S);

end ;

procedure TForm3.cxButton2Click(Sender: TObject);

var

RegI: String ;

F: TextFile;

Cipher: TDCP_blockcipher;

S: string ;

begin

RegI : = ' This is a book.';

Cipher: = TDCP_blockcipher(DCP_cast2561);

Cipher.InitStr( ' Key');

Cipher.EncryptCFB(RegI[ 1 ],RegI[ 1 ],Length(RegI));

S : = B64Encode(RegI);

Cipher.Reset;

Cipher.Burn;

AssignFile(F, GetSysDir + ' test.txt');

Rewrite(F);

Writeln(F,S);

CloseFile(F);

end ;

dcpcrypt1.31

function TForm3.EnC(S: string ): String ;

begin

DCP_cast2561.InitStr( ' HZQ-1982.1983');

DCP_cast2561.EncryptCFB(S[ 1 ],S[ 1 ],Length(S));

S : = B64Encode(S);

DCP_cast2561.Reset;

DCP_cast2561.Burn;

Result : = S;

end ;

function TForm3.DeC(S: string ): String ;

begin

DCP_cast2561.InitStr( ' HZQ-1982.1983');

S : = B64Decode(S);

DCP_cast2561.DecryptCFB(S[ 1 ],S[ 1 ],Length(S));

DCP_cast2561.Reset;

DCP_cast2561.Burn;

Result : = S;

end ;

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

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