Wendy
15 de Mayo del 2004

Hola a todos.
Hice un programa en delphi que me abre un archivo tipo TXT, y lo guardo en un Ritch Edit o en un Memo; quisiera saber como desencriptar el archivo,
Es decir lo que tendr铆a que hacer es algo as铆
Abrir el archivo
Extrar el primer caracter
Aplicar el algoritmo
Repetir hasta el fin de archivo.
Una soluci贸n que tal vez ser铆a es hacer una unidad pero
¿Sirven las opciones nativas de pascal al crear una unidad?
El problema que me enfrento a estos controles es que no cuentan con un una funci贸n que me digan extraerme el primer rengl贸n, el segundo, o el primer caracter NADA.
O no se si me pudiran decir que control tiene esos comandos?

Agradeciendo de antemano sus atenciones.

dcelso
15 de Mayo del 2004

Puedes usar un Tstringlist auxiliar;
TStringList tempo=new TStringList;
tempo->LoadFromFile("archivoencriptado.txt");
tempo->Text=desencriptar(tempo->Text);
Memo1->Strings->Assign(ttempo);
delete tempo;
// para guardar es lo contrario
TStringList tempo=new TStringList;
tempo->Assign(Memo1->Strings);
tempo->Text=encriptar(tempo->Text);
tempo->SaveToFile("archivoencriptado.txt");
delete tempo
// las funciones desencriptar y encriptar estar谩n definidas como un AnsiString, al estilo esta puede ser
AnsiString encriptar (ansistring a)
{
ansistring b;
for (int i=1;i<=a->Length();i++)
{
b[i]=a[i]+1;
}
return b;
}
AnsiString desencriptar (ansistring a)
{
ansistring b;
for (int i=1;i<=a->Length();i++)
{
b[i]=a[i]-1;
}
return b;
}
Una encriptaci贸n un poco est煤pida pero es para ver el ejemplo.