29.6
1 100
2
3. 5
50
4.
DES
50
H ASCll Pascal
Pascal :
proedure HexGrow
(
var Source: ByteArray;
var Target: WordArray
num: Word;
);
var
Index: integer;
LOWerbyte byte
UPPerByte byte;
Tgtlndex integer
begin
33. l
for Indes =1 toNum do
begin
Targst Tgtlndex] =((source Index]and FO shr4 41
Target[Tgtlndex 1 =(source[Index]and Of 41
Tgtlndex = Tglndex 2;
end;
end;
Pascal