функция createmultisig($ nReq,$ ключи,$ sortkeysзнак равноПРАВДА) {
 если($ sortkeys)Сортировать($ ключи,SORT_STRING);
 если($ nReq<2 ИЛИ $ nReq>16 ИЛИ $ nReq>подсчитывать($ ключи))вернуть ЛОЖНЫЙ;
 $ Р.С.знак равноCHR(0x50+$ nReq);
 в то время как (список ($ ключ,$ Вэлзнак равнокаждый($ ключи)) {
  $ БПКзнак равноHEX2BIN($ Вэл);
  $ Р.С..знак равноCHR(StrLen($ БПК)).$ БПК;
 }
 $ Р.С..знак равноCHR(0x50+подсчитывать($ ключи));
 $ Р.С..знак равноCHR(0xae);

 $ чзнак равногашиш("Sha256",$ Р.С.,ПРАВДА);
 $ h2знак равногашиш("Ripemd160",$ ч,ПРАВДА);
 $ h3знак равно"\ X05".$ h2;
 $ h4знак равногашиш("Sha256",$ h3,ПРАВДА);
 $ h5знак равногашиш("Sha256",$ h4,ПРАВДА);
 $ CHKзнак равнозиЬзЬг($ h5,0,4);
 $ addr_binзнак равно$ h3.$ CHK;
 $ адрзнак равноencodeBase58($ addr_bin);
 вернуть массив ("RedeemScript"знак равно>bin2hex($ Р.С.),"адрес"знак равно>$ адр);
}
?>