本文介绍了使用Delphi实现简单字符串加密与解密的方法。通过两个函数：Encrypt和Decrypt，可以轻松地对输入的字符串进行加解密操作。具体实现为加密时每个字符的ASCII值增加64，解密时则相反。
http://edysoftware.com/word/source/2008/08/14/delphi-simple-encrypt-and-decrypt.html#more-34
function
Decrypt(
const
S: String): String;
var
I: byte;
t: string ;
begin
for I : = 1 to Length(S) div 2 do begin
t: = t + chr(ord(s[i]) - 64 );
end ;
result: = t;
end ;
var
I: byte;
t: string ;
begin
for I : = 1 to Length(S) div 2 do begin
t: = t + chr(ord(s[i]) - 64 );
end ;
result: = t;
end ;
function
Encrypt(
const
S: String): String;
Var
I: byte;
t: string ;
begin
for I : = 1 to Length(S) do begin
t: = t + chr(ord(s[i]) + 64 );
end ;
result: = t + t;
end ;
Var
I: byte;
t: string ;
begin
for I : = 1 to Length(S) do begin
t: = t + chr(ord(s[i]) + 64 );
end ;
result: = t + t;
end ;
扫一扫
184
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
