Функция createmultisig ($ nReq, $ ключи, $ sortkeys = TRUE) {
 $ Отлаживать = FALSE;

 // Я всегда сортировать ключи, так что я в конечном итоге с каноническим адресом p2sh для любого заданного набора ключей и параметров
 // если вы проверяете это против другой реализации, отключить сортировку, или поместить их в отсортированном порядке перед вызовом другого кода
 если ($ sortkeys) сортировать ($ ключи, SORT_STRING);

 // P2SH multisig в ​​Bitcoin требует ключей между 2 и 16 (включительно)
 // это представляется в основном быть из-за PUSH_x опкодами однобайтными, 0x52 до 0x60
 если ($ nReq<2 ИЛИ $ nReq>16 ИЛИ $ nReq>подсчитывать (ключи $)) возвращают FALSE;

 // структура P2SH multisig очень просто. Этот короткий блок компонует redeemscript
 $ Rs = CHR (0x50 + $ nReq);
 в то время как (список ($ ключ, $ Val) = каждый ($ ключи)) {
  $ БПК = HEX2BIN ($ Val);
  $ Rs = CHR (STRLEN ($ БПК)) $ БПК..;
 }
 $ Rs = CHR (0x50 + счетчик ($ ключи)).
 $ Rs = CHR (0xAE).

 // этот блок затем поворачивает искупит скрипт в адрес.
 // отладочные линии позволяют легко проверить каждый шаг сравнения с литературными примерами

 если ($ отлаживать) эхо "В: ". $ RS."\ п";
 $ Ч = хэш ("sha256", $ Р.С., TRUE);
 если ($ отлаживать) эхо "ЧАС: ".bin2hex ($ ч)."\ п";
 $ H2 = хэш ("ripemd160", $ Ч, TRUE);
 если ($ отлаживать) эхо "H2: ".bin2hex ($ h2)."\ п";
 $ H3 ="\ x05". $ H2;
 если ($ отлаживать) эхо "H3: ".bin2hex ($ h3)."\ п";
 $ H4 = хэш ("sha256", $ H3, TRUE);
 если ($ отлаживать) эхо "H4: ".bin2hex ($ h4)."\ п";
 $ H5 = хэш ("sha256", $ H4, TRUE);
 если ($ отлаживать) эхо "H5: ".bin2hex ($ h5)."\ п";
 $ CHK = зиЬзЬги ($ h5,0,4);
 если ($ отлаживать) эхо "Chk: ".bin2hex ($ ЧК)."\ п";
 $ Addr_bin = $ h3 $ ЧК.
 если ($ отлаживать) эхо "адр: ".bin2hex ($ addr_bin)."\ п";
 $ Адр = encodeBase58 ($ addr_bin);
 если ($ отлаживать) эхо $ адр."\ п";

 вернуть массив ("redeemScript"знак равно>bin2hex ($ RS),"адрес"знак равно>$ Адр);
}