home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Stone / junk / firefxp.pas next >
Encoding:
Pascal/Delphi Source File  |  2000-05-25  |  4.8 KB  |  175 lines
  1. {$I-}
  2. {$M $8000,0,0}
  3. {$G+}
  4. program firefxp;
  5. uses dos, crt;
  6. label start,azzera;
  7. var
  8.  
  9. f,f1:text;
  10. c:char;
  11. stringa:array [1..9] of char;
  12. strin:array [1..67] of char;
  13. pwd:array [1..66] of char;
  14. a,i,lenght:integer;
  15.  
  16. begin
  17.      writeln;
  18.      writeln ('■fIRE-FXP■ sUPERFXP PASSWORD CRACKER by ÷xOANON÷ ■uNITED cRACKING fORCE■ 1997');
  19.      writeln;
  20.      stringa:='PASSWORD=';
  21.      assign (f, 'FTP32.SAV');
  22.      reset (f);
  23.      a:=IOresult;
  24.      {$I+}
  25.      if a <> 0 then
  26.                begin
  27.                     sound (1000);
  28.                     delay (100);
  29.                     nosound;
  30.                     writeln ('FTP32.SAV not found! Be sure to have it in your fIREFXP directory.');
  31.                     writeln;
  32.                     halt (1);
  33.                end;
  34.      assign (f1,'FTP32.DEC');
  35.      rewrite (f1);
  36.      for i:=1 to 67 do
  37.                     begin
  38.                     strin[i]:='-';
  39.                     write (f1,strin[i]);
  40.                     end;
  41.                     write (f1,#013);
  42.                     write (f1,#010);
  43.      strin:='Decrypted by fIREFXP - Coded by xOANON [uNITED cRACKING fORCE] 1997';
  44.      for i:= 1 to 67 do
  45.      write (f1,strin[i]);
  46.      write (f1,#013);
  47.      write (f1,#010);
  48.      for i:=1 to 67 do
  49.                     begin
  50.                     strin[i]:='-';
  51.                     write (f1,strin[i]);
  52.                     end;
  53.                     write (f1,#013);
  54.                     write (f1,#010);
  55.                     write (f1,#013);
  56.                     write (f1,#010);
  57.  
  58. while not eof (f) do
  59. begin
  60.      repeat
  61.           read (f,c);    {name ftp}
  62.           write (f1,c);
  63.      until eoln (f);
  64.      repeat
  65.            read (f,c);    {description}
  66.            write (f1,c);
  67.      until eoln (f);
  68.      repeat
  69.            read (f,c);    {host}
  70.            write (f1,c);
  71.      until eoln (f);
  72.      repeat
  73.            read (f,c);    {protocol}
  74.            write (f1,c);
  75.      until eoln (f);
  76.      repeat
  77.            read (f,c);    {user}
  78.            write (f1,c);
  79.      until eoln (f);
  80.      write (f1,#013);
  81.      write (f1,#010);
  82. {-------------------------------------------------------------------------}
  83. {                         INIZIO DECRITTAZIONE                            }
  84. {-------------------------------------------------------------------------}
  85.  
  86.      for i:= 1 to 11 do read (f,c);
  87.      i:=1;
  88.      repeat
  89.            read (f,c);    {carica il vettore password}
  90.            pwd [i]:=c;
  91.            i:=i+1;
  92.      until eoln (f);
  93.  
  94. {-------------------------------------------------------------------------}
  95. {           PRENDE LA LUNGHEZZA (PRIMO CARATTERE DI PWD)                  }
  96. {-------------------------------------------------------------------------}
  97.  
  98.      asm
  99.         pusha;
  100.         xor di,di;     {azzera DI, contatore}
  101.         xor cx,cx;
  102.         lea bx, pwd;   {carica la pwd}
  103.         xor byte ptr [bx], $0f;  {decritta il 1° carattere}
  104.         sub byte ptr [bx], $20;  {lunghezza pwd nel primo carattere}
  105.         mov cl, byte ptr [bx];   {CL=lunghezza}
  106.  
  107.      start:
  108.         inc di; {incrementa il contatore}
  109.         lea bx, pwd+di; {carica il carattere successivo}
  110.         xor byte ptr [bx], $0f;  {decritta}
  111.         cmp di,cx; {si è raggiunta la lunghezza della pwd?}
  112.         jnz start; {se no, ripete prendendo il carattere successivo}
  113.  
  114.      azzera:
  115.         inc di;
  116.         lea bx, pwd+di;   {carica la pwd}
  117.         mov byte ptr [bx], $20;
  118.         cmp di,$3f;
  119.         jnz azzera;
  120.         popa;
  121.      end;
  122.      for i:= 1 to 9 do
  123.      write (f1,stringa[i]);
  124.      for i:=2 to 66 do write (f1,pwd[i]);
  125.  
  126.      repeat
  127.            read (f,c);    {dir}
  128.            write (f1,c);
  129.      until eoln (f);
  130.      repeat
  131.            read (f,c);    {listparam}
  132.            write (f1,c);
  133.      until eoln (f);
  134.      repeat
  135.            read (f,c);    {account}
  136.            write (f1,c);
  137.      until eoln (f);
  138.      repeat
  139.            read (f,c);    {startup}
  140.            write (f1,c);
  141.      until eoln (f);
  142.      repeat
  143.            read (f,c);    {port}
  144.            write (f1,c);
  145.      until eoln (f);
  146.      repeat
  147.            read (f,c);    {retry}
  148.            write (f1,c);
  149.      until eoln (f);
  150.      repeat
  151.            read (f,c);    {type}
  152.            write (f1,c);
  153.      until eoln (f);
  154.      repeat
  155.            read (f,c);    {spazio}
  156.            write (f1,c);
  157.      until eoln (f);
  158.     write (f1,#013);
  159.     write (f1,#010);
  160.     for i:=1 to 67 do
  161.                     begin
  162.                     strin[i]:='-';
  163.                     write (f1,strin[i]);
  164.                     end;
  165.                     write (f1,#013);
  166.                     write (f1,#010);
  167.  end;
  168. close (f);close (f1);
  169.                     sound (1000);
  170.                     delay (120);
  171.                     nosound;
  172.                     writeln ('OK... decrypted file stored in FTP32.DEC');
  173.                     writeln;
  174.  
  175. end.