mirc55.pas

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

Program mIRC55 ;
uses crt ;

const magictable : array[0..159] of integer = ($0B, $00, $00, $00, $06, $00,
$00, $00, $11, $00, $00, $00, $0C, $00, $00, $00, $0C, $00, $00, $00, $0E,
$00, $00, $00, $05, $00, $00, $00, $0C, $00, $00, $00, $10, $00, $00, $00,
$0A, $00, $00, $00, $0B, $00, $00, $00, $06, $00, $00, $00, $0E, $00, $00,
$00, $0E, $00, $00, $00, $04, $00, $00, $00, $0B, $00, $00, $00, $06, $00,
$00, $00, $0E, $00, $00, $00, $0E, $00, $00, $00, $04, $00, $00, $00, $0B,
$00, $00, $00, $09, $00, $00, $00, $0C, $00, $00, $00, $0B, $00, $00, $00,
$0A, $00, $00, $00, $08, $00, $00, $00, $0A, $00, $00, $00, $0A, $00, $00,
$00, $10, $00, $00, $00, $08, $00, $00, $00, $04, $00, $00, $00, $06, $00,
$00, $00, $0A, $00, $00, $00, $0C, $00, $00, $00, $10, $00, $00, $00, $08,
$00, $00, $00, $0A, $00, $00, $00, $04, $00, $00, $00, $10, $00, $00, $00,
$00, $00, $00, $00) ;

var Username : string ;
    i,j : integer ;
    serial,k : longint ;

begin
  clrscr ;
  writeln('mIRC 5.x Key-Generator by flag eRRatum') ;
  writeln('Please enter username (more than 4 chars.) : ') ;
  readln(username) ;

  if length(username) <=4 then
    begin
    Textcolor(LightRed) ; writeln('Enter more than 4 chars!.') ;
    halt ;
    end;

  for i:=4 to length(username) do
    begin
    serial:=serial+(ord(username[i])*magictable[j*4]) ;
    inc (j) ; if j>$26 then j:=0 ;
    end;

  write('Your Serial is : ',serial,'-') ; serial:=0 ; j:=0 ;

  for i:=4 to length(username) do
    begin
    k:=ord(username[i]) * ord(username[i-1]) ;
    serial:=serial+(k * magictable[j*4]) ;
    inc(j) ; if j>$26 then j:=0 ;
    end ;

  writeln(serial) ; textcolor(lightred) ;
  
end.