Cifrado del código fuente del mini programa

Oscurecer s como una cadena

Subcomando privado 1_Click()

S = InputBox("Ingrese una cadena en inglés:")

Para i = 1 a Len (s)

c = Medio(s, I, 1)

Medio(s, I, 1) = Chr(Asc(c) - 3

Siguiente yo

MsgBox("La cadena cifrada es:" & vbCrLf & s)

Conector final

Subcomando privado 2_Click()

Para i = 1 a Len(s)

c = Mid(s, I, 1)

Mid(s, I, 1) = Chr(Asc( c) + 3)

Siguiente yo

MsgBox("La cadena descifrada es: " & vbCrLf & s)

Conector final