SHARE
TWEET

Untitled

a guest Oct 22nd, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     function GenerationKey(var Key:string;const len:Integer):string;
  2.     var
  3.       i,j:Integer;
  4.       tmp,NewKey,OldKey:string;
  5.       CalcNumb:integer;
  6.       f:Boolean;
  7.     begin
  8.       tmp:=Key[1];
  9.       OldKey:=Key;
  10.       f:=False;
  11.       while f=False do
  12.       begin
  13.         CalcNumb:=strtoint(Key[1]) xor strtoint(Key[26]);
  14.         Key:=key+inttostr(CalcNumb);
  15.         NewKey:=Copy(Key,2,Length(Key));
  16.         key:=NewKey;
  17.         tmp:=tmp+key[1];
  18.  
  19.         if key=OldKey then
  20.         begin
  21.           f:=True;
  22.         end;
  23.       end;
  24.       result:=tmp;
  25.     end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top