PARENT.sle_1.text=94075094015015015084015080
依据以下代码，求ls_s1值？请各位大侠帮帮忙，我解出来后一直都提示失败。


***************************************
//clicked (none) returns long [pbm_bnclicked]
//long ancestorreturnvalue
string ls_title
string ls_s1


CALL SUPER::clicked
ls_title = PARENT.title + " : " + THIS.text
f_write_log1(ls_title)
ls_s1 = "TEST-" + left(f_sumasc_pwddn(reverse(PARENT.sle_1.text)),4) + "-" + right(f_sumasc_pwddn(reverse(PARENT.sle_1.text)),4)
IF ls_s1 = PARENT.sle_4.text THEN //6
    registryset("hkey_local_machine\software\microsoft\windows\test","test",regstring!,ls_s1)
    messagebox("","OK!!")
    HALT
ELSE //6
    messagebox("","失败!",stopsign!)
    PARENT.sle_4.setfocus()
    RETURN
END IF //6
RETURN


********************************************

//Public function f_sumasc_pwddn (string ls_company) returns string 
//string ls_company
string ls_pwd
string ls_tmp
decimal li_len
decimal i_x


li_len = long(mid(ls_company,1,2))
ls_pwd = space(0)
ls_tmp = mid(ls_company,3)
FOR i_x = 0 TO li_len - 1.0 //3
    ls_pwd = ls_pwd + char(long(mid(ls_tmp,1,3)))
    ls_tmp = mid(ls_tmp,4)
NEXT //3
RETURN ls_pwd


*************************************************
//Public function f_write_log1 (string as_title) returns (none)
//string as_title


f_write_log(gs_user_id,gs_user_name,as_title)


*************************************************
//Public function f_write_log (ref string as_user_id,ref string as_user_name,ref string as_log_str) returns integer 
//string as_user_id
//string as_user_name
//string as_log_str
string date_time_str
string yyyy
string mm
string dd
string h
string m
string s
double d_id


yyyy = string(year(date(f_getdatetime())),"00")
mm = string(month(date(f_getdatetime())),"00")
dd = string(day(date(f_getdatetime())),"00")
h = string(hour(time(f_getdatetime())),"00")
m = string(minute(time(f_getdatetime())),"00")
s = string(second(time(f_getdatetime())),"00")
date_time_str = yyyy + "." + mm + "." + dd + ", " + h + ":" + m + ":" + s
select max ( id ) INTO :d_id from pub_login_log  USING sqlca;
IF isnull(d_id) THEN //18
    d_id = 1
ELSE //18
    d_id = d_id + 1
END IF //18
CONNECT USING sqlca;
insert into pub_login_log ( id , user_id , user_name , date_time , log_str , computer_name ) values ( :d_id , :as_user_id , :as_user_name , :date_time_str , :as_log_str , :gs_computer_name )  USING sqlca;
COMMIT USING sqlca;
RETURN 0