Desbloquear arquivo .exe

[werbevan]

Olá galera!

Então adquiri um curso de Autocad pela internet... até ai tudo bem. São vários vídeos, porém eles vieram .EXE, e tipo pra entrar nele quando clico aparece uma janela com um número como se fosse a identificação do meu computador. Dai ele pede a chave de registro e pra isso precisa enviar esse número ao Vendedor que ele me envia a senha. Blz... deu tudo certo, porém agora quando vou jogar os arquivos em outro note ele troca essa identificção do computador pedindo pra mandar um novo email e tal... só que o cara sumiu e não me envia outro. Tentei de todas as formas abrir esse arquivo, tentei descobrir a senha gerada se é MD5 ou outro tipo de codificação, tem converter de .EXE para .SWF e nada...
No meu caso foi assim:

Código do Computador: 234600519108152345 (número que é gerado automaticamente quando clico)
Senha única enviada pelo vendedor: e1b58130363540255dbc02ab3d0a4c2a

Alguém consegue me dar uma luz ai? Qq coisa mando o programa que não passa de vídeo aula pra ver o que rola...

Vaeu pela ajuda galera!

[sn3f4]

Cara tenta usar algum md5 decrypter, aqui no fórum já foi postado um bom em perl.

[sn3f4]

Auto é o n4sss

#!/usr/bin/perl
# Md5 Crack - r3c0d3d by n4sss - ORDER OF GRIFOS -
# Upd by n4sss
# Contact : n4sss@hotmail.com
# Date : 01/01/2010 -
# Info[0] : Esta Tool em perl Tem como objetivo quebrar a hash em md5 usando a força bruta usando letras,numeros,simbolos)
# Info[1] : c0dado em linux (Jogue Fora o windows!)
# Greets to Friends = bl4ck_,hackinho,Queda de faraó, e todos outros!
$ver = "01";
$dbgtmr = "1"; #Intervalo em segundos mostrando a velocidade atual + o ultimo password em segundos.

if ($dbgtmr<=0){ die "Set dbgtmr to a value >=1 !\n";};
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);

