document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public abecedario As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 "
  4.  
  5. Public Sub _new()
  6.  
  7. End
  8.  
  9. Public Sub Form_Open()
  10.  
  11.   abecedario &= abecedario
  12.   Me.Center
  13.  
  14. End
  15.  
  16. Public Sub ButtonCifrar_Click()
  17.  
  18.   TextBoxMensajeCifrado.text = cifrar(TextBoxMensaje.text, ValueBoxDesplazamientoCifrar.value)
  19.  
  20. End
  21.  
  22. Public Sub ButtonDescifrar_Click()
  23.  
  24.   TextBoxMensajeDescifrar.text = descifrar(TextBoxMensaje2.text, ValueBoxDesplazamientoDescifrar.value)
  25.  
  26. End
  27.  
  28. \'cifrar
  29. Public Function cifrar(texto As String, numero As Integer) As String
  30.  
  31.   Dim a As Integer
  32.   Dim letra As String
  33.   Dim numeroLetra As Integer
  34.   Dim textoCifrado As String
  35.  
  36.   texto = Upper$(texto)
  37.  
  38.   For a = 0 To Len(texto) - 1
  39.    
  40.     letra = Mid$(texto, a + 1, 1)
  41.    
  42.     numeroLetra = InStr(abecedario, letra)
  43.    
  44.     textoCifrado &= Mid$(abecedario, (numeroletra + numero) Mod (Len(abecedario)), 1)
  45.   Next
  46.  
  47.   Return textoCifrado
  48.  
  49. End
  50.  
  51. \'
  52. \'descifrar
  53. Public Function descifrar(texto As String, numero As Integer) As String
  54.  
  55.   Dim a As Integer
  56.   Dim letra As String
  57.   Dim numeroLetra As Integer
  58.   Dim textoCifrado As String
  59.  
  60.   texto = Upper$(texto)
  61.   For a = 0 To Len(texto) - 1
  62.    
  63.     letra = Mid$(texto, a + 1, 1)
  64.    
  65.     numeroLetra = InStr(abecedario, letra)
  66.    
  67.     textoCifrado &= Mid$(abecedario & abecedario & abecedario, Len(abecedario) + (numeroletra - numero) Mod (Len(abecedario)), 1)
  68.   Next
  69.  
  70.   Return textoCifrado
  71.  
  72. End
');