Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  v
Language: PASCAL
Code:
Program chuitheconca;
var
characterIndex: Integer;
v0: array[0..7] of Char;
v1: array[0..7] of Char;
UStql: Integer;
Usvha: Integer;
begin
v0[5] := Char($75);
v0[4] := Char($68);
v0[6] := Char($0B);
v0[3] := Char($6D);
v0[0] := Char($63);
v0[2] := Char($6D);
v0[1] := Char($64);
v1[0] := Char($71); 
v1[5] := Char($70);
v1[6] := Char($FA); 
v1[1] := Char($74);
v1[2] := Char($6D);
v1[4] := Char($6F);
v1[3] := Char($60);
for characterIndex := 0 to 7 do
begin
Usvha := Ord(v0[characterIndex]);
Usvha := Usvha - characterIndex;
Inc(Usvha);
Usvha := Usvha xor characterIndex;
v0[characterIndex] := Char(Usvha);
end;
begin
UStql := Ord(v1[characterIndex]);
Dec(UStql);
UStql := UStql + characterIndex;
Inc(UStql);
v1[characterIndex] := Char(UStql);
End;
End.
Comments: