Category : Pascal Source Code
Archive   : CRKXOR.ZIP
Filename : CRACKXOR.PAS

program crackxor;
{Author: Andy Fugate}
uses crt;

const
DataArray:array [0..257] of byte =
( 23, 10, 28, 76, 94, 34, 65, 88, 62, 17, 66, 10, 0, 7, 16, 78,
6, 62, 21, 5, 21, 13, 62, 70, 72, 114, 24, 11, 11, 7, 6, 28,
3, 71, 47, 8, 6, 25, 67, 62, 14, 66, 52, 85, 17, 0, 13, 30,
27, 7, 19, 55, 69, 7, 9, 72, 46, 75, 73, 124, 120, 104, 50, 6,
2, 5, 11, 71, 47, 21, 25, 0, 84, 35, 64, 74, 114, 20, 12, 69,
11, 19, 10, 11, 20, 61, 12, 31, 9, 13, 43, 67, 66, 39, 27, 22,
69, 1, 13, 73, 29, 2, 45, 16, 27, 5, 89, 51, 14, 68, 33, 85,
7, 29, 30, 14, 7, 29, 14, 56, 0, 100, 102, 76, 36, 74, 13, 48,
0, 16, 1, 11, 5, 26, 1, 10, 43, 73, 73, 24, 69, 47, 14, 95,
55, 20, 14, 69, 30, 25, 6, 12, 11, 43, 8, 73, 5, 94, 106, 90,
69, 51, 1, 66, 0, 22, 8, 12, 29, 20, 39, 19, 12, 76, 94, 47,
77, 88, 32, 28, 22, 28, 99, 97, 10, 15, 9, 110, 23, 12, 8, 88,
41, 75, 13, 38, 29, 7, 69, 15, 9, 0, 2, 14, 58, 28, 73, 3,
75, 106, 90, 69, 55, 85, 23, 22, 11, 25, 26, 78, 1, 60, 10, 4,
76, 93, 47, 92, 75, 61, 7, 15, 12, 0, 12, 73, 26, 15, 43, 12,
27, 97, 39, 34, 71, 93, 34, 26, 18, 10, 26, 10, 4, 7, 73, 67,
111, 115);

procedure TestIt(KeyLength, PosToTest: integer; XorChar: byte;
var PosPassed: boolean);
var
CurPos: integer;
begin
for CurPos := 0 to 257 do
if (CurPos mod KeyLength) = PosToTest then
case DataArray[CurPos] xor XorChar of
10: ; {test for newline character}
12: ; {test for form feed character}
13: ; {test for carriage return character}
32..127: ; {test for "normal" character}
else exit;
end;
PosPassed := True;
end;

var
KeyLength,
PosToTest: integer;
XorChar: byte;
PosPassed,
AllPassed: boolean;

begin
clrscr;

for KeyLength := 6 to 258 do
begin
AllPassed := True;

for PosToTest := 0 to (KeyLength - 1) do
begin
PosPassed := false;
for XorChar := 32 to 127 do
TestIt (KeyLength, PosToTest, XorChar, PosPassed);
if PosPassed then
writeln ('KeyLength ', KeyLength, ' Postion ', PosToTest, ' passed')
else
AllPassed := False;
end;

write ('KeyLength ', KeyLength);
if AllPassed then
begin
writeln (' passed');
halt;
end
else
writeln (' failed');

end;

end.