Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
- for characterIndex := 0 to 7 do
- begin
- UStql := Ord(v1[characterIndex]);
- Dec(UStql);
- UStql := UStql + characterIndex;
- Inc(UStql);
- v1[characterIndex] := Char(UStql);
- end;
- writeln(v0 + v1);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement