fork download
copy 
  1. program ideone;
  2.  
  3. var
  4.  
  5. b: Byte;
  6.  
  7. i: Integer;
  8.  
  9. serialn: String;
  10.  
  11. ProductId: String;
  12.  
  13. IdentCode: String;
  14.  
  15. LicenseKey: String;
  16.  
  17. HoldRegs: Array [1..19] of Byte = (0,$DF,32,$E8,83,$97,$B2,3,0,96,$9F,$9F,33,38,64,53,0,0,1);
  18.  
  19. begin
  20.  
  21. IdentCode := '';
  22.  
  23. LicenseKey := '';
  24.  
  25. serialn := 'PNSIFBHHAHDGDILIL4' + Chr(0) + Chr(0);
  26.  
  27. ProductId := 'MODPN2XV94501MB02';
  28.  
  29.  
  30.  
  31.  
  32.  
  33. for i := 1 to Length(ProductId) do
  34.  
  35. begin
  36.  
  37.  b := Ord(serialn[i]) xor Ord(ProductId[i]);
  38.  
  39.  b := (b mod 26) + 65;
  40.  
  41.  IdentCode := IdentCode + Chr(b);
  42.  
  43. end;
  44.  
  45. IdentCode := IdentCode + Chr($32);
  46.  
  47.  
  48.  
  49.  
  50.  
  51. for i := 1 to 17 do
  52.  
  53. begin
  54.  
  55.  b := Ord(IdentCode[i]) xor HoldRegs[i] xor i;
  56.  
  57.  b := (b mod 26) + 65;
  58.  
  59.  LicenseKey := LicenseKey + Chr(b);
  60.  
  61. end;
  62.  
  63. LicenseKey := LicenseKey + Chr($0);
  64.  
  65.  
  66.  
  67.  
  68.  
  69. Writeln('IDENT CODE: ' + IdentCode);
  70.  
  71. Writeln('LICENSE KEYE: ' + LicenseKey);
  72.  
  73. end.
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
IDENT CODE: DBXZIIQEQUJPNEORW2
LICENSE KEYE: RDTAFIUAKLONUFAPS
https://ideone.com/LEpvxZ
language:
Pascal (fpc 3.0.4)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!