Stringでやると、データの総受信料が増えるのと、
javaやcの8byteのlongを送受信するサーバーとの通信ができなくなるので、
byte配列でやることを考えました。

その後、ANDでのマスク処理を、256での割り算、
\演算子の処理をcurrencyでもいけるように割り算をつくって、
mod演算子の処理をcurrencyでいけるように割り算をつくっていけるようにしました。

result(7) = remaind(divide(val, (127@ ^ 7)), 256)
result(6) = remaind(divide(val, (256@ ^ 6)), 256)
result(5) = remaind(divide(val, (256@ ^ 5)), 256)
result(4) = remaind(divide(val, (256@ ^ 4)), 256)
result(3) = remaind(divide(val, (256@ ^ 3)), 256)
result(2) = remaind(divide(val, (256@ ^ 2)), 256)
result(1) = remaind(divide(val, (256@ ^ 1)), 256)
result(0) = remaind(divide(val, (256@ ^ 0)), 256)

で、currencyをばらして

(val(pos + 7) * 127@ ^ 7) + _
(val(pos + 6) * 256@ ^ 6) + _
(val(pos + 5) * 256@ ^ 5) + _
(val(pos + 4) * 256@ ^ 4) + _
(val(pos + 3) * 256@ ^ 3) + _
(val(pos + 2) * 256@ ^ 2) + _
(val(pos + 1) * 256@ ^ 1) + _
(val(pos + 0) * 256@ ^ 0)

で復元。