hi,
das andere problem haben wir ja super gelöst
ich habe die datei verschlüsselt, wie kann ich sie jetzt auslesen???
ich habe schon mal eine simple verschlüsselung gemacht aber die war im programm und nicht von einer datei auslesen.
Delphi-Quellcode:
implementation
uses Unit2;
{$R *.dfm}
const
Codes64 = '
0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';
function Decode64(S:
string):
string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := '
';
a := 0;
b := 0;
for i := 1
to Length(s)
do
begin
x := Pos(s[i], codes64) - 1;
if x >= 0
then
begin
b := b * 64 + x;
a := a + 6;
if a >= 8
then
begin
a := a - 8;
x := b
shr a;
b := b
mod (1
shl a);
x := x
mod 256;
Result := Result + chr(x);
end;
end
else
Exit;
end;
end;
//---- Entschlüsselung Ende ----
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
myIni:TIniFile;
eRec:TSearchRec;
begin
If OpenDialog1.execute
then
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
//Edit6.Clear;
if FindFirst(ExtractFilePath(Application.ExeName) + '
*.ini', faanyfile, eRec) = 0
then begin
repeat;
if (eRec.
Name <> '
.')
and (eRec.
Name <> '
..')
then begin
myini := TIniFile.Create(ExtractFilePath(Application.ExeName) + eRec.
Name);
Edit1.Text := myini.ReadString('
FTP','
IP','
N/A');
Edit2.Text := myini.ReadString('
FTP','
user','
N/A');
Edit3.Text := myini.ReadString('
FTP','
pass','
N/A');
Edit4.Text := myini.ReadString('
FTP','
Path','
N/A');
Edit5.Text := myini.ReadString('
FTP','
Port','
N/A');
end;
until FindNext(eRec) <> 0;
FindClose(eRec);
end;
begin
try
ListView1.Items.Clear;
ListView1.ViewStyle := vsReport;
i:=1;
while (myini.ValueExists('
DATEN',IntToStr(i)))
do
begin
Listitem := listview1.Items.Add;
Listitem.Caption := myini.ReadString('
DATEN', IntToStr(i),'
N/A');
Listitem.SubItems.Add(myini.ReadString('
DATEN','
1.' + IntToStr(i),'
N/A'));
inc(i);
end;
finally
myini.Free;
end;
end;
end;
end;
hier das programm zum entschlüsseln und verschlüsseln
http://www.downtown.madcity.de/paul/prog/Base64.rar
wäre über jede hilfe dankbar
mfg Paul