if ($ARGV[0]=~"a") {
$alpha = "abcdefghijklmnopqrstuvwxyz";}
if ($ARGV[0]=~"A") {
$alpha = $alpha. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($ARGV[0]=~"d") {
$alpha = $alpha."1234567890";}
if ($ARGV[0]=~"x") {
$alpha = $alpha. "!\"\$%&/()=?-.:\\*'-_:.;,";}

if ($alpha eq "" or $ARGV[3] eq "") {usage();};
if (length($ARGV[3]) != 32) { die "Desculpe mas essa md5 parece nao ser valida!\n";};

print "Caracter escolhido para o ataque: '$alpha\'\n";
print "Preparando para Crack '$ARGV[3]'...\n";

for (my $t=$ARGV[1];$t<=$ARGV[2];$t++){
crack ($t);
}

sub usage{
print "\n\n\md5 Crack -Order of Grifos Team- \n";
print "R3c0d3d by -n4sss- \n";
print "\n\n\Modo de uso\n";
print "./md5crack <caracter> <minimocount> <maximocount> <SuaMD5>\n";
print " Caracter pode ser: [aAdx]\n";
print " a = {'a','b','c',...}\n";
print " A = {'A','B','C',...}\n";
print " d = {'1','2','3',...}\n";
print " x = {'!','\"',' ',...}\n";
print "Exemplo de Crack para md5\n";
print "./md5crack.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar o MD5 dadas com todas Letras minusculas e todos os dígitos\n";
print " O MD5 crack tenta apenas Combinacoes com comprimento de 1 a 3 caracteres\n-------\n";
print "./md5crack.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar o MD5 dadas com todas as letras minúsculas e todas as letras maiúsculas\n";
print " O Md5 crack tenta somente as senhas MD5 cujo comprimento é exatamente 3 caracteres\n-------\n";
print "./md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar a MD5 informada com praticamente todos os caracteres\n";
print " O MD5 Crack tenta apenas Combinacoes com comprimento de 1 a 10 caracteres\n";
die "\n\n\Bjonn By: -n4sss-\n";
}

sub crack{
$CharSet = shift;
@RawString = ();
for (my $i =0;$i<$CharSet;$i++){ $RawString[i] = 0;}
$Start = gettimeofday();
do{
for (my $i =0;$i<$CharSet;$i++){
if ($RawString[$i] > length($alpha)-1){
if ($i==$CharSet-1){
print "Bruteforcing Terminado com $CharSet Caracters. Sem resultados.\n";
$cnt=0;
return false;
}
$RawString[$i+1]++;
$RawString[$i]=0;
}
}
################################################## #
$ret = "";
for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
$hash = md5_hex($ret);
$cnt++;
$Stop = gettimeofday();
if ($Stop-$Start>$dbgtmr){
$cnt = int($cnt/$dbgtmr);
print "$cnt hashes\\segundos.\tUltimo Password '$ret\'\n";
$cnt=0;
$Start = gettimeofday();
}
print "$ARGV[3] != $hash ($ret)\n";
if ($ARGV[3] eq $hash){
die "\n**** Password Cr4ck3d! => $ret\n";
}
################################################## #
#checkhash($CharSet)."\n";

$RawString[0]++;
}while($RawString[$CharSet-1]<length($alpha));
}

sub checkhash{
$CharSet = shift;
$ret = "";
for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
$hash = md5_hex($ret);
$cnt++;
$Stop = gettimeofday();
if ($Stop-$Start>$dbgtmr){
$cnt = int($cnt/$dbgtmr);
print "$cnt hashes\\segundos.\tUltimo Password '$ret\'\n";
$cnt=0;
$Start = gettimeofday();
}

if ($ARGV[3] eq $hash){
die "\n**** Achamos!!! Password Cr4ck3d! => $ret\n";
}

}

Para vc entender como usa basta olhar essas linhas:

print "Exemplo de Crack para md5\n";
print "./md5crack.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar o MD5 dadas com todas Letras minusculas e todos os dígitos\n";
print " O MD5 crack tenta apenas Combinacoes com comprimento de 1 a 3 caracteres\n-------\n";
print "./md5crack.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar o MD5 dadas com todas as letras minúsculas e todas as letras maiúsculas\n";
print " O Md5 crack tenta somente as senhas MD5 cujo comprimento é exatamente 3 caracteres\n-------\n";
print "./md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar a MD5 informada com praticamente todos os caracteres\n";
print " O MD5 Crack tenta apenas Combinacoes com comprimento de 1 a 10 caracteres\n";
die "\n\n\Bjonn By: -n4sss-\n";
}

[werbevan]

Auto é o n4sss



Para vc entender como usa basta olhar essas linhas:

Então meu brother... eu entrei nos sites que fazem a decriptação em md5 e coloquei o número gerado automático pelo executável para ver se batia com o número da senha, porém não bateu com a senha gerada pelo vendedor... Por isos que acho que não foi em Md5. Se eu conseguisse pelo menos converter esse arquivo para outra exetensão já ajudava, porém já peguei programa que converte .exe para .swf e ele não reconheceu o .exe com ouvindo do FLASH.

Como posso usar esse Script que me passou?

Abraço

[sn3f4]

@werbevan

Salve ele em perl (.pl) necessita do Active Perl se vc estiver usando Windows, depois é só seguir os comandos conforme está ali em cima em uma parte do código que está destacada.

[werbevan]

Olá meu caro @sn3f4...

baixei o programa, porém ele veio o Perl Critic e o Perl Package Manager...
Pra ser bem sincero nunca vi isso na vida... hehe
Tipo tentei começar a digitar as parada que estão aqui em cima, mas não achei nenhum editor pra começar... nada me abre pra fazer isso... não sei o que fazer mais.!!!

[sn3f4]

Olá meu caro @sn3f4...

baixei o programa, porém ele veio o Perl Critic e o Perl Package Manager...
Pra ser bem sincero nunca vi isso na vida... hehe
Tipo tentei começar a digitar as parada que estão aqui em cima, mas não achei nenhum editor pra começar... nada me abre pra fazer isso... não sei o que fazer mais.!!!

Vc tem que navegar pelo prompt (cmd.exe) até onde se encontra o código salvo em .pl e depois digitar conforme os parametros ali emcima, por exemplo:

md5crack.pl aAdx 1 10 HASH AQUI

md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72

No lugar do md5crack.pl vc tem que dar o comando com o nome que vc salvou o código, por exemplo se vc salvou com nome "md5.pl" vc vai dar o comando dessa forma:

md5.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72

A velocidade de quebra da Hash vai depender dela própria e da sua placa de vídeo.