Я столько написал и случайно закрыл вкладку :(

Проблема

Теория

Кодировка

Итак, хотим спросить *102# или в хексах (кто не знает, см. http://holman.id.au/apps/ipsms/default_alphabet.html ):

0x2A 0x31 0x30 0x32 0x23 или в 7битном представлении:

0101010 0110001 0110000 0110010 0100011

Меняем их местами 

0100011 0110010 0110000 0110001 0101010

Добавляем 5 нулей в начало и склеиваем

00000010 00110110 01001100 00011000 10101010

Снова переставляем их все и получаем что требовалось

AA 18 4C 36 02

Реализация алгоритма шифрования

  function PDUCode( src : String ) : String;
  var
    //Temporary storage
    tmpArray : array of Byte;
    l : ... Читать дальше »