[Страдалецъ]

Итак есть 4 байта данных и нам необходимо получить 4 числа по следующей схеме. Начиная с 9-го бита этой 32-битной последовательности взять 6 бит и полученный результат представить как символ/число. Затем уже с 15 бита снова взять 6 бит и сделать тоже самое, и так 4 раза сдвигаясь вправо по 6 бит.
Вот интересует ваше решение данной задачки ибо то как я это делаю мне как-то стремно даже выкладывать.

[Pilot_Red]

Представляю проект "Старая печатная машинка"

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var i:integer; begin ...........................  i:=63636363; ............................  c1:=i shl 8;  c1:=c1 shr 26;  c2:=i shl 14;   c2:=c2 shr 26;   c3:=i shl 20;   c3:=c1 shr 26;   c4:=i shl 26;   c4:=c4 shr 26; end

[lmikle]

Ничего не понял.

Так что-ли:

Код:

1 2 3 4 5 6 7 8 9 10 11

var   Src : DWORD;   A : String[4];   I : Integer; begin   Src := Src Shr 8;   For I := 1 To 4 Do     Begin       A[i] := Chr(Src Or 63); // 63 = 00111111       Src := Src Shr 6;     End;

[Страдалецъ]

В общем и я так сделал, только я сдвиг влево и вправо объединил как одно действие. Есть еще варианты?

[Страдалецъ]

Ага, а вот вариант lmikle уже несколько иначе работает. Уже интересно. Что еще интересно предложат пытливые умы.

[Страдалецъ]

Собственно это часть алгоритма кодирования Base64

[AND_REY]

Ещё вариант:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); Var  DW: DWORD;  //32b  B9, B15: Byte;    //8b  i: Integer; begin  //DW:= 16128;   //00000000 00000000 00111111 00000000  DW:= 1032192; //00000000 00001111 11000000 00000000  B9:= 0; B15:= 0;  For i:= 8 To 14 Do if ((DW Shr i) And 1) = 1 Then B9:= ((1 shl (i - 8)) Or B9);  For i:= 14 To 20 Do if ((DW Shr i) And 1) = 1 Then B15:= ((1 shl (i - 14)) Or B15);  //И.т.д.  Form1.Caption:= IntToStr(B15); //B = 63, 111111 end;

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   i: DWORD;   i1, i2, i3, i4: Byte; begin   i:=$EF7D1D99; // 111011 110111 110100 011101 10011001   i1:=(i shr 8) and $3f;   i2:=(i shr 14) and $3f;   i3:=(i shr 20) and $3f;   i4:=(i shr 26) and $3f; { 1D 34 37 3B } end;