Busca Real Basic y Gambas, ambos compilan para windows y linux.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Dim tecla as String
tecla = "3"
Select Case tecla
Case is "1"
msgbox "uno"
Case is "2"
msgbox "dos"
Case is "3"
msgbox "tres"
end [color=Red]select [/color]
Function Cypher(Str As Variant) As String 'Función que cifra una cadena
Dim Temp As String, PwdChr As Integer
Dim EncryptKey As Integer
EncryptKey = Int(Sqr(Len(Str) * 100)) + 200
For PwdChr = 1 To Len(Str)
Temp = Temp + Chr(Asc(Mid(Str, PwdChr, 1)) Xor EncryptKey)
Next PwdChr
Cypher = Temp
End Function
variable = Cypher(Text1.Text)
Text2.Text = Cypher(var)