www.i4info.org

i4info Provides the best hacking Material. Latest hacking tutorials and tools are available here. It is the best place for hackers.

Latest topics

» BitCoin Wallet stealor New
Yesterday at 7:46 pm by Admin

» Muhammad Shahroze Rashid | Marketing Consultant
Yesterday at 1:48 pm by Admin

» Muhammad Shahroze Rashid | Sharp Mind, Sharp Innovations
Yesterday at 1:47 pm by Admin

» How to design an effective job ad
Yesterday at 1:45 pm by Admin

» Teen Patti Gold Hack & 3 Patti Chips Code Extra Bonus 2016
Tue Dec 06, 2016 4:38 am by shoytan er lara

» Content Marketing | Promotional Video
Fri Dec 02, 2016 2:45 pm by Admin

» How to start an Online Business | Complete Guide
Fri Dec 02, 2016 2:30 pm by Admin

» Zeeshan Bhatti
Wed Nov 30, 2016 3:18 pm by Admin

» USAA letter for scam page
Tue Nov 29, 2016 4:20 am by Hardyjsh1966

December 2016

MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 

Calendar Calendar

Affiliates


free forum

Forumotion on Facebook Forumotion on Twitter Forumotion on YouTubeForumotion on Google+

Visitors Counter


Flag Counter

About Author

Muhammad Shahroze Rashid
i4info
Web Developer
Web Developer & Designer,Researcher and Technical writer. An Information Security Consultant and System Auditor, a keen Security researcher.
samanabad
lahore, Punjab
54000
Pakistan
[email protected]
03064904829
DOB: 05/25/1992
Muhammad Shahroze Rashid
Muhammad Shahroze Rashid is a Web Developer and Designer, Android Developer, InfoGrapher, IT consultant and Researcher
Reviewed by Google
Google
Date published: 01/19/2016
9 / 10 stars
Muhammad Shahroze Rashid
Muhammad Shahroze Rashid Web Developer & Designer,Researcher and Technical writer. An Information Security Consultant and System Audito
samanabad
lahore
Punjab
54000
Pakistan

MD5 crack bot

Share

Admin
Admin

Posts : 455
Reputation : 5
Join date : 2014-12-10
Age : 24
Location : Pakistan

MD5 crack bot

Post by Admin on Wed Mar 04, 2015 2:01 pm




#!/usr/bin/perl                                          
#,, ,
#|| || _
#|| /'\\ _-_, =||= -_-_ < \, _-_, _-_,
#|| || || ||_. || || \\ /-|| ||_. ||_.
#|| || || ~ || || || || (( || ~ || ~ ||
#\\ \\,/ ,-_- \\, ||-' \/\\ ,-_- ,-_-
# |/
# Lo$tpass bot
# By: shahroze
#For [You must be registered and logged in to see this link.] #
#shouts to everyone at security-shell, friends #
#and everyone who I got ideas, code, and inspiration from#
#beta verison 0.9 (i guess?) simple? yes #
#I suggest you append to a log file and run in background#
#ie: perl bot.pl >> botlog.txt & #
##########################################################

use warnings; #comment out if you dont want to see a bunch of extra text in the terminal
use IO::Socket;
use LWP::UserAgent;
use Digest::MD5 qw(md5_hex);
use Crypt::PasswdMD5 qw(unix_md5_crypt);


##################################################
# !CONFIG! #
##################################################
$Host = "irc.dal.net"; #server
$Nick = "bot212121"; #nick
$Login = "bot21221"; #login
$Pass = "pass"; #nickserv password
$Realname = "bot3"; #realname
$Channel = "#crackhouse"; #channel
$Port = 6667; #port
$Owner = "[Loser]"; #owner's nick
$passfile = "passes.txt"; #plaintext wordlist for md5 cracking
##################################################
# !END CONFIG! #
##################################################


$sock = IO::Socket::INET->new(
PeerAddr => $Host,
PeerPort => $Port,
Proto => 'tcp' ) or die "could not make connection: $!\n";

while($line = <$sock>){
print $line;
if($line =~ /(NOTICE AUTH).*(checking ident)/i){
print $sock "NICK $Nick\nUSER $Login 0 0 :$Realname\n";
last;
}
}

while($line = <$sock>){
print $line;
#use next line if the server asks for a ping
if($line =~ /^PING/){
print $sock "PONG :" . (split(/ :/, $line))[1];
}
if($line =~ /(376|422)/i){
print $sock "NICKSERV :identify $Pass\n";
last;
}
}

sleep 5;
print $sock "JOIN $Channel\n";

