Delphi - Convertir Texto a Binario

   
Vista:

Convertir Texto a Binario

Publicado por Gabriel Herrero (1 intervención) el 24/04/2009 18:54:00
Buenas tardes, estoy trabado con esto, esero alguien me pueda ayudar. Yo genero un archivo de texto con cierto formato, por ejemplo:

01000000000000000YRF 0000004444
020000000000000SDSD00SDS546445
5065476876856556654544DDSSSDDD

Lo guardo como archivo txt y no hay ningún problema, todo perfecto. El problema es que me piden que no lo guarde como texto, sino como binario. Algo como:

Pòöñööööööööøòððùðññöððððððððððððóõð@ðððððððöðô÷öñðó÷ô
Põðñööööööööøòððùðññöððððððòòöóòðððð@@@@@@@@ð@@
@@@@@@@@@@@@@@@@@@@@@ððððòòöóòðððð @ð@@

Por ejemplo, si tienes una imagen, le cambias la extensión a txt y lo abres, puedes ver miles de caracteres, eso es lo que necesito pero con texto.

Ayuda!!!.

De antemano gracias por tu tiempo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Convertir Texto a Binario

Publicado por E.T. (1107 intervenciones) el 24/04/2009 23:20:51
Podrias hacer una pseudo encriptación, prueba esto, inserta dos memos en una form y usa este codigo

procedure TForm1.Button2Click(Sender: TObject);
var i, j:integer;
a:string;
begin
Memo2.Lines.Clear;
for i:=0 to Memo1.Lines.Count-1 do begin
a:='';
for j:=1 to length(Memo1.Lines[i])do begin
a:=a+chr(ord(Memo1.Lines[i][j])-60);
end;
Memo2.Lines.Add(a);
end;
end;

Eso te convierte tu texto normal en caracteres similares a los que necesitas, pero este "encriptado" es muy sencilo y fácil de descifrar (esto si lo que pretendes es ocultar la información), pues no existe forma de guardar tu texto de otra forma, para decodificar en lugar de restar 60 sumas 60: a:=a+chr(ord(Memo1.Lines[i][j])+60);
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar