如何逆操作（解密函数to加密函数）

函数如下

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'

*********************************************************************************

这个加密函数是可逆的，
DIP('336(=0&820(166')='202.97.246.227'

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

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