cesar

' Gambas class file

Public abecedario As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 "

Public Sub _new()

End

Public Sub Form_Open()

  abecedario &= abecedario
  Me.Center

End

Public Sub ButtonCifrar_Click()

  TextBoxMensajeCifrado.text = cifrar(TextBoxMensaje.text, ValueBoxDesplazamientoCifrar.value)

End

Public Sub ButtonDescifrar_Click()

  TextBoxMensajeDescifrar.text = descifrar(TextBoxMensaje2.text, ValueBoxDesplazamientoDescifrar.value)

End

'cifrar
Public Function cifrar(texto As String, numero As Integer) As String

  Dim a As Integer
  Dim letra As String
  Dim numeroLetra As Integer
  Dim textoCifrado As String

  texto = Upper$(texto)

  For a = 0 To Len(texto) - 1

    letra = Mid$(texto, a + 1, 1)

    numeroLetra = InStr(abecedario, letra)

    textoCifrado &= Mid$(abecedario, (numeroletra + numero) Mod (Len(abecedario)), 1)
  Next

  Return textoCifrado

End

'
'descifrar
Public Function descifrar(texto As String, numero As Integer) As String

  Dim a As Integer
  Dim letra As String
  Dim numeroLetra As Integer
  Dim textoCifrado As String

  texto = Upper$(texto)
  For a = 0 To Len(texto) - 1

    letra = Mid$(texto, a + 1, 1)

    numeroLetra = InStr(abecedario, letra)

    textoCifrado &= Mid$(abecedario & abecedario & abecedario, Len(abecedario) + (numeroletra - numero) Mod (Len(abecedario)), 1)
  Next

  Return textoCifrado

End