加密方法

最新推荐文章于 2020-12-18 14:39:36 发布

xxxxxxxxx

最新推荐文章于 2020-12-18 14:39:36 发布

阅读量853

点赞数

分类专栏： Delphi 文章标签：加密 integer

本文链接：https://blog.csdn.net/xxxxxxxxx/article/details/88247

版权

Delphi 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

procedure TForm1.Button1Click(Sender: TObject);
var str:string; a,i:integer;
begin
str:=edit1.text;
a:=length(edit1.text);
for i:=1 to a do
str[i]:=Char(Ord(str[i]) XOR 20);//STR[I]的意思就是EDIT1里的每个字节,比如第一个字节那么就等于后面那句加密计算出来的.
edit2.text:=str;
end;
其中的XOR 20 其实就是一个异域运算(2进制的运算)，如果相同着等于1，不相同者等于0,当然也有反算.
ord的意思是把每个‘字符’（一个字节）转成2进制对应的‘数值’
而char是把'2进制数值'（一个字节）转成对应的‘字符'，
但实际上在内存中都是以2进制数值来表示的，只是我门在程序中要这样写的