>>118
大昔にやったような。

blob source //元データ
long p, m
int i

m = BlobLen(source)
for p = 1 to m
　i = Asc(Char(BlobMid(source,p,1)))
　mle_1.text += string(i) + " "
next

こんな感じ。