HOLA!!!
TABLA Y LINK ACTUALIZADOS!
GRACIAS POR LEER!!!
TABLA Y LINK ACTUALIZADOS!
GRACIAS POR LEER!!!
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úPrivate Function Codificar(Source As String, CodeTable As String, SingleCodeLen As Long) As String
Dim X As Long
If Not Len(CodeTable) = 26 * SingleCodeLen Then Codificar = "Error, Invalid CodeTable Length": Exit Function
For X = 1 To 26
Source = Replace$(Source, Chr(X + 96), Mid(CodeTable, X * SingleCodeLen - (SingleCodeLen - 1), SingleCodeLen))
Next
Codificar = Source
End Function
Private Sub Form_Load()
Debug.Print Codificar("abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 1)
End
End Sub
Cita de: Di~OsK en 4 Febrero 2011, 02:27 AM
si haces tal cosa, existirias en 2 partes al mismo tiempo.. piensalo, es como tener dos yo y debe morir uno