[size=7]Guten Abend allerseits,[/size]
Mein Problem l?sst sich schwer beschreiben , ich hoffe ihr versteht mich.
Angemerkt sei nebenbei das ich delphi bis jetzt nur in der schule habe, also noch nicht der Pro bin.Es handelt sich um Api Crypten.
Ich habe diesen Code Vorliegen.
ZitatAlles anzeigenfunction Decrypt(Str : String; Key: string): String;
var
X, Y : Integer;
A : Byte;
begin
Y := 1;
for X := 1 to Length(Str) do
begin
A := (ord(Str[X]) and $0f) xor (ord(Key[Y]) and $0f);
Str[X] := char((ord(Str[X]) and $f0) + A);
Inc(Y);
If Y > length(Key) then Y := 1;
end;
Result := Str;
end;
Und hier die gecrypteten:
ZitatDLLHandle := LoadLibrary(pChar(deCrypt('hfpohn?7-gnm', 'scramble')));
DLLHandle2 := LoadLibrary(pChar(deCrypt('mwfma,hio', 'scramble')));
@VirtualAllocEx := GetProcAddress(DLLHandle, PChar(deCrypt('Ujpuxc`DoombHz', 'scramble')));
@VirtualProtectEx := GetProcAddress(DLLHandle, PChar(deCrypt('Ujpuxc`UqlvdnvI}', 'scramble')));
@ZwUnmapViewOfSection := GetProcAddress(DLLHandle2, PChar(deCrypt('YtWo`c|SjfuNkQifwjmo', 'scramble')));
Meine Frage ist nun,
Wie bekomme ich heraus, wenn ich den Key "Scramble" ?ndere, wie dieses dan encrypted aussieht?(in dem ersten falle ja hfpohn?7-gnm)
w?hre f?r jede hilfe dankbar
[size=7]Zerenda[/size]
PS: mir gef?llt eure Seite