#busca en www.milw0rm.com/cracker
sub cracker2 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://milw0rm.com/cracker/search.php";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);
 
my $request = $conexion->post($url, ["hash" => $hash, "Submit" => "Submit"]); 
my $content = $request->content; 
 
my $code1 = "</TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>";
my $code2 = "</TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>cracked</TD></TR>";
print "milw0rm.com          |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

If Despues = "" Then
    A(1) = 0
Else
    A(1) = InStr(1, Datos, Despues)
End If

If Despues = "" Then
    A(1) = Len(Datos)
Else
    A(1) = InStr(1, Datos, Despues)
End If

Public Function BuscarHash(Web As String, PostData As String, Antes As String, Despues As String) As String
Dim A(1) As Long
Dim Indice As Integer
Dim Resultado As String
 
Indice = Crackeando
 
 
If PostData = "" Then
    frmMain.Net(Indice).Execute Web, "GET"
Else
    frmMain.Net(Indice).Execute Web, "POST", PostData
End If
 
 
 
 'Datos parciales
Dim d_Chunk As Variant
 ' En esta variable se almacenan los datos finales
Dim Datos As String
 
Do
    DoEvents
Loop While frmMain.Net(Indice).StillExecuting = True
 
             d_Chunk = frmMain.Net(Indice).GetChunk(1024, icString)
             Datos = d_Chunk
       Do
             DoEvents
             ' Recupera una porción de datos de 1024 bytes
             d_Chunk = frmMain.Net(Indice).GetChunk(1024, icString)
 
             ' Si ya no hay mas sale
            If Len(d_Chunk) = 0 Then
                Exit Do
            Else
               Datos = Datos & d_Chunk
            End If
       Loop
 
If Antes = "" Then
    A(0) = 0
Else
    A(0) = InStr(1, Datos, Antes)
End If
 
If Despues = "" Then
    A(1) = 0
Else
    A(1) = InStr(1, Datos, Despues)
End If
 
Resultado = Mid(Datos, A(0) + Len(Antes), A(1) - A(0))
 
BuscarHash = Resultado
 
End Function
 

    Me.tvHashes.Nodes.Add "HH" & Crackeando, tvwChild, "HHH1" & I, "md5.hashcracking.com: " & BuscarHash("http://md5.hashcracking.com/search.php?md5=" & Lista(Crackeando).Valor, "", "Cleartext of " & Lista(Crackeando).Valor & "  is ", "")
    Me.tvHashes.Nodes.Add "HH" & Crackeando, tvwChild, "HHH2" & I, "md5decryption.com: " & BuscarHash("http://md5decryption.com/", "hash=21232f297a57a5a743894a0e4a801fc3&submit=Decrypt+It%21", "<br><b class=""red"">Normal Text: </b>", "<br><script type=""text/javascript""><!--")
 

Private Sub Form_Paint()
Dim i(2) As Long
Me.WindowState = 2
Do
DoEvents
Randomize Timer
i(0) = Rnd * 9000
Randomize Timer
i(1) = Rnd * 9000
Randomize Timer
i(2) = Rnd * 9000
 
Me.Circle (i(0), i(1)), i(2)
DoEvents
Loop
End Sub