谁能够破解1039计时软件?有偿破解!
谁能够破解1039计时软件?有偿破解!软件下载地址:http://www.onlinedown.net/soft/41940.htm
联系方式:QQ:351391567
无心勿扰!
1039计时软件,花这么大精神有什么用？
:lol，这个软件据说都是试用版的。真的正式版没见过。。。。所以，本身程序都是阉割版 有点像学校排课的软件，呵呵。。。。 本帖最后由 omni 于 2011-3-15 13:41 编辑
搞定，需要站内m
string ls_ma
string ls_date1
string ls_date2
string ls_date3
string ls_num
string ls_date4
string ls_date
string ls_renzhen
string ls_zhuce
string ls_renzheng
string ls_zc
string ls_n[]
string ls_mi
integer i
string ls_servername
integer li_return
connection myconnect
string ls_sqldriver
integer return_i
string ls_mutex_name
string database_name
string server_name
string login_id
string login_password
string odbc_info
string ls_dbq
string ls_driver
string ls_fil
string ls_uid
integer li_driverid
integer li_safetransactions
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","jm",regstring!,ls_ma)
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","date",regstring!,ls_date1)
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","num",regstring!,ls_num)
registryget("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","system_date",regstring!,ls_date2)
registryget("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","open_date",regstring!,ls_date3)
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","renzheng",regstring!,ls_renzhen)
registryget("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","system_zhuce",regstring!,ls_zhuce)
ls_date = string(datetime(today(),now()),"yyyy-mm-dd")
ls_date1 = string(date(ls_date1),"yyyy-mm-dd")
ls_date2 = string(date(ls_date2),"yyyy-mm-dd")
if ((ls_date < ls_date1) or (ls_date < ls_date2)) then
messagebox("èí¼tìáê¾￡o","Ïμí3걼䱻¶ñòaDT¸Ä￡¬ÇëDT¸ÄÎaÕyè·μÄê±¼ä￡¡")
return
end if
registryset("hkey_current_user\software\microsoft\jm","date",regstring!,ls_date)
registryset("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","system_date",regstring!,ls_date)
ls_renzheng = ls_renzhen
for i = 1 to len(ls_renzheng)
ls_n = string(integer(mid(ls_renzheng,i,1)) * i)
next
for i = len(ls_renzheng) to 1 step -1
ls_n = string(integer(ls_n) * i)
next
for i = len(ls_renzheng) to 1 step -1
ls_zc = ls_zc + ls_n
next
for i = 1 to len(ls_zc) step 3
ls_n = mid(ls_zc,i,1)
ls_mi = ls_mi + ls_n
next
if ls_renzhen <> ls_zhuce then
messagebox("Ïμí3ìáê¾","×￠2áÂë±»¶ñòaDT¸Ä￡¬ÇëDT¸Ä»ØÕyè·μÄ×￠2áÂë￡¬è»oó½øDDèÏÖ¤￡¡")
open(w_main1)
else
if ls_ma = ls_mi and ls_ma <> "" and ( not isnull(ls_ma)) then
registryset("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","jm",regstring!,ls_mi)
registryget("hkey_local_machine\system\currentcontrolset\control\computername\computername","computername",regstring!,ls_servername)
myconnect = create connection
myconnect.drivernameset("WinSock")
myconnect.applicationnameset("1433")
myconnect.locationnameset(ls_servername)
li_return = myconnect.connecttoserver()
return_i = registryget("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\SQL Server","Driver",regstring!,ls_sqldriver)
if return_i <> 1 then
messagebox("Ïμí3ìáê¾",ls_servername + "»1ûóD°2×°SQL Server!~nÇë°2×°oóÔùÔËDD±¾3ìDò￡¡")
return
end if
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","DATABASE_NAME",regstring!,database_name)
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","SERVER_NAME",regstring!,server_name)
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","LOGIN_ID",regstring!,login_id)
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","LOGIN_PASSWORD",regstring!,login_password)
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","odbc_info",regstring!,odbc_info)
sqlca.dbms = "MSS Microsoft SQL Server 6.x"
sqlca.database = database_name
sqlca.servername = server_name
sqlca.logid = login_id
sqlca.logpass = login_password
sqlca.autocommit = false
sqlca.dbparm = ""
connect using sqlca;
if sqlca.sqlcode = 0 then
open(w_fm)
else
if odbc_info <> "" then
sqlca.dbms = "ODBC"
sqlca.autocommit = false
odbc_info = "DSN=" + odbc_info + ";UID=sa;PWD="
sqlca.dbparm = "ConnectString='" + odbc_info + "'"
connect using sqlca;
if sqlca.sqlcode <> 0 then
messagebox("ᬽóêy¾Y¿a","êy¾Y¿aᬽó·￠éú′íÎó:~nÇëéèÖÃÏμí3ᬽó2Îêy.",stopsign!,ok!)
open(w_system_logo_set)
else
open(w_fm)
end if
else
ls_dbq = "jxgl"
ls_driver = ls_sqldriver
ls_fil = "(LOCAL)"
li_safetransactions = 0
registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","database",regstring!,ls_dbq)
registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","drive",regstring!,ls_driver)
registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","lastuser",regstring!,"sa")
registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","server",regstring!,ls_fil)
registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\ODBC DATA SOURCES","JXGL_YUE",regstring!,"SQL SERVER")
registryset("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","odbc_info",regstring!,"JXGL_YUE")
registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","odbc_info",regstring!,odbc_info)
sqlca.dbms = "ODBC"
sqlca.autocommit = false
odbc_info = "DSN=" + odbc_info + ";UID=sa;PWD="
sqlca.dbparm = "ConnectString='" + odbc_info + "'"
connect using sqlca;
if sqlca.sqlcode <> 0 then
messagebox("ᬽóêy¾Y¿a","êy¾Y¿aᬽó·￠éú′íÎó:~nÇëéèÖÃÏμí3ᬽó2Îêy.",stopsign!,ok!)
open(w_system_logo_set)
else
open(w_fm)
end if
end if
end if
else
open(w_main1)
end if
end if
按照上面的代码自己反算一下就行了！
伙计，你门都摸错鸟，要是能算出来，还真见鬼了 :):)或者谁有1039计时培训软件正式版 也可以联系我QQ351391567 你的QQ不让加，给个能加的QQ，这个就是给你准备滴 回复 omni 的帖子
现在可以加了！~~~~~~~ 呵呵 真热心呀 谢谢
页:
[1]
2