l=thisform.o_textbox1.Value
c=len(alltrim(l))
k=STRCONV(c,15)
k=thisform.o_textbox2.Value

thisform.o_textbox2.Value = STRCONV(len(alltrim(thisform.o_textbox1.Value)),15)

SELECT 1
USE D:\fox1\alpha.dbf
SELECT 1 
i=ALLTRIM(thisform.o_textbox1.Value)
SCAN FOR ALLTRIM(alpha.alpha)=i
thisform.o_textbox2.Value=alpha.hex
endscan

lcText = "Hello world"
? STRCONV(m.lcText, 15)

SELECT 1
USE D:\fox1\alpha.dbf
SELECT 1 
i=ALLTRIM(thisform.o_textbox1.Value)
c=LEN(ALLTRIM(i))
inalpha=""
FOR d=1 TO c
l=SUBSTR(i,d,1)
SCAN FOR ALLTRIM(alpha.alpha)=l
inalpha=inalpha+ALLTRIM(alpha.hex)
endscan
endfor
thisform.o_textbox2.Value=inalpha

FUNCTION StrConv15(stroka)
s = stroka  && например, "строка"
h = ""  && ее hex-изображение
FOR i=1 TO LEN(s)
    a = ASC(SUBSTR(s,i))
    b = a%16  && младшие 4 бита
    a = INT(a/16)  && старшие 4 бита
    h = h + CHR(IIF(a<10, ASC("0")+a, ASC("A")+a-10))+;  && +старшие 4 бита буквой
            CHR(IIF(b<10, ASC("0")+b, ASC("A")+b-10))    && +младшие
ENDFOR

RIGHT(TRANSFORM(ASC(очередной_символ),"@0"),2)