![]() |
Re: Fehlermeldung bei Verwendung von AssignFile
Bei Delphi 7 auch schon? Na gut, wenn es so geht, ist das natürlich schneller.
|
Re: Fehlermeldung bei Verwendung von AssignFile
// Edit: Quark. :oops:
Wäre es nicht besser und etwas sicherer noch eine kleine Verschlüsselung der Daten einzubauen ?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
type TPassword = record acData : array[0..255] of char; acControl : array[0..7] of char; end; var FPassword : File of TPassword; Password : TPassword; i : integer; sCUCMPath : String; function Moppel(XPasswords: TPassword): TPassword; var n: integer; begin ZeroMemory(@Result, sizeof(TPassword)); for n := 0 to length(XPasswords.acData)-1 do begin if n <= length(XPasswords.acControl)-1 then Result.acControl[n] := chr( n+1 xor ord(XPasswords.acControl[n]) ); Result.acData[n] := chr( n+1 xor ord(XPasswords.acData[n]) ); end; end; begin ZeroMemory(@Password, sizeof(TPassword)); Password.acData := 'Heidi Müller'; Password.acControl := 'DATABASE'; Password := Moppel(Password); sCUCMPath := 'C:'; AssignFile(FPassword, sCUCMPath + '\Users\Admin-User\Desktop\cucm32.cpw'); rewrite(FPassword); write(FPassword, Password); CloseFile(FPassword); showmessage(format('acData: %s'#13'acControl: %s', [Password.acData, Password.acControl])); // lesen AssignFile(FPassword, sCUCMPath + '\Users\Admin-User\Desktop\cucm32.cpw'); reset(FPassword); read(FPassword, Password); CloseFile(FPassword); Password := Moppel(Password); showmessage(format('acData: %s'#13'acControl: %s', [Password.acData, Password.acControl])); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz