Espero se encuentre bien, lei un poco acerca de su clase pero quisiera q me ayudara, ya que tengo que presentar un programa para encriptar cadenas. Espero lea este mensaje. Que tenga un buen dia.
Por si me corresponde mi correo es kh1209@hotmail.com

Muchas gracias porque su codigo me sirvio para crear un programita que almacena passwords... 
saludos

EXCELENTES FUNCIONES GRACIAS POR PUBLICARLAS...

Es muy buena tu clase y facil de implementar gracias por compartirla me fue muy util

Se agradecen todas las ayudas que das para los que trabajamos en este,graciasssssssssss

Las encriptacion y desenciptacion no funcionan..

Carlos ... revisa lo que has hecho porque funciona a las mil maravillas!

LA VERDAD, A MI ME SIRVIO MUCHO, MUCHAS GRACIAS, SOBRE TODO FUE LA IDEA PARA ALGO UN POCO MAS COMPLEJO, SOLO UN DETALLE, COPIE EL TEXTO DE ABCDE.... Y LE FALTAN LAS "U"s Y tiene repetidas las "R" pueden tener problemas con ello, saludos

Excelente trabajo Pedro, solo tube un pequeño problemilla, a la hora que meti una cadena de 142 caracteres para desencriptar, algunos caracteres no los desencriptó correctamente, a que se debe?

Revisa que en los patrones de encriptación no haya letras repetidas.

Hace mucho tiempo cree un script que hace algo parecido, pero metes tu la propia clave. 

Aqui va...

http://www.forbescreations.com/Programacion/Encripta.htm

Me viene super bien. Muchas Gracias

gracias por esta explicacion usando aritmetica modular

Ya lo probe y todo bien. Se agradece el aporte.

Excelente publicación. Me sirvio mucho para un desarrollo que actualmente estoy trabajando

Tnks!

podria desencriptar un hash de md5 con .net ¿? o es de una sola via la encriptacion .. m dejaron crear un programa en .net que desencripte.

tengo varios programas que desencriptan MD5 y sha1 pero quiere q creo yo uno :S me darias un ejemplillo?¿

Ya que tienes programas que desencritan MD5 y SHA1 pasanoslos, ya que hasta donde yo sé, son algoritmos de suma y no son reversibles. :-)

MD5 no se puede desencriptar, idiota.

Hola queria ver si alguien me puede decir como se llama esta clase por que tengo que documentarlo en mi trabajo y no se como se llame porfa hechenme la mano

Porma me podrian mandar el nombre de esta clase es que lo necesito documentar para mi trabajo porfa hechanme la mano mi correo es fernando1987_8@hotmail.com y fer_rari_f1@hotmail.com

Hola alguien me puede decir como se llama esta clase por que necesito saber el nombre

Excelente opción de "encriptación"

Hola Muchas gracias por el documento, voy a usarlo para hacer mi implementacion en JAVA.

Le agradeceria si pudiese guiarme en la implementacion del algoritmo TEA, no encuentro una guia al respecto.

De antemano mil gracias

Aportaciones como la tuya nos ayudan a los que estamos empezando en esto. Gracias por tomarte la molestia de explicarlo con tanto detalle.

TENGO PROBLEMA CON EL MODULO QUE ESTA ESCRITO EN NET PERO QUE LO PASE A VB 6.0..ALGUNAS CADENAS NO LAS CONVIERTE...ALGUIEN ME PUEDE AYUDAR..DONDE ESTA EL ERROR...

Option Explicit
Private patron_busqueda As String
Private Patron_encripta As String
Public Function EncriptarCadena(ByVal cadena As String) As String
'patron_busqueda = "!Q$1zWmE2x.R%nT|c&YbU/@3vIaO#ñPsA4lSfDkFdf(G)jH5g?Jh6¿KqLp{ÑwZo7][XeCiVrB8\uNt9€M0y"
'Patron_encripta = "8\uNt9€Md0y7][XeCiVrB¿KqLp{ÑwZoG)jH5g?Jh6A4lSf.DkFf(@3vIaO#ñPs%nT|c&YbU/!Q$1zWmE2xR"
patron_busqueda = "qpwoeirutyQPWOEIRUTYañsld1234567890kfjghAÑSLDKFJGHzmxncbvZMXNCBV."
Patron_encripta = "zmxncbvZMXNCBVañsldkfjghAÑ.SLDKFJGHqpwoeirutyQPWOEIRUTY0987654321"
Dim idx As Integer
Dim result As String
For idx = 1 To Len(cadena)
result = result & EncriptarCaracter(Mid(cadena, idx, 1), Len(cadena), idx) ', patron_busqueda, Patron_encripta)
Next
EncriptarCadena = result
End Function
Private Function EncriptarCaracter(ByVal caracter As String, ByVal variable As Integer, ByVal a_indice As Integer) As String
'Dim caracterEncriptado As String
Dim indice, ResuBuscar As Integer
ResuBuscar = Buscar(patron_busqueda, caracter)
If ResuBuscar <> -1 Then
    indice = (ResuBuscar + variable + a_indice) Mod Len(patron_busqueda)
    If indice = 0 Then
        indice = indice + 1
    End If
    caracter = Mid(Patron_encripta, indice, 1)
    'EncriptarCaracter = caracter
    End If
