Autor
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
En línea
