Flash > Delphi

[Ghostwalker]

ok...

Funktion Nr. 2

Delphi-Quellcode:

function decrypt(OrgStr:string):string;
var
  lc1 : integer;
begin
  result := '';
  for lc1 := length(Orgstr) downto 0 do
  begin
    if ((lc1 mod 2) = 0) then
       result := result+Orgstr[lc1-1];
    result := result+orgstr[lc1-1];
  end;
  if (copy(result,length(result)-2,2)='\t') then
    result := copy(result,1,length(result)-2);
end;