高分啊！一个算法问题，如何逆操作

[一如当初]

函数如下

Function DIP(str:string):string;
var
m,str1:string;
asc,asc1:byte;
i:integer;
begin
m:='asdfdghjvvvsd';
for i:=1 to length(str) do
begin
asc:=ord(str[i]);
asc:=asc and $F;
asc1:=ord(m[i]);
asc1:=asc1 and $F;
asc1:=asc xor asc1;
asc:=ord(str[i]);
asc:=asc and $F0;
asc:=asc + asc1;
str1:=str1 + chr(asc);
end;
result:=str1;
end;

调用

edit2.text:=Dip(edit1.text);

这个是解密函数，当参数是字符'336(=0&820(166'时，返回结果就是一个IP:202.97.246.227

问题来了，如何写加密函数，让这个IP变成336(=0&820(166

也就是fun('202.97.246.227')='336(=0&820(166'

急用！在线等！

[squall23504136]

我也遇到类似问题
关注~~

[gzmhero]

看了一下这个加密函数好象可逆的，
DIP('336(=0&820(166')='202.97.246.227'

再调用一下
DIP('202.97.246.227')='336(=0&820(166'

[gzmhero]

加密，解密是同一个函数。

[XuDunYu]

不错，加密只是将原码低4位和一个秘钥异或，那么它在和相同的密钥异或就复原了