Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias binencode { return $regsubex($1-, /(.)/g, $base($asc(\t), 10, 2, 8)) }
alias bindecode { return $regsubex($1-, /([01]{1,8})(?=(?:[01]{8})*$)/g, $chr($base(\t, 2, 10))) }
Binary çözmek için: $bindecode(011001010110110000110011001100110111010 0)
Binary yapmak için: $binencode(el33t)
Örn: //echo :: $binencode(el33t) ekranda 0110010101101100001100110011001101110100 olarak gözükür.
Umarım işine yarar...
(Kodu bir arkadaşım yazmıştı, biraz kısaltıp $regsubex'li hale getirdim.)