Tema: Encriptacion
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/07/2010, 06:23
Avatar de VelascoCalderon
VelascoCalderon
 
Fecha de Ingreso: agosto-2007
Mensajes: 80
Antigüedad: 16 años, 8 meses
Puntos: 0
Exclamación Encriptacion

Buenas tardes amigos, a ver , les comento mi problema, estoy tratando de desencriptar y encriptar el archivo rpd de termina server. Para encriptar no tengo ningun problema, yo tengo una funcion que me encripta correctamente, por ejemplo encripto la palabra "prueba" y me devuelve lo siguiente:

AQAAANCMnd8BFdERjHoAwE/Cl+sBAAAAJg1pdTahZUicJVIWu4h4ogQAAAACAAAAAAADZgAAw AAAABAAAAAFW4OzIOjVMh82XEg2N3k1AAAAAASAAACgAAAAEAA AAGggceTMpjb016/J5tj8Q/wIAAAAn3XBcLKUj4sUAAAANm2tN/gIVIiz0dpjY1LJJJyxq9c=

Depués con el siguiente codigo:

result = Encrypt(keyType, _
Encoding.Unicode.GetBytes(plainText), _
Encoding.Unicode.GetBytes(entropy), _
description)
For i = 0 To result.Length - 1
encrypted = encrypted & Convert.ToString(result(i), 16).PadLeft(2, "0").ToUpper()
Next

Consigo pasar la clave a hexadecimal obteniendo lo siguiente:

01000000D08C9DDF0115D1118C7A00C04FC297EB0100000026 0D697536A165489C255216BB8878A204000000020000000000 03660000C0000000100000006248FF2AC90FF2F814D3FADA5E 6CAFC30000000004800000A00000001000000096F023392D56 D05E1E3F6504352232B910000000781A9C109AF8C5F15AEDBF A19CEBFA0514000000058DC2CB3942BCA41D0AC0024CCFF224 194B20F700


Ahora bien, aqui viene mi problema, no encuentro manera de: si me dan el codigo en hexadecimal pasarlo al valor alfanumerico anterior, alguien sabria ayudarme?

Gracias de antemano!