Título: Hack netbios 1.0 en vb 6 Publicado por: fede_cp en 15 Marzo 2009, 23:47 pm hola a todos bueno este codigo visual que voy a poner es el de el progrmaa que estoy realizando que se llama hack netbios 1.0 by F-comet.
lo que hace el programa es hacer una intrusion por netbios desde una pc windows 98 a otras windows 98, en su mejora va a haber desde windows xp a windows 98 o viceversa.. nada mas es una prueba. lo que voy a aclarar y tengan en cuenta:soy un newbie,y lo trato de hacer como pueda (ya que estoy aprendiendo) pero eso no es todo sino que me digan (si tienen ganas) que les parece y que puedo agregar (aviso q no esta terminado!!) lo malo es que solo funciona desde el escritorio y ya sabran porque asique.. a dejar comentarios. codigo de hack netbios by F-comet: (solo una parte, de nuevo, no esta terminado) Private Sub Command1_Click() Shell "cmd.exe /c net view>nombre_maquinas.txt" t = Timer: Do Until Timer > t + 10: Loop Dim foo As Integer foo = FreeFile Open "C:\Documents and Settings\all users\Escritorio\nombre_maquinas.txt" For Input As #foo Text2.Text = Input(LOF(foo), #foo) Close #foo End Sub Private Sub Command3_Click() Dim texto As String texto = Text1.Text Shell "cmd.exe /c nbtstat -a " + texto + ">nbtstat.txt" t = Timer: Do Until Timer > t + 10: Loop Dim foo As Integer foo = FreeFile Open "C:\Documents and Settings\Administrador\Escritorio\nbtstat.txt" For Input As #foo Text2.Text = Input(LOF(foo), #foo) Close #foo End Sub Private Sub Command4_Click() Text2.Text = "Instrucciones para utilizar Hack Netbios 1.0 by F-Comet:" & vbCrLf & "1.Colocar Hack Netbios 1.0 en el escritorio, en su defecto, produciría fallos." & vbCrLf & "2.Examinar la red con Nombres PC." & vbCrLf & "3.Introducir el nombre de la maquina deseada en Nombrepc." & vbCrLf & "3.Ejecutar netbios conection." & vbCrLf & "4.Al recibir el informe fijarse que haya una maquina con <20> UNIQUE, si es asi continua los siguientes pasos:" 'TextBox1 = "frase1" & vbCrLf & "frase2" & vbCrLf & "frase3" End Sub Private Sub Label3_Click() Label3.Caption = Time End Sub Private Sub Timer1_Timer() Label3.Caption = Time End Sub cuando termina presento el programa ;D Título: Re: Hack netbios 1.0 en vb 6 Publicado por: Krackwar ™ en 16 Marzo 2009, 00:49 am Usa pipes y no uses rutas locales.
Título: Re: Hack netbios 1.0 en vb 6 Publicado por: Banker25 en 16 Marzo 2009, 19:11 pm lo que no entiendo muy bien si se usa desde windows 98 a windows xp o de windows xp a windows 98 no entiendo muy bien seria bueno que se explicara :huh: :huh: :huh: :huh:
Título: Re: Hack netbios 1.0 en vb 6 Publicado por: fede_cp en 16 Marzo 2009, 22:21 pm claro se confunde un poco ya que no le puse shell"command.exe" sino que puse "cmd.exe", el tema seria desde una pc windows 98 a otras pc windows 98
en la version mejorada sera por windows xp. adios y comentenb |