Mega Code Archive
A Standard Password Function
<![CDATA[
Title: A Standard Password Function
Question: Password
Answer:
function passwd(ss:string):double;
var
i:longint;
ti:int64;
pass,temp:double;
ret,ts:string;
begin
ret:='';
for i:= 1 to length(ss) do
ret:=ret+inttostr(ord(ss[i]));
ret:=trim(ret);
if length(ret) = 18 then
ret:=copy(ret,length(ret)-18,18);
try
strtoint64(ret);
ti:=strtoint64(ret);
temp:=ti*PI;
ret:=floattostr(temp);
ts:=copy(ret,length(ret)-10,10);
temp:=strtofloat(ts);
temp:=temp*temp;
ts:=floattostr(temp);
ts:=copy(ts,length(ts)-10,10);
pass:=strtofloat(ts);
result:=pass;
except
end;
end;
]]>