Forum: Object-Pascal / Delphi-Language
Delphi
by Samashy,
17. Sep 2008
Habe in dem Zusammenhang gleich noch eine Frage:
function CrGetTempName (const Extension: ansistring) : ansistring;
var
Buffer: array of ansichar;
begin
repeat
GetTempPath(SizeOf(Buffer) - 1, Buffer);
GetTempFileName(Buffer, '~', 1, Buffer);
Result := ChangeFileExt(Buffer, Extension);
Forum: Object-Pascal / Delphi-Language
Delphi
by Samashy,
17. Sep 2008
:bounce1: Danke!!! Funktioniert :hello:
Romy
Forum: Object-Pascal / Delphi-Language
Delphi
by Samashy,
17. Sep 2008
Ich muss ehrlich zugeben, dass ich den Quelltext zu meiner Frage ganz und gar nicht verstehe. Er kommt aus einer Passwortverschlüsselung. (Crypt32)
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString) xor (StartKey shr 8));