FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
String a Cadena de Bytes a cadena Hexadecimal
Hola, estoy sufriendo con un requerimiento que se trata de lo siguiente:
- Tomar un Certificado(Llave Publica) y obtener el contenido. - El contenido del certificado pasarlo a un arreglo de Bytes. - El arreglo de Bytes convertirlo a una cadena Hexadecimal. Mis funciones son las siguientes: Código:
// Pasar la cadena con el contenido del Certificado a un arreglo de Bytes. function ArrOfByte(AStr: wideString): TByteArr; var j: integer; begin SetLength( Result, Length(AStr)) ; for j := 0 to Length(AStr) - 1 do Result[j] := ord(AStr[j + 1]) - 48; end; Código:
// Tomar cada elemento del arreglo de Bytes y convertirlo a Hex function ByteToHex(InByte:byte):shortstring; const Digits:array[0..15] of char='0123456789ABCDEF'; begin result:=digits[InByte shr 4]+digits[InByte and $0F]; end; Código:
// Load a digital certificate. success := cert.LoadFromFile(edtArchivoCer.Text); if (success <> 1) then begin ShowMessage(cert.LastErrorText); Exit; end; cadenawide := cert.GetEncoded; // Obtenemos el contenido del CER-PEM cadenabyte := ArrOfByte(cadenawide); //Contenido lo ponemos en un arreglo de Bytes cadenahex := ''; for i:= 0 to Length(cadenabyte) -1 do // Formo mi cadena en Hexadecimal begin cadenahex := cadenahex + ByteToHex(cadenabyte[i]); end; MemoRecep.Clear; MemoRecep.Lines.Add(cadenawide); memoCertificado.Clear; memoCertificado.Lines.Add(cadenahex); De antemano gracias por la ayuda. |
#2
|
||||
|
||||
Hola
Si no necesitas el arreglo de bytes para otra tarea, creo que podés ahorrar un paso:
Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Gracias por el Tip, voy a probarlo.
Saludos desde México. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Descomponer cadena @String | Alejo15x | Varios | 3 | 04-02-2010 03:23:21 |
Verificar cadena es Hexadecimal | yapt | Varios | 4 | 19-11-2009 16:37:51 |
Funcion para borrar la cadena que aparesca repetida dentro de otra cadena | flystar | Varios | 1 | 02-07-2007 23:51:10 |
Funcion para buscar cadena dentro de otra cadena y el numero de veces | flystar | Varios | 3 | 02-07-2007 22:48:08 |
convertir cadena hexadecimal a imagen | Barzaugc | SQL | 3 | 20-09-2006 16:06:44 |
|