Dudas en encriptacion por sustitucion
Publicado por Francisco Camacho (1 intervención) el 07/12/2008 23:59:56
Tengo este copdigo en VB6 que quiero usar para sustituir las letras por los valores descritos en la cadena codigocifrado pero cada sustitucion es 1 caracter por 2 pero me liga los codigos de sustitucion y no me cifra el primer caracter les agrdezco lo que me puedan indicar
Public Function Cifrado(ByVal Entrada As String, _
Optional CodigoOriginal As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 #$%.-,+*)(_", _
Optional CodigoCifrado As String = "3E3D3C3B3A393837363534333231AE302F2E2D2C2B2A29282726254F4E4D4C4B4A494847465F4F2F1F5152535455565720") As String
Dim i As Long
Dim j As Long
Dim retStr As String
Dim c As String * 1
Entrada = UCase(Entrada)
For i = 1 To Len(Entrada)
c = Mid(Entrada, i, 1)
j = InStr(2, CodigoOriginal, c)
If j > 0 Then
retStr = retStr & Mid(CodigoCifrado, j, 1)
Else
retStr = retStr & c
End If
Next i
Cifrado = retStr
End Function
Public Function Cifrado(ByVal Entrada As String, _
Optional CodigoOriginal As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 #$%.-,+*)(_", _
Optional CodigoCifrado As String = "3E3D3C3B3A393837363534333231AE302F2E2D2C2B2A29282726254F4E4D4C4B4A494847465F4F2F1F5152535455565720") As String
Dim i As Long
Dim j As Long
Dim retStr As String
Dim c As String * 1
Entrada = UCase(Entrada)
For i = 1 To Len(Entrada)
c = Mid(Entrada, i, 1)
j = InStr(2, CodigoOriginal, c)
If j > 0 Then
retStr = retStr & Mid(CodigoCifrado, j, 1)
Else
retStr = retStr & c
End If
Next i
Cifrado = retStr
End Function
Valora esta pregunta


0