delphi加密实例 delphi如何对字符串加密

来源:百度知道 编辑:UC知道 时间:2024/05/23 20:33:42
比如程序中涉及的网址 要求加密 其他人修改不了 用C32 UE 查不到

MD5吧,最近流行,绿坝都是用这个加密。
简单点的,直接用异或“
function setpassword(PassStr: string): string;//输入字符串,返回加密后字符串
var
I: Integer;
begin
PassStr := PassStr;
if Length(PassStr) > 0 then
for I := 1 to Length(PassStr) do
PassStr[I] := Char(Integer(PassStr[I]) xor I);
Result := PassStr;
end;

字符串隐藏。。。。

看你用什么加密了
base64,或者自定义 都要可以