programa generador de claves con visual basic
Hola cluster:
esta es una idea de como hacerlo:
controles:
inserta dos cajas de texto
inserta tres botones
uso:
inserta en el text1 el caracter o numero y al dar click en cualquiera de los botones saldra en text2
ya estando en el text2 la cadena puedes invertir la cadena asi:
Text2 = StrReverse(Text2)
codigo:
Rem generar numeros ascii(de todo)
Private Sub Command1_Click()
If Len(Text1) > 1 Then GoTo fin
a = Asc(Text1)
Rem mandar el resultado al text2
text2.SelText = a
Text1.Text = ""
Text1.SetFocus
Exit Sub
fin:
MsgBox "solo de 1 en 1", 32, "Mensaje"
End Sub
-------------------------------------------------------
Rem generar numeros hexadecimal(solo escribir numeros)
Private Sub Command2_Click()
On Error GoTo fin
a = Hex(Text1)
Rem mandar el resultado al text2
Text2.SelText = a
Text1.Text = ""
Text1.SetFocus
Exit Sub
fin:
MsgBox "Error", 32, "Mensaje"
End Sub
-------------------------------------------------------
Rem generar caracteres ascii(solo de 32 hasta 253)
Private Sub Command3_Click()
If Text1 > 253 Then GoTo fin
a = Chr(Text1)
Rem mandar el resultado al text2
Text2.SelText = a
Text1.Text = ""
Text1.SetFocus
Exit Sub
fin:
MsgBox "Error de lectura", 32, "Mensaje"
End Sub
-------------------------------------------------------