EncriptarCaracter = caracter
End Function
Private Function Buscar(ByVal cCadena As String, ByVal caracter As String) As Integer
    Dim nLong As Integer
    Dim sw As Integer
    Dim nCont As Integer
    Dim cLt As String
    Dim nResp As Integer
    nCont = 1
    sw = 0
    nLong = Len(Trim(cCadena))
    Do While sw = 0 And nCont < nLong
        cLt = Mid(Trim(cCadena), nCont, 1)
        If cLt = caracter Then
            sw = 1
        Else
            nCont = nCont + 1
        End If
    Loop
    If nCont > nLong Then
        nResp = 0
    Else
        nResp = nCont
    End If
    Buscar = nResp
End Function
Public Function DesencriptarCadena(ByVal cadena As String) As String
Dim idx As Integer
Dim result As String
For idx = 1 To Len(cadena)
result = result & DesencriptarCaracter(Mid(cadena, idx, 1), Len(cadena), idx)
Next
DesencriptarCadena = result
End Function
Private Function DesencriptarCaracter(ByVal caracter As String, ByVal variable As Integer, ByVal a_indice As Integer) As String
'patron_busqueda = "!Q$1zWmE2x.R%nT|c&YbU/@3vIaO#ñPsA4lSfDkFdf(G)jH5g?Jh6¿KqLp{ÑwZo7][XeCiVrB8\uNt9€M0y"
'Patron_encripta = "8\uNt9€Md0y7][XeCiVrB¿KqLp{ÑwZoG)jH5g?Jh6A4lSf.DkFf(@3vIaO#ñPs%nT|c&YbU/!Q$1zWmE2xR"
patron_busqueda = "qpwoeirutyQPWOEIRUTYañsld1234567890kfjghAÑSLDKFJGHzmxncbvZMXNCBV."
Patron_encripta = "zmxncbvZMXNCBVañsldkfjghAÑ.SLDKFJGHqpwoeirutyQPWOEIRUTY0987654321"

Dim indice, a, ResuBuscar As Integer
ResuBuscar = Buscar(Patron_encripta, caracter)
If ResuBuscar <> -1 Then
    If (ResuBuscar - variable - a_indice) > 0 Then
        indice = (ResuBuscar - variable - a_indice) Mod Len(Patron_encripta)
    Else
        indice = Len(patron_busqueda) + ((ResuBuscar - variable - a_indice) Mod Len(Patron_encripta))
        a = indice
    End If
    indice = indice Mod (Len(Patron_encripta))
    If indice = 0 Then
    caracter = Mid(patron_busqueda, a, 1)
    Else
    caracter = Mid(patron_busqueda, indice, 1)
    End If
DesencriptarCaracter = caracter
End If
End Function

HOLA...ANTERIOR A ESTE COMENTARIO PUSEL EL CODIGO QUE PASE A VB 6.0..LA CADENAS ES ENCRIPTADA PERO AL DEVOLVERLA A SU ESTADO NORMAL...PIERDE ALGUN CARACTER..ES DECIR NO LA CONVIERTE CORRECTAMENTE A SU DESENCRIPTACION

Tengo un problema al tratar de desencriptar cadenas que tienen saltos de carro. Estoy trantando de encriptar o desencriptar un archivo completo pero cuando este tiene más de una linea la clase ya no funciona bien. He intentado agregar el espacio y el salto de carro a los patrones pero nada. Alguna sugerencia

Necesito implementar MD5 en Power Builder o algún otro algoritmo que no sea reversible, me pueden ayudar por favor? 

Yo lo probe y es exelente tu codigo pero necesitaria saber si aparte de las letras y de los numeros se pueden agregar simbolos como por ejemplo /*-+()/&% etc.., muchas gracias por tu ayuda.

no tienen en que pasar el tiempo por dios comprate una vida 

son una hueva

Hola, Quisiera saber si alguien ha traducido esto a JSP, ya que soy novato en esto y me gustaría encriptar una clave 

El método que utiliza esta clase es muy bueno... 
Al principio me funcionó bien, pero a medida que fui encriptando diferentes cadenas me surgieron problemas; aún más cuando alargaba o agrandaba estas cadenas. Esto me frustró bastante. Empecé a buscar otras formas y decidí mejor revizar que sucedía paso por paso.
El error que encontré esta en el uso del operador MOD ya que este retorna 'casi siempre' los valores que corresponden cuando se le llama a la variable 'Indice'.
El problema lo solucioné.
El algoritmo lo implementé en VB6 y le agregué una función para que me emulara el valor devueldo por el operador MOD de una forma más efectiva.
Haciendole algunas correctiones a los patrones, utilizando la función de emulación de MOD y agregandole más carácteres al patrón, obtuve excelentes resultados.
Por el momento evalúa bien todo lo que le he puesto.

La clase está perfecta, es de gran utilidad. 
Espero que mis comentarios le sean de utilidad.
Saludos para esa mente.

Solo para consultar...no es una pregunta técnica.
Saludos!

Como lo escribí anteriormente, al implementar el código en VB.6 hay que hacer modificaciones, ya que las cadenas no se manejan desde la posición 0, valor que devuelve el operardor MOD, dependiendo de la cadena, cuando se utiliza.
Luego de esto, me funciona perfectamente.
Saludos!

 hola  como estan..m piden en la u ingresar una frase i encriptarla k invente un algoritmo para esto...lo k pasa es k trabajo con vb.net c++  pero usando el "using namespace std" i todo eso k explica la pagina no se como traducirlo m explico...espero alguna respuesta porfa

alguien k m pueda ayudar con esto lo anterior de encriptacion de una frase en visual.net en c++ si es posible para entenderlo!!!

Hola,te pasaste con este ejemplo. Pero estoy interesado en encontrar el pseudocodigo de encriptacion sha-1. trabajo en desarrollo de facturaciónn electrónica y quiero construir mi propio componente de firma digital. quiero entender bien el proceso de encriptación. Si sabes donde puedo encontrarlo liberare el desarrollo de mi dll para que todos puedan usarlo libremente.

Muchas gracias.

Hola queria saber si alguien lo tiene como para vb 6.0 ?? 
Saludos Martin

Mi mail es mabrojo@gmail.com, si pueden mandarme algo muchas gracias

Saludos

nesecito que alguien me ayude 
intento migrar este cod a vb.net pero me crea unos cuantos errores quien podria ayudarme con ellos no es si no que miren el cod y me digan en las lineas que aparece el error que es el mismo en todas como debo de modificar los parametros que producen error.


Option Explicit

Public Const ENCRYPT As Long = 1, DECRYPT As Long = 2

Public Function EncryptString(UserKey As String, _
                                Text As String, _
                                Action As Single) As String
    
    Dim UserKeyX As String
    Dim temp     As Integer
    Dim Times    As Integer
    Dim I        As Integer
    Dim j        As Integer
    Dim N        As Integer
    Dim rtn      As String
    
    '//Get UserKey characters
    N = Len(UserKey)
    ReDim UserKeyASCIIS(1 To N)
    For I = 1 To N
        UserKeyASCIIS(I) = Asc(Mid(UserKey, I, 1))
    Next
        
    '//Get Text characters
    ReDim TextASCIIS(Len(Text)) As Integer
    For I = 1 To Len(Text)
        TextASCIIS(I) = Asc(Mid(Text, I, 1))
    Next
    
    '//Encryption/Decryption
    If Action = ENCRYPT Then
       For I = 1 To Len(Text)
           j = IIf(j + 1 >= N, 1, j + 1)
           temp = TextASCIIS(I) + UserKeyASCIIS(j)
           If temp > 255 Then
              temp = temp - 255
           End If
           rtn = rtn + Chr$(temp)
       Next
    ElseIf Action = DECRYPT Then
       For I = 1 To Len(Text)
           j = IIf(j + 1 >= N, 1, j + 1)
           temp = TextASCIIS(I) - UserKeyASCIIS(j)
           If temp < 0 Then
              temp = temp + 255
           End If
           rtn = rtn + Chr$(temp)
       Next
    End If
    
    '//Return
    EncryptString = rtn
End Function


de antemano gracias