@
XResh La verdad es que no quería comentar nada acerca de "Mid" para no molestarte y para no desviar el tema, pero me he fijado en tu insistencia sobre la función Mid y lo cierto es que no me gusta ver que se promueva el uso de Mid cuando estamos en .NET,
Lo digo porque "Mid" al igual que "left" "right" son funciones de VisualBasic 6 (usables en .NET), ...¿pero para que usarlas si tenemos clases y métodos de todo tipo que son obviamente mucho más rápidos y eficaces que los de VB6?
Un saludo!
@
AkiseSe puede apreciar cláramente que en tu código quieres definir tus própios caracteres cifrados (O al menos eso ha dado a entender), de ahí mi código algo largo, pero si prefieres algo reálmente corto puedes usar esto:
#Region " Encrypt-Decrypt String "
' [ Encrypt-Decrypt String Function ]
'
' // By Elektro H@cker
'
' Examples :
'
' MsgBox(Encrypt_Decrypt_String("Test")) ' Result: «šŒ‹
' MsgBox(Encrypt_Decrypt_String("«šŒ‹")) ' Result: Hello
Public Function Encrypt_Decrypt_String(ByVal Input As String) As String
Dim Output As String = String.Empty
For Each Ch As Char In Input
Output &= Asc(Ch)
' Application.DoEvents()
Next
Return Output
End Function
#End Region
EDITO:Si prefieres la versión larga donde puedes definir perféctamente los caracteres que tu quieras, aquí tienes:
#Region " Encrypt-Decrypt Text "
' [ Encrypt-Decrypt Text Function ]
'
' // By Elektro H@cker
'
' Examples :
'
' MsgBox(Encrypt_Text("Hello world")) ' Result: à`336 L6ë3m
' MsgBox(Decrypt_Text("à`336 L6ë3m")) ' Result: Hello world
' MsgBox(Encrypt_Text("¡ Hello world !", True)) ' Result: = <ÁÍÍÀ cÀ,Í3 Ï
' MsgBox(Decrypt_Text("= <ÁÍÍÀ cÀ,Í3 Ï", True)) ' Result: ¡ Hello world !
Public Shared Function Encrypt_Text(ByVal str As String, _
Optional ByVal Include_Special_Characters As Boolean = False) As String
Static Characters As Char()
Static Replacements As Char()
If Include_Special_Characters Then
Characters = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
Replacements = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
Else
Characters = _
"abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _
Replacements = _
{"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
' a, b, c, d, e, f, g, h, i, j, k, l, m, n, ñ, o, p, q, r, s, t, u, v, w, x, y, z, A, B, C, D, E, F, G, H, I, J, K, L, M, N, Ñ, O, P, Q, R, S, T, U, V, W, X, Y, Z, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, á, é, í, ó, ú, Á, É, Í, Ó, Ú, à, è, ì, ò, ù, À, È, Ì, Ò, Ù, ä, ë, ï, ö, ü, Ä, Ë, Ï, Ö, Ü, ç, Ç, º, ª, ¡, ¿, ·, ¬, `, ´, ¨, €
End If
Dim Temp_String As String = String.Empty
Dim Replacement_Found As Boolean = False
For Each character As Char In str
For x As Int32 = 0 To Characters.Length - 1
If character = Characters(x) Then
Replacement_Found = True
Temp_String &= Replacements(x)
Exit For
End If
Next
If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
Application.DoEvents()
Next
Return Temp_String
End Function
Public Shared Function Decrypt_Text(ByVal str As String, _
Optional ByVal Include_Special_Characters As Boolean = False) As String
Static Characters As Char()
Static Replacements As Char()
If Include_Special_Characters Then
Characters = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
Replacements = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
Else
Characters = _
{"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
' a, b, c, d, e, f, g, h, i, j, k, l, m, n, ñ, o, p, q, r, s, t, u, v, w, x, y, z, A, B, C, D, E, F, G, H, I, J, K, L, M, N, Ñ, O, P, Q, R, S, T, U, V, W, X, Y, Z, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, á, é, í, ó, ú, Á, É, Í, Ó, Ú, à, è, ì, ò, ù, À, È, Ì, Ò, Ù, ä, ë, ï, ö, ü, Ä, Ë, Ï, Ö, Ü, ç, Ç, º, ª, ¡, ¿, ·, ¬, `, ´, ¨, €
Replacements = _
"abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _
End If
Dim Temp_String As String = String.Empty
Dim Replacement_Found As Boolean = False
For Each character As Char In str
For x As Int32 = 0 To Characters.Length - 1
If character = Characters(x) Then
Replacement_Found = True
Temp_String &= Replacements(x)
Exit For
End If
Next
If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
Application.DoEvents()
Next
Return Temp_String
End Function
#End Region
Saludos!
Mostrar Mensajes
