ulvis.paste.net

Paste Search Dynamic
Recent pastes
licence key
  1. program public;
  2. var
  3.         b: byte;
  4.         i: integer;
  5.         serialn: string;
  6.         ProductId: string;
  7.         IdentCode: string;
  8.         LicenseKey: string;
  9.         HoldRegs: array [1..19] of byte = (0,$DF,40,$E8,83,$97,$B2,3,0,96,$9F,$9F,33,38,64,53,0,0,1);
  10. begin
  11.         IdentCode := '';
  12.         LicenseKey := '';
  13.         serialn := 'SVPXN310140' + chr(0) + chr(0);
  14.         ProductId := 'MODCP6AV66766MB303AX0';
  15.  
  16.        
  17.         for i := 1 to Length(ProductId) do
  18.         begin
  19.                 b := ord(serialn[i]) xor ord(ProductId[i]);
  20.                 b := (b mod 13) + 65;
  21.                 IdentCode := IdentCode + chr(b);
  22.         end;
  23.         IdentCode := IdentCode + chr($32);
  24.        
  25.  
  26.         for i := 1 to 17 do
  27.         begin
  28.                 b := ord(IdentCode[i]) xor HoldRegs[i] xor i;
  29.                 b := (b mod 26) + 65;
  30.                 LicenseKey := LicenseKey + chr(b);
  31.         end;
  32.         LicenseKey := LicenseKey + chr($0);
  33.  
  34.  
  35.         writeln('IDENT CODE: ' + IdentCode);
  36.         writeln('LICENSE KEYE: ' + LicenseKey);
  37. end.
Parsed in 0.009 seconds