Subversion Repositories decoder

Compare Revisions

Regard whitespace Rev 3 → Rev 4

/trunk/Quelltext/Main.pas
7,7 → 7,7
DECHash, DECCipher, registry, KAZip, shlobj, StdCtrls, math,
shellapi, Buttons, ComCtrls, ExtCtrls, inifiles, DragDropFile, DragDrop,
ImgList, base64, ZLib, wininet, OneInst, DCConst, Dialogs,
Menus{, XPMenu};
Menus, System.ImageList{, XPMenu};
 
type
TCase = (tcUnknown, tcEncrypted, tcDecrypted);
302,7 → 302,7
while GetTickCount-nStart < nDelay do
begin
Application.ProcessMessages;
Sleep(0);
Sleep(10);
end;
end;
 
592,10 → 592,10
// http://www.swissdelphicenter.ch/torry/showcode.php?id=144
function GetTempDir: string;
var
Buffer: array[0..MAX_PATH] of Char;
tempFolder: array[0..MAX_PATH] of Char;
begin
GetTempPath(SizeOf(Buffer) - 1, Buffer);
Result := StrPas(Buffer);
GetTempPath(MAX_PATH, @tempFolder);
result := StrPas(tempFolder);
end;
 
// http://www.delphipraxis.net/post50248.html
623,7 → 623,7
 
function Differency: Extended;
var
S: String;
S: AnsiString;
L,I: Integer;
begin
Result := 0.0;
639,7 → 639,7
const
Table = '^1234567890ß´qwertzuiopü+asdfghjklöä#<yxcvbnm,.-°!"§$%&/()=?`QWERTZUIOPÜ*ASDFGHJKLÖÄ''>YXCVBNM;:_';
var
S: String;
S: AnsiString;
L,I,J: Integer;
begin
Result := 0.0;
650,7 → 650,7
for I := 1 to L do
begin
J := Pos(S[I], Table);
if J > 0 then S[I] := Char(J);
if J > 0 then S[I] := AnsiChar(J);
end;
for I := 2 to L do
Byte(S[I-1]) := Byte(S[I-1]) - Byte(S[I]);