daatdraqq Posted February 9, 2009 Report Share Posted February 9, 2009 http://www.fileshare.ro/918305511.245parola:daat Quote Link to comment Share on other sites More sharing options...
CODEX Posted February 9, 2009 Report Share Posted February 9, 2009 multumesc muuuult Quote Link to comment Share on other sites More sharing options...
daatdraqq Posted February 9, 2009 Author Report Share Posted February 9, 2009 Citisem undeva ca-l vroia cineva dar nu mai stiam cine ,se pare ca te-am gasit ) . Cu placere Quote Link to comment Share on other sites More sharing options...
new4style Posted February 9, 2009 Report Share Posted February 9, 2009 imi zici si mie cum se foloseste si la ce ? te rog mult .ms Quote Link to comment Share on other sites More sharing options...
daatdraqq Posted February 9, 2009 Author Report Share Posted February 9, 2009 Extrage email-uri dintr-o pagina web .Bagi o adresa si dai start . Quote Link to comment Share on other sites More sharing options...
new4style Posted February 12, 2009 Report Share Posted February 12, 2009 Am inteles.si ce poti face cu mailurile de exemplu ? le poti afla pass ?? ,,scz k tot intreb dar vreau sa aflu .ms Quote Link to comment Share on other sites More sharing options...
p0wer Posted February 12, 2009 Report Share Posted February 12, 2009 Am inteles.si ce poti face cu mailurile de exemplu ? le poti afla pass ?? ,,scz k tot intreb dar vreau sa aflu .msnu poti afla nici o parola:)) Quote Link to comment Share on other sites More sharing options...
rafaelnadal Posted February 15, 2009 Report Share Posted February 15, 2009 nu am reusit sa extrag niste mailuri de pe un site ... newsletter email extractor --- adik sa extrag mailurile de la abonati Quote Link to comment Share on other sites More sharing options...
Nytro Posted February 15, 2009 Report Share Posted February 15, 2009 nu am reusit sa extrag niste mailuri de pe un site ... newsletter email extractor --- adik sa extrag mailurile de la abonati Tu de unde ai mai aparut? Extragi mailurile care se gasesc in pagina Web nu mailurile din baza de date. Quote Link to comment Share on other sites More sharing options...
higher200003 Posted February 17, 2009 Report Share Posted February 17, 2009 thank you for your tool Quote Link to comment Share on other sites More sharing options...
paxnWo Posted February 17, 2009 Report Share Posted February 17, 2009 nu poti afla nici o parola:))la ce ai nevoie de parola ? iei mailuri pt spam =/ Quote Link to comment Share on other sites More sharing options...
pin5u Posted February 17, 2009 Report Share Posted February 17, 2009 thx... chiar aveam nevoie de asha ceva Quote Link to comment Share on other sites More sharing options...
Rebell Posted February 17, 2009 Report Share Posted February 17, 2009 nu merge... Quote Link to comment Share on other sites More sharing options...
daatdraqq Posted February 17, 2009 Author Report Share Posted February 17, 2009 nu merge...Ce nu merge ? Quote Link to comment Share on other sites More sharing options...
Rebell Posted February 17, 2009 Report Share Posted February 17, 2009 programu , da doua erori si dupa "Stopped working..." am incercat pe vreo 10 site-uri Quote Link to comment Share on other sites More sharing options...
daatdraqq Posted February 17, 2009 Author Report Share Posted February 17, 2009 Ai tu probleme cu pc-ul Quote Link to comment Share on other sites More sharing options...
Rebell Posted February 17, 2009 Report Share Posted February 17, 2009 probabil... Quote Link to comment Share on other sites More sharing options...
toofast Posted March 4, 2009 Report Share Posted March 4, 2009 Extrage numai mailuri aiurea, in fine mersi pentru share.. Quote Link to comment Share on other sites More sharing options...
n3curatu87 Posted March 21, 2009 Report Share Posted March 21, 2009 doamne auzi la ala sa prinda si el repede parole Quote Link to comment Share on other sites More sharing options...
Hugo Posted March 21, 2009 Report Share Posted March 21, 2009 bun la casa omului:)nu cere de mancare. Gj Quote Link to comment Share on other sites More sharing options...
MaHaReT Posted March 23, 2009 Report Share Posted March 23, 2009 Unu nu cred ca au trecut testu de pe index )) Quote Link to comment Share on other sites More sharing options...
Guest Praetorian Posted March 23, 2009 Report Share Posted March 23, 2009 http://www.google.ro/search?hl=ro&client=firefox-a&rls=org.mozilla%3Aro%3Aofficial&hs=DdQ&q=test+6+broaste&btnG=C%C4%83utare&meta= Quote Link to comment Share on other sites More sharing options...
MaHaReT Posted March 24, 2009 Report Share Posted March 24, 2009 mda asta e buna, rau Quote Link to comment Share on other sites More sharing options...
daatdraqq Posted March 27, 2009 Author Report Share Posted March 27, 2009 Uitati inca unul in perl ..#!/usr/bin/perl# Script : E-Mail eXtractor# Author : Osirys# Contact : osirys[at]live[dot]it# Thx: StAkeR# *Use it under a *nix box# THIS IS THE PUBLIC RELEASE# In the private release, you can scan all kind of emails that you want, on a lot of different engines.use IO::Socket::INET;use HTTP::Request;use LWP::UserAgent;use HTTP::Request::Common;print q{-------------------------------------[> E-Mail eXtractor[> PUBLIC RELEASE[> Coded by Osirys[> Contact: osirys[at]live[dot]it-------------------------------------};my $mode = $ARGV[0];$gtest = ("www.google.com/search?q=hi&hl=en&start=10&sa=N");CASES : { &usage(), last CASES if (!$ARGV[0]); &bash(), last CASES if ($mode =~ /bash-mode/); &usage(), last CASES if (($mode =~ /irc-mode/)&&(!$ARGV[1])|(!$ARGV[2])|(!$ARGV[3])|(!$ARGV[4])); &irc_mode($ARGV[1],$ARGV[2],$ARGV[3],$ARGV[4]), last CASES if (($mode =~ /irc-mode/)&&(($ARGV[1])||($ARGV[2])||($ARGV[3])||($ARGV[4]))); &help(), last CASES if ($mode =~ /help/); }sub help() { print q{ --- HELP ---If you have a direct command line on the server where you are launchingthe script, like you are in with a bash shell, you can just use thebash mode. Unless, if you can't have a direct command line, launch itin irc-mode, so you will command the script under Irc.This is the public release. In the private release you can scan allkind of emails, on a lot of different engines.Thank you using E-Mail eXtractorBy Osirys}; &usage();}sub usage() { print "\nUsage:\n"; print " [1] perl $0 bash-mode - FOR A SHELL USE\n"; print " [2] perl $0 irc-mode server port nick chan - FOR IRC USE\n"; print " [+] perl $0 help - FOR HELP\n"; print "[?] Coded by Osirys\n\n"; exit(1);}sub bash() { print "\n[+] Cheeking if my ip is banned by Google..\n"; $re = query($gtest); $re =~ /Google Home/ || die "[-] Sorry, Test not passed, got banned by Google, try again later\n"; print "[+] Test passed. Google Status: Ready\n"; print "[+] Insert now the email domain to find\n"; print "[*] Domains allowed: hotmail ~ msn ~ gmail ~ libero ~ yahoo ~ virgilio ~live ~ alice\n"; $domain = <STDIN>; chomp($domain); $domain =~ /hotmail|msn|gmail|libero|yahoo|virgilio|live|alice/ || die "[-] Error, or domain not allowed\n"; print "[+] Ok, searching \@$domain emails on Google ..\n"; &find($domain,"bash-mode"); print "[+] Done\n";}sub irc_mode() { my ($ircd, $port, $nick, $chan) = @_; if (fork() == 0) { &irc($ircd, $port, $nick, $chan); } else { exit(0); }}sub irc() { my ($ircd, $port, $nick, $chan) = @_; $chan =~ s/(.+?)/\#$1/; print "\n[+] Connecting on:\nServer/Port: $ircd:$port\nNick: $nick\nChannel: $chan\n# Coded by Osirys\n\n"; $c0n = IO::Socket::INET->new(PeerAddr => "$ircd",PeerPort => "$port",Proto => "tcp") || die "[-] Can not connect on $ircd!\n"; $c0n->autoflush(1); print $c0n "NICK $nick\n"; print $c0n "USER eMailer 8 * : Osirys\n"; print $c0n "JOIN $chan\n"; wr($chan,"15,1/_ E-Mail eXtractor Public Release Launched !!"); wr($chan,"11,1? Coded by Osirys"); while ($line = <$c0n>) { if ($line =~ /^PING \.*)/) { print $c0n "PONG :$1"; } if ($line =~ /PRIVMSG $chan :!help/) { wr($chan,"15,1-= E-Mail eXtractor Public Release =-"); wr($chan,"11,1? Coded by Osirys"); wr($chan,"9,1!help 4,1>7,1 For Help"); wr($chan,"9,1!domain 4,1>7,1 Get the domains avaible"); wr($chan,"9,1!start domain 4,1>7,1 Start the scann on the domain choosed"); wr($chan,"9,1!killme 4,1>7,1 Kill the Bot"); } if ($line =~ /PRIVMSG $chan :!killme/) { wr($chan,"4,1Bye Bye!!"); print $c0n "QUIT"; exec("pkill perl"); } if ($line =~ /PRIVMSG $chan :!domain/) { wr($chan,"15,1[*] Domain allowed: hotmail, msn, gmail, libero, yahoo, virgilio, live, alice"); } if (($line =~ /PRIVMSG $chan :!start\s+(.*)/)&&(fork() == 0)) { my $mail = $1; wr($chan,"15,1[+] Cheeking if my ip is banned by Google.."); $re = query($gtest); if ($re =~ /Google Home/) { wr($chan,"9,1[+] Test passed. Google Status: Ready"); if ($mail =~ /hotmail|msn|gmail|libero|yahoo|virgilio|live|alice/) { wr($chan,"15,1[+] E-Mail eXtractor started, emails: 9,1\@$mail"); &find($mail,"irc-mode"); wr($chan,"4,1[-] E-Mail eXtractor finished, emails: 9,1\@$mail"); } else { wr($chan,"4,1[-] Error, or domain not allowed"); } } else { wr($chan,"4,1[-] Sorry, Test not passed, got banned by Google, try again later"); } } }}sub find() { my @domain = ("at","com.au","com.br","ca","ch","de","dk","es","fr","it","co.jp","com.mx","co.uk"); my @langs = ("de","en","br","en","de","de","dk","es","fr","it","jp","es","en"); my @country = ("AT","AU","BR","CA","CH","DE","DK","ES","FR","IT","JP","MX","UK"); my $mail = $_[0]; my $mode = $_[1]; my @forks; my $count = 0; my $dd = 0; my $l = 0; my $c = 0; foreach my $d(@domain) { if ($count % 1 == 0) { foreach my $f(@forks){ waitpid($f,0); } } $forks[$count] = fork(); if ($forks[$count] == 0) { for ($i=0;$i<=1000;$i+=100) { my $gsup = ("www.google.".$d."/search?q=\@".$mail.".".$d."&num=100&hl=".$langs[$l]."&cr=country".$country[$c]."&as_qdr=all&start=".$i."&sa=N"); my $re = query($gsup); while ($re =~ m/([\w\-\+\.]+)\@<em>$mail<\/em>\.<em>$d<\/em>/g) { my $user = $1; push(@tot, $user); } } @unique = unique(@tot); @ord = sort(@unique); my $nickname = "$mail.".$d; if ($mode =~ /bash-mode/) { open($file, ">>", "$mail."."$d.txt"); foreach my $u(@ord) { print $file "$u"."@"."$mail."."$d\n"; } print "[*]Found ".scalar(@ord)." \@".$mail.".".$d." emails. Cheek in: $mail.$d.txt\n"; } elsif ($mode =~ /irc-mode/) { &paste($nickname,@ord); } exit(0); } $l++; $c++; $count++; $dd++; } foreach my $f(@forks){ waitpid($f,0); }}sub paste() { my $name = $_[0]; my @tot = @_[1]; my $cont = join("\n",@tot); my $p_ua; my $p_request; $p_ua = LWP::UserAgent->new( agent => "StAkeR ~ Paste", timeout => "0" ); $p_request = $p_ua->post("http://nopaste.biz", [ insert => "1", name => "$name EMails", beschreibung => "$name Emails, powered by Osirys", code => $cont ] ); if ($p_request->is_success) { if ($p_request->content =~ /URL=(.+?)\">/) { my $link = $1; wr($chan,"9,1[!]$name Emails Link4,1 =>11,1 $link"); } }}sub unique { my @unique = (); my %seen = (); foreach my $s(@_) { $s =~ s/\/+/\//g; next if $seen{$s}++; push(@unique,$s); } return @unique;}sub query() { my $url = $_[0]; my $host = $url; my $query = $url; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $query =~ s/$host//; eval { my $sock = IO::Socket::INET->new(PeerAddr => "$host",PeerPort => "80",Proto => "tcp") || return; print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n"; my @r = <$sock>; $page = "@r"; close($sock); }; return $page;}sub wr() { my $chan = $_[0]; my $cont = $_[1]; print $c0n "PRIVMSG $chan :$cont\n";} Quote Link to comment Share on other sites More sharing options...
NangiuVlad Posted March 27, 2009 Report Share Posted March 27, 2009 La mine imi da eroare,zice ca are bug. Quote Link to comment Share on other sites More sharing options...