Problema con TFileStream

[pelaorb68]

Entiendo perfectamente, lo que ahora no logro entender es que sentido tiene el FileStream......cuando hace casi lo mismo que TextFile......

Voy a intentar cifrar el texto antes de grabar........

Muchísimas gracias por sus prontas respuestas......

[[seoane]]

Los stream son herramientas muy potentes, cuando trabajes un poco mas con ellos te darás cuenta . En cuanto a lo de cifrar el texto, dependiendo de la seguridad que necesites, puedes usar trucos sencillos como este http://www.clubdelphi.com/trucos/index.php?id=53 o incluso como este, que todavía es mas sencillo y evita ciertos problemas con el random al trabajar en diferentes compiladores:

Código Delphi [-]
function Cifrar(Texto: string; Clave: Byte): string;
var
  i: integer;
begin
  Result:= '';
  for i:= 1 to Length(Texto) do
    Result:= Result + IntToHex(Byte(Texto[ i ]) xor Clave,2);
end;

function Descifrar(Texto: string; Clave: Longint): string;
var
  i: integer;
begin
  Result:= '';
  while Length(Texto) > 0 do
  begin
    if not TryStrToInt('$'+Copy(Texto,1,2),i) then
    begin
      Result:= '';
      Exit;
    end;
    Result:= Result + Char(Byte(i) xor Clave);
    Delete(Texto,1,2);
  end;
end;

Si lo que necesitas es SEGURIDAD con mayúsculas, te sugiero utilices algún algoritmo de cifrado algo mas fuerte: AES, Serpent, etc ... Existen componentes para realizar ese tipo de cifrados. Si buscas en los foros encontraras información sobre alguno

[dec]

Hola,

Disculpad si digo algo que verdaderamente sea absurdo, pero, ¿cómo es que yo recuerdo haber leído en algún libro (creo que sobre el lenguaje C), incluso en el que venían ejemplos, acerca de escribir en un archivo de texto los caracteres que fueran menester pero en (aquí el posible absurdo) binario, de tal modo que en realidad los caracteres fueran "ilegibles", salvo cuando los leíamos de nuevo nosotros, claro?

Es que intuyo que el compañero iba por ahí... no tanto por cifrar el contenido del archivo, que son dos cosas distintas, si es que esta que comento tiene razón de ser. Pero, ¡yo recuerdo haberlo leído! Una pena que no recuerde mucho más que eso...

No se me escapa que pueden escribirse "records" en un archivo de manera que los datos que se vean en el mismo sean un conglomerado de caracteres sin sentido aparente, pero, yo me estoy refiriendo (y creo que el compañero también) a hacerlo, digamos, directamente, sin "records", sino con funciones de "entrada/salida" para tal menester.

¿Qué decís vuestras mercedes? ¿Deliro?

[[seoane]]

Hombre Dec, me has dejado estrañado

En las cadenas de texto (strings) tanto en C como en delphi, se manejan de una forma similar (por lo menos internamente), cada caracter se corresponde con un byte. Si tu escribes esos bytes a un archivo, tal cual, tienes un archivo de texto completamente legible. El caracter 'A' es igual al byte 65, da lo mismo si en un archivo de texto guardas una 'A' que si en un archivo binario guardas el byte 65. La verdad me siento un poco tonto explicandote esto a ti que seguro ya lo sabes ....

Por ejemplo:

Código Delphi [-]
var
  F: File;
  T: TextFile;
  B: Byte;
begin
  AssignFile(T,'d:\1.txt');
  {$I-}
    Rewrite(T);
  {$I+}
  if IOResult=0 then
  begin
    Write(T,'Hola');
    CloseFile(T);
  end;

  AssignFile(F,'d:\1.bin');
  {$I-}
    Rewrite(F,1);
  {$I+}
  if IOResult=0 then
  begin
    B:= Ord('H');
    BlockWrite(F,B,1);
    B:= Ord('o');
    BlockWrite(F,B,1);
    B:= Ord('l');
    BlockWrite(F,B,1);
    B:= Ord('a');
    BlockWrite(F,B,1);
    CloseFile(F);
  end;
end;

En el ejemplo anterior, ambos archivos son iguales. Y el segundo no puede ser mas "binario" . La única forma de hacer ilegible una cadena es el cifrado, entendiendo que cifrado no solo incluye métodos de criptografía como AES, si no también métodos tan simples como cambiar cada carácter por otro.

[dec]

Hola,

Pues entonces debo estar confundiendo churras con merinas, como suele decirse.

Empezado por Domingo

La verdad me siento un poco tonto explicandote esto a ti que seguro ya lo sabes ....

¡Huy, no creas! Yo es que engaño mucho.

Gracias Seoane por la explicación y todo.