如何逆操作（解密函數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位和一個秘鑰異或，那麼它在和相同的密鑰異或就複原了