home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / AMIPAZZ.LZX / AMIPAZZ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-30  |  1.5 KB  |  79 lines
  1. {Password finder 4 AMI-BIOS}
  2.  
  3. var
  4.   buffer:array[0..255] of byte;
  5.   i:byte;
  6.  
  7. label
  8.   lad,lb1,lde,l10c,l119,l155,l159,l167;
  9.  
  10. begin
  11.   writeln('AmiBios PazzworD FinDer. Coded By FuckOff­ Produxionz');
  12.   writeln('CopyWrong <c> 1995.');
  13.   writeln;
  14.   write('Da PassWorD iz : ');
  15.   asm
  16.       mov byte ptr [004bh],0
  17.       jmp lb1
  18. lad:  inc byte ptr [004bh]
  19. lb1:  mov al,[004bh]
  20.       xor ah,ah
  21.       add ax,37h
  22.       out 70h,al
  23.       in  al,71h
  24.       mov dl,al
  25.       mov al,[004bh]
  26.       xor ah,ah
  27.       mov di,ax
  28.       mov [di+0044h],dl
  29.       cmp byte ptr [004bh],06
  30.       jne lad
  31.       mov al,[0044h]
  32.       and al,0f0h
  33.       mov [0044h],al
  34.       mov byte ptr [004bh],01
  35. lde:  mov al,[004bh]
  36.       xor ah,ah
  37.       mov di,ax
  38.       cmp byte ptr [di+0044h],0
  39.       je  l167
  40.       cmp byte ptr [004bh],06
  41.       ja  l167
  42.       mov byte ptr [004ch],01
  43.       mov al,[004bh]
  44.       xor ah,ah
  45.       dec ax
  46.       mov di,ax
  47.       mov al,[di+0044h]
  48.       mov [004dh],al
  49.       mov byte ptr [004eh],00
  50. l10c: mov al,[004ch]
  51.       mov bl,[004dh]
  52.       test bl,0c3h
  53.       jp  l119
  54.       stc
  55. l119: rcr bl,1
  56.       mov [004ch],al
  57.       mov [004dh],bl
  58.       mov al,[004bh]
  59.       xor ah,ah
  60.       mov di,ax
  61.       mov al,[di+0044h]
  62.       cmp al,[004dh]
  63.       jne l155
  64.       mov al,[004ch]
  65.       mov i,al
  66.   end;
  67.     write(chr(i));
  68.   asm
  69.       mov byte ptr [004eh],01
  70.       jmp l159
  71. l155: inc byte ptr [004ch]
  72. l159: cmp byte ptr [004eh],0
  73.       je  l10c
  74.       inc byte ptr [004bh]
  75.       jmp lde
  76. l167:
  77. end;
  78.   writeln;
  79. end.