Programa para convertir combos a singles.

Las wordlist que se utilizan para ataques de fuerza bruta en el web cracking son del tipo user:pass.

Sin embargo hay ocasiones que también son útiles los diccionarios singles.

Si ya tenemos wordlist con combos user:pass y queremos usarlas como singles podemos utilizar protramas que separen dichos combos en dos listas separadas. Yo hice uno para los amigos de MPX e incluyo el código fuente para que lo modifiquen si quieren ya que lo hice en un rato de ocio.

http://www.megaupload.com/?d=3YPH761U

http://rapidshare.com/files/322346396/toSingle.rar

http://akarkis.110mb.com/wordlist/toSingle_by_driver.zip


Nota: en futuras entradas mostraré una utilidad para este tipo de wordlist.

Gambas 2 En ubuntu 8.10

Después de una larga ausencia por estos rumbos a consecuencia de la escuela les quiero explicar qué es Gambas.

Según Google:

Es un lenguaje de progamación derivado de BASIC interpretado (como Java que genera bytecode) que usa un interprete -Gambas runtime-. Ofrece generar aplicaciones de todo tipo:

• Aplicaciones de texto.
• Servicios WEB
• Diseño en 2D, 3D, openGL.
• Empaquetado en diferentes distribuciones.

Y un largo etc. Además hay que decir que la similitud con VB de window$ es muy grande. Sin embargo hay una gran diferencia: Es orientado a objetos, VB 6.0 es basado en objetos así que es una buena opción para los que programan en Java y no han olvidado al clásico VB 6.0.

Aquí los pasos para en famoso "Hola Mundo".

Paso 1: Instalar.

$ sudo aptitude install gambas2

Paso 2: Generar el Proyecto.

Aplicaciones > Programación > Gambas2

Nuevo Proyecto

Aplicación gráfica



Elegir ubicación. puede ser /home/usuario/Documentos. Incluso el Escritorio




Damos Nombre y Título



Veremos que se genera un Formulario. Para cambiar el nombre podemos dar F2 o hacer click derecho en la barra de la izquierda (yo puse frmHola, víctima de la nostalgia).


Agregamos un botón



*opcional: cambiar el nombre del boton. Como hice en el caso del formulario también le cambié el nombre. Si damos doble click sobre la propiedad "TEXT" nos sale una ventana:


Doble click sobre el control y escribimos:

Message.Info ("Hola Mundo")




Damos ejecutar y listo!

A darle se ha dicho. Hay muchas cosas que se pueden hacer, recordando siempre que no es para nada un clon del de window$; solo hay que buscarle y agarrarle el modo.

Felices Líneas.

Cómo hacer un Textbox que sólo acepte números y punto decimal en Visual Basic

Haciendo un programita en Visual Basic, me encontré con el detalle de hacer que un Textbox (o una caja de texto) sólo aceptara números. Pues bien eso no tuvo mayor problema ya que la solución esta relativamente fácil:

· En el evento KeyPress de un Textbox llamado Text1.

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

If KeyAscii <48 Or KeyAscii > 58 Then
KeyAscii = 0

End If

End Sub

Pues hasta aquí todo bien. ¿Y si quiero poner punto decimal? :S

En El Guille me encontre con esta otra solución:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0
End If
End Sub

Ya estaba resuelto el problema del punto pero ahora la cuestión era: ¿cómo restringir el Textbox para que solo aceptara un punto decimal y poder borrarlo?

Manos a la obra:

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim x As Integer, h As Integer
Dim cadena As String
Dim band As Boolean

h = Len(Text1.Text) ' Longitud de cadena

cadena = Text1.Text ' Almacena lo escrito en el textbox


For p = 1 To h

If Mid(cadena, p, 1) = "." Then ' Si hay un punto en la cadena...
band = True ' Se activa la bandera
Exit For
Else
band= False
End If

Next p

If band = True Then ' Si la bandera esta activada no acepta el punto

If InStr("0123456789", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0

End If
End If

If band = False Then ' Si la bandera no esta activada acepta el punto

If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0

End If

End If


End Sub

Espero que alguna vez le sirva para alguna aplicación que les surga por ahí, hasta el momento yo lo he utilizado y me va muy bien.

"Felices Líneas" XD (me refiero a las de código)