🚀 go-pugleaf

Hola a todos, necesito ayuda, esta rutina  a continuacion en pascal ( en
teoria ) devuelve el numero que ves despues del cartelito unreal, tomando
como parametro el host real ( por ej:  ircap7@unreal-4210.adinet.com.uy , es
decir que devuelve el 4210 )
Lo que yo necesito es hacerloreversible, para poder desenmascarar las ip...
Cuando trato de compilar el siguiente codigo en pascal me salta el error: :
ip.pas(23) Fatal: Syntax error, BEGIN expected but end of file found
Function  CheckSum(dat:string):Longint;
const b_base=1000;
var k,s,i,j:Longint;
begin
j:=0;
for i:=0 to length(dat)-1 do begin
if i<16 then k:=(i+1)*(i+1) else k:=i*(i-15);
s:=ord(dat[i+1]);
j:=j+(s*k);
end;
j:=j+B_Base;
if j>65535 then begin
k:=j div 65536;
s:=j and 65535;
j:=k+s;
end;
checksum:=j;
end;

Bueno necesitaria si alguien se anima a ayudarme con esto, ya que no soy muy
bueno en pascal, mas bien todo lo contrario...
Si me pueden indicar como solucionar el error les agradeceria, y si me
pueden ayudar en como hacerlo reversible, mejor!!
Muchas Gracias de Antemano


/.\Begin Signature/.\
^}EniGmA{^
Icq: 43134347
Linux User: 261187
Linux Machine: 145091
###################################################
Quien dice que una cosa no se puede hacer,
no debe interrumpir nunca a quien lo est� haciendo.
###################################################