linkbotk.pas

来自「破解很多程序的序列号算法程序」· PAS 代码 · 共 29 行

Program Cookie ;
uses crt;
var ser : string ;
    i : integer ;
    serial : longint ;

begin
  clrscr ;
  writeln('Linkbot Pro 4.x Key-Generator by flag eRRatum') ;
  writeln('Serial Number can be any number more than 4 digit !') ;
  writeln('If the Serial is rejected by Linkbot, simply try another number !') ;
  write('Please Enter your Serial Number : ') ;
  readln(serial) ;
  serial:=serial * (serial MOD 10) ;
  str(serial,ser) ; serial:=0 ;
  for i:=1 to length(ser) do
    begin
    serial:=serial+ord(ser[i]) ;
    serial:=serial SHL 2 ;
    serial:=serial XOR ord(ser[i]) ;
    end ;
  if serial<$186A0 then serial:=serial+$7A120 ;

  write('This is your PIN : ') ;textcolor(white) ; writeln(serial) ;
  textcolor(LIGHTRED) ;
  writeln('Please Visit Our Page for more Cracks,Serials,KeyGens !') ;
end.