blob: 1e18ea127cd01f4623922fddd7bd88dc52884fdf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
program DoTags;
var
four_letters: string;
tag: int32;
begin
writeln ('Program for the calculation of 4 letter tags, little and big endian.');
writeln ('Enter 4 letters:');
readln (four_letters);
while length(four_letters) <> 4 do
begin
writeln ('This were ', length(four_letters), ' letter(s). Enter exactly 4 letters:');
readln (four_letters);
end;
tag := ord(four_letters[4]) or (ord(four_letters[3]) shl 8) or (ord(four_letters[2]) shl 16) or (ord(four_letters[1]) shl 24);
writeln ('BE-TAG: $', hexStr(tag, 8));
tag := ord(four_letters[1]) or (ord(four_letters[2]) shl 8) or (ord(four_letters[3]) shl 16) or (ord(four_letters[4]) shl 24);
writeln ('LE-TAG: $', hexStr(tag, 8));
if four_letters[1] = '0' then
begin
writeln ('Maybe you want a digital zero in the first position. Here you go:');
tag := ord(four_letters[4]) or (ord(four_letters[3]) shl 8) or (ord(four_letters[2]) shl 16);
writeln ('BE-TAG: $', hexStr(tag, 8));
tag := (ord(four_letters[2]) shl 8) or (ord(four_letters[3]) shl 16) or (ord(four_letters[4]) shl 24);
writeln ('LE-TAG: $', hexStr(tag, 8));
end;
end.
|
