Utilities > Silence Detector

send email, smtp pwd ini file encoding

(1/1)

frs.steve:
hi
what is the encoding used for the smtp pwd stored in the ini file?
i need to reverse decode it

Jan:

--- Code: ---function PwdDecode(heslo: string): string;
var i,j,m,l: integer;
    w: string;
begin
w:='';
for i:=1 to (length(heslo) div 2) do
  begin
  m:=Ord(heslo[i*2-1]);
  l:=Ord(heslo[i*2]);
  j:=(m-(i mod 3)-ord('c'))*16+(l-(i mod 3)-ord('f'));
  w:=w+Chr(j);
  end;
result:=w;
end;

--- End code ---

frs.steve:
thank you!

Navigation

[0] Message Index

Reply