まことさん、こんばんは。

下記スクリプトで変換します。

// メインスクリプト
blob terget_blob, get_blob, end_check
blob{4} conv_blob
long get_long, blob_count, blob_next
string get_hex
int loop_count, low_4bit, upp_4bit, li_00

terget_blob = blob(\" #8<@Fg}\") // テストデータ
blob_count = 1
do 
get_blob = blobmid(terget_blob, blob_count, 1)
if isnull(get_blob) then
else
li_00 = 0
blob_next = blobedit(conv_blob, 1, get_blob)
blobedit(conv_blob, blob_next, li_00)
get_long = long(conv_blob)
low_4bit = 0
upp_4bit = 0
for loop_count = 0 to 3
if uo_win32api.uf_get_bit(get_long, loop_count) then
low_4bit = low_4bit + (2^loop_count)
end if
if uo_win32api.uf_get_bit(get_long, loop_count + 4) then
upp_4bit = upp_4bit + (2^loop_count)
end if
Next
get_hex = get_hex + uo_win32api.uf_bin_to_hex(upp_4bit) + &
uo_win32api.uf_bin_to_hex(low_4bit)
blob_count ++
end if
loop until isnull(get_blob)

messagebox(\"blob to hex\", get_hex)

-------------------------------
関数、uf_bin_to_hexの定義

public function string uf_bin_to_hex (integer get_4bit_bin);
//      function :   uf_bin_to_hex(4bitバイナリを16進文字に変換)
//
//      input    :   integer  get_4bit_bin(4bitバイナリ)
//
//      return   :   string   関数の実行結果(16進文字、引数が15以上であれば空文字)

string ls_rtn

// 引数チェック
If (get_4bit_bin > 15) or (get_4bit_bin < 0) then
ls_rtn = \"\"
else
if get_4bit_bin < 10 then
ls_rtn = char(get_4bit_bin + 48)
else
ls_rtn = char(get_4bit_bin + 55)
end if
end if

return ls_rtn