Guest User

Untitled

a guest
Oct 22nd, 2019
86
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