while(defined($input=<$sock>)){

#pm a text file to user on join (commented out by default)
#if($input=~/^Sad.+)\!.+ JOIN\b/){open (WEL,"ascii9.txt") or print "error \n";
#foreach (<WEL>){
#sleep 1;print $sock "PRIVMSG $1 :$_";}}

if($input=~/PING(.*)/){print $sock "PONG :$1\n";}
print "$input\n";



##################################################
# !COMMANDS! #
##################################################

# ____________
#| HELP |
#|____________|

sub help{
if($input=~/!help/){
print $sock "PRIVMSG $Channel :15,1 !print <text> \n";
print $sock "PRIVMSG $Channel :5,1 !owner \n";
print $sock "PRIVMSG $Channel :15,1 !md5lookup <hash> \n";
print $sock "PRIVMSG $Channel :5,1 !md5crack <hash> \n";
print $sock "PRIVMSG $Channel :15,1 !md5encrypt <text> \n";
print $sock "PRIVMSG $Channel :5,1 !desencrypt <text> \n";
print $sock "PRIVMSG $Channel :15,1 !help (you're doing it) \n";
}
}

&help;

# ____________
#| END HELP |
#|____________|


# ____________
#| PRINT |
#|____________|

sub print{ #for testing
if($input=~/!print /){print $sock "PRIVMSG $Channel :15,1 $'\n";}
}

&print;

# ____________
#| END PRINT |
#|____________|


# ____________
#| OWNER |
#|____________|

sub owner{
if($input=~/!owner/){print $sock "PRIVMSG $Channel : 15,1 $Owner is the owner of $Nick\n";}
}

&owner;

# ____________
#| END OWNER |
#|____________|


# ____________
#| MD5LOOKUP |
#|____________|

sub md5lookup{
if($input=~/!md5lookup /){
$hash = $';
chomp $hash;
if(length($hash) < 32)
{print $sock "PRIVMSG $Channel :5,1!This is not a MD5 hash!\n";}
elsif ($hash !~ /\d|[a-f]{32}/g)
{print $sock "PRIVMSG $Channel :5,1!This is not a MD5 hash!\n";}
else {
$www = new LWP::UserAgent;
$site = "http://md5.rednoize.com/?q=$hash/*";
$res = $www -> get($site) ;
$res -> content() =~ /"result" >(.*)</ ;
print $sock "PRIVMSG $Channel :15,1 [You must be registered and logged in to see this link.] $1 \n";
$site = "http://gdataonline.com/qkhash.php?mode=txt&hash=$hash/*";
$res = $www -> get($site) ;
$res -> content() =~ /<b>(.*)</ ;
print $sock "PRIVMSG $Channel :15,1 [You must be registered and logged in to see this link.] $1 \n";
}
}
}

&md5lookup;

# _____________
#|END MD5LOOKUP|
#|_____________|


# ____________
#| MD5CRACK |
#|____________|

sub md5crack{
if($input=~/!md5crack /){
$hash = $';
chomp $hash;

open(PLAIN,$passfile) || print "Could not open wordlist!\n";

while(<PLAIN>){
chomp($_);
chomp($md5=md5_hex($_));
if($md5 == $hash){
print $sock "PRIVMSG $Channel :15,1 cracked successfully: 5 $_ \n";

}
}
close(PLAIN);

}
}

&md5crack;

# ____________
#|END MD5CRACK|
#|____________|


# ____________
#| MD5ENCRYPT |
#|____________|

sub md5encrypt{
if($input=~/!md5encrypt /){
$plain = $';
$md5 = md5_hex($plain);
print $sock "PRIVMSG $Channel :15,1 $md5 5 [MD5] \n";
}
}

&md5encrypt;

# ________________
#| END MD5ENCRYPT |
#|________________|

# ____________
#| DESENCRYPT |
#|____________|

sub desencrypt{
if($input=~/!desencrypt /){
$password = $';
chomp $password;
@salt = ( '.', '/', 0 .. 9, 'A' .. 'Z', 'a' .. 'z' );

$des = crypt( $password, gensalt(2) );
print $sock "PRIVMSG $Channel :15,1 $des 5 [DES] \n";


sub gensalt {
$count = shift;

$salt;
for (1..$count) {
$salt .= (@salt)[rand @salt];
}

return $salt;
}
}
}

&desencrypt;

# ________________
#| END DESENCRYPT |
#|________________|

##################################################
# !END COMMANDS! #
##################################################

}

#,, ,
#|| || _
#|| /'\\ _-_, =||= -_-_ < \, _-_, _-_,
#|| || || ||_. || || \\ /-|| ||_. ||_.
#|| || || ~ || || || || (( || ~ || ~ ||
#\\ \\,/ ,-_- \\, ||-' \/\\ ,-_- ,-_-
# |/
# '





 

    Current date/time is Thu Dec 08, 2016 10:48 am