Advertisement
Guest User

Untitled

a guest
Aug 3rd, 2019
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.92 KB | None | 0 0
  1. Program chuitheconca;
  2. var
  3.   characterIndex: Integer;
  4.   v0: array[0..7] of Char;
  5.   v1: array[0..7] of Char;
  6.   UStql: Integer;
  7.   Usvha: Integer;
  8. begin
  9.   v0[5] := Char($75);
  10.   v0[4] := Char($68);
  11.   v0[6] := Char($0B);
  12.   v0[3] := Char($6D);
  13.   v0[0] := Char($63);
  14.   v0[2] := Char($6D);
  15.   v0[1] := Char($64);
  16.   v1[0] := Char($71);
  17.   v1[5] := Char($70);
  18.   v1[6] := Char($FA);
  19.   v1[1] := Char($74);
  20.   v1[2] := Char($6D);
  21.   v1[4] := Char($6F);
  22.   v1[3] := Char($60);
  23.  
  24.   for characterIndex := 0 to 7 do
  25.   begin
  26.     Usvha := Ord(v0[characterIndex]);
  27.     Usvha := Usvha - characterIndex;
  28.     Inc(Usvha);
  29.     Usvha := Usvha xor characterIndex;
  30.     v0[characterIndex] := Char(Usvha);
  31.   end;
  32.   for characterIndex := 0 to 7 do
  33.   begin
  34.     UStql := Ord(v1[characterIndex]);
  35.     Dec(UStql);
  36.     UStql := UStql + characterIndex;
  37.     Inc(UStql);
  38.     v1[characterIndex] := Char(UStql);
  39.   end;
  40.   writeln(v0 + v1);
  41. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement