um.pas

破解很多程序的序列号算法程序

Program UMKeyGenZ ;
uses crt ;
var username : string ;
    serial : longint ;
    i : integer ;
begin
  clrscr ;
  writeln('Uninstaller Manager 2.x KeyGenerator by flag eRRatum') ;
  writeln('Visit our page at http://all.at/ekh') ;
  write('Enter Your Username : ') ;
  readln(username) ;
  for i:=1 to length(username) do
    if (ord(username[i])<91) and (ord(username[i])>64) then
      username[i]:=chr(ord(username[i])+32) ;

  for i:=1 to length(username) do
    if (ord(username[i])<>32) then serial:=serial+ord(username[i]) ;

  write('This is Your Registration Key : ') ; Textcolor(White) ;
  writeln((serial XOR $33) XOR $89 + 1) ;
  textcolor(LightRed) ;
  writeln('Bye ! Don''t forget visit our page !!!') ;
  end.