正~信~华[校-园-管-理-信-息-系-统-WEB版]的一段源码

fh2096

该软件官方网站上可以下载
因为我没有安装成功所以不想破解了，我把部分源码贴出来，大家自己看吧
如果不够可以给我留言

1 -------------------------------------------------------------------------------------------------------
$PBExportHeader$uo_registry.sru
$PBExportComments$Export By Shu<KenShu@163.net>
forward
global type uo_registry from nonvisualobject
end type

end forward

global type uo_registry from nonvisualobject

end type
global uo_registry uo_registry



forward prototypes
Public function boolean  of_registry_app (string ls_app,string ls_zcm,string ls_zch,string ls_sbm)
Public function boolean  of_registry_checked (string ls_zch,string ls_zcm,string ls_sbm)
Public function string  of_registry_code (string ls_zch,string ls_app)
Public function string  of_sbh (string ls_zch,integer ll_bs)
Public function string  of_sbm ()
Public function string  of_zch ()
end prototypes
on uo_registry.create
//create (none) returns (none)


CALL SUPER::create
THIS.triggerevent("constructor")

end on

on uo_registry.destroy
//destroy (none) returns (none)


THIS.triggerevent("destructor")
CALL SUPER::destroy

end on

Public function boolean  of_registry_app (string ls_app,string ls_zcm,string ls_zch,string ls_sbm);//Public function of_registry_app (string ls_app,string ls_zcm,string ls_zch,string ls_sbm) returns boolean
//string ls_app
//string ls_zcm
//string ls_zch
//string ls_sbm
blob lb_tag1
blob lb_tag2
blob lb_tag3
long ll_row
string ls_computer
string ls_series
string ls_str
string ls_abd1
string ls_abd2
datastore ds_tag
datastore ds_bs
datastore ds_bz


randomize(0)
ds_tag = CREATE datastore
ds_tag.dataobject = "dw_tag"
ds_tag.settransobject(sqlca)
ds_tag.retrieve()
ll_row = ds_tag.find("app='" + ls_app + "'",1,ds_tag.rowcount())
IF ll_row < 1 THEN //18
    ll_row = ds_tag.insertrow(0)
    ds_tag.setitem(ll_row,"app",ls_app)
    ds_tag.setitem(ll_row,"tag6",uo_fun.of_encrypt(string(rand(99999999))))
    ds_tag.setitem(ll_row,"tag7",uo_fun.of_binary(string(rand(9999))))
    ds_tag.setitem(ll_row,"tag8",uo_fun.of_binary(string(rand(99999))))
    ds_tag.setitem(ll_row,"tag9",uo_fun.of_binary(string(rand(999999))))
END IF //18
ds_bs = CREATE datastore
ds_bs.dataobject = "dw_bs"
ds_bs.settransobject(sqlca)
ds_bs.retrieve()
ll_row = ds_bs.find("app='" + ls_app + "'",1,ds_bs.rowcount())
IF ll_row < 1 THEN //33
    ll_row = ds_bs.insertrow(0)
    ds_bs.setitem(ll_row,"app",ls_app)
    ds_bs.setitem(ll_row,"tag6",uo_fun.of_encrypt(string(rand(99999999))))
    ds_bs.setitem(ll_row,"tag7",uo_fun.of_binary(string(rand(9999))))
    ds_bs.setitem(ll_row,"tag8",uo_fun.of_binary(string(rand(99999))))
    ds_bs.setitem(ll_row,"tag9",uo_fun.of_binary(string(rand(999999))))
END IF //33
ds_bz = CREATE datastore
//SHU_ERROREMO_SCRIPT_LIMIT.
end function
Public function boolean  of_registry_checked (string ls_zch,string ls_zcm,string ls_sbm);//Public function of_registry_checked (string ls_zch,string ls_zcm,string ls_sbm) returns boolean
//string ls_zch
//string ls_zcm
//string ls_sbm
blob lb_tag1
blob lb_tag2
blob lb_tag3
long ll_row
string ls_computer
string ls_app
string ls_series
string ls_str
string ls_abd1
string ls_abd2
boolean lb_success


randomize(0)
IF (ls_zcm = THIS.of_registry_code(ls_zch,"xzbg") AND ls_sbm = THIS.of_sbm() OR ls_zcm = THIS.of_zch() AND ls_sbm = THIS.of_sbh(ls_zch,5)) THEN //13
    IF  NOT THIS.of_registry_app("xjgl",ls_zcm,ls_zch,ls_sbm) THEN //14
        messagebox(gs_inc + "软件","学籍管理系统注册失败!!!",exclamation!,ok!)
    END IF //14
    IF  NOT THIS.of_registry_app("szgl",ls_zcm,ls_zch,ls_sbm) THEN //17
        messagebox(gs_inc + "软件","师资管理系统注册失败!!!",exclamation!,ok!)
    END IF //17
    IF  NOT THIS.of_registry_app("xscj",ls_zcm,ls_zch,ls_sbm) THEN //20
        messagebox(gs_inc + "软件","成绩管理系统注册失败!!!",exclamation!,ok!)
    END IF //20
    IF  NOT THIS.of_registry_app("kcap",ls_zcm,ls_zch,ls_sbm) THEN //23
        messagebox(gs_inc + "软件","智能排课系统注册失败!!!",exclamation!,ok!)
    END IF //23
    IF  NOT THIS.of_registry_app("tsgl",ls_zcm,ls_zch,ls_sbm) THEN //26
        messagebox(gs_inc + "软件","图书管理系统注册失败!!!",exclamation!,ok!)
    END IF //26
    IF  NOT THIS.of_registry_app("tkgl",ls_zcm,ls_zch,ls_sbm) THEN //29
        messagebox(gs_inc + "软件","题库管理系统注册失败!!!",exclamation!,ok!)
    END IF //29
    IF  NOT THIS.of_registry_app("sbgl",ls_zcm,ls_zch,ls_sbm) THEN //32
        messagebox(gs_inc + "软件","设备管理系统注册失败!!!",exclamation!,ok!)
    END IF //32
    IF  NOT THIS.of_registry_app("gzmis",ls_zcm,ls_zch,ls_sbm) THEN //35
//SHU_ERROREMO_SCRIPT_LIMIT.
end function
Public function string  of_registry_code (string ls_zch,string ls_app);//Public function of_registry_code (string ls_zch,string ls_app) returns string
//string ls_zch
//string ls_app
string ls_zcm1
string ls_zcm2
string ls_zcm3
string ls_zcm4
string ls_str1
string ls_str2
string ls_str3
string ls_code
string ls_dm1
string ls_dm2
string ls_computer
string ls_series


ls_str1 = ls_zch
IF (ls_app = "zxcj" OR ls_app = "pxxj") THEN ls_app = "xscj"
ls_str2 = uo_fun.of_encrypt(ls_app)
ls_str3 = uo_fun.of_encrypt(gs_xxmc)
ls_dm1 = right(ls_str1,8)
ls_dm2 = left(ls_str1,8)
ls_zcm1 = string(double(ls_dm1) * double(ls_dm2) + 1357931)
ls_dm1 = right(ls_str2,8)
ls_dm2 = left(ls_str2,8)
ls_zcm2 = string(double(ls_dm1) * double(ls_dm2) + 2345678)
ls_dm1 = right(ls_str3,8)
ls_dm2 = left(ls_str3,8)
ls_zcm3 = string(double(ls_dm1) * double(ls_dm2) + 3489358)
ls_dm1 = right(ls_zcm1,8)
ls_dm2 = right(ls_zcm3,8)
ls_zcm4 = string(double(ls_dm1) * double(ls_dm2) + 3449489)
ls_code = left(string((double(left(ls_zcm2,6)) * double(left(ls_zcm4,5))) * 2 + (123 * 45678) * 9 + 345987439),10)
RETURN ls_code

end function
Public function string  of_sbh (string ls_zch,integer ll_bs);//Public function of_sbh (string ls_zch,integer ll_bs) returns string
//string ls_zch
//integer ll_bs


RETURN string(long(left(ls_zch,2)) * ll_bs + ll_bs * 10)

end function
Public function string  of_sbm ();//Public function of_sbm (none) returns string
string ls_sbm
string ls_str1
string ls_str2
string ls_str3
string ls_str4
string ls_str


ls_str = uo_fun.of_encrypt(gs_xxmc)
IF len(ls_str) < 20 THEN //10
    ls_str1 = string(dec(left(ls_str,6)) + 212345.0)
    ls_str2 = string(dec(right(ls_str,6)) + 218345.0)
    ls_str3 = string(dec(left(ls_str,6)) + 212945.0)
    ls_str4 = string(dec(right(ls_str,6)) + 212745.0)
ELSE //10
    ls_str = right(ls_str,20)
    ls_str1 = string(dec(mid(ls_str,1,6)) + 292345.0)
    ls_str2 = string(dec(mid(ls_str,6,6)) + 212355.0)
    ls_str3 = string(dec(mid(ls_str,11,6)) + 202345.0)
    ls_str4 = string(dec(mid(ls_str,15,6)) + 252345.0)
END IF //10
ls_sbm = left(string((dec(ls_str3) * dec(ls_str4)) * 2.0 + (dec(ls_str1) * dec(ls_str2)) * 2.0 + 2345432109.0),10)
RETURN ls_sbm

end function
Public function string  of_zch ();//Public function of_zch (none) returns string


RETURN string(((11 * 3) * 2) * 5 + 7 * 8) + string(dec(uo_fun.of_encrypt_old(gf_getstring("11811296"))) + dec(uo_fun.of_encrypt_old(gf_getstring("103112110")))) + string(2 - 2) + string(7 * 8 - 5 * 6 - 6 * 2 - 2) + string(700 - 17) + string(70 * 3)

end function


2 ------------------------------------------------------------------------------------------------------


$PBExportHeader$w_registry.srw
$PBExportComments$Export By Shu<KenShu@163.net>
forward
global type w_registry from window
end type
type cb_send from commandbutton within w_registry
end type
type uo_2 from uo_code within w_registry
end type
type uo_1 from uo_title within w_registry
end type
type cb_cancel from commandbutton within w_registry
end type
type cb_yes from commandbutton within w_registry
end type
type ln_3 from line within w_registry
end type
type ln_4 from line within w_registry
end type

end forward

global type w_registry from window
integer x=1170
integer y=940
integer width=2185
integer height=1336
boolean titlebar=TRUE
string title="软件注册"
boolean controlmenu=TRUE
windowtype windowtype=response!
long backcolor=79741120
string icon="None!"
cb_send cb_send
uo_2 uo_2
uo_1 uo_1
cb_cancel cb_cancel
cb_yes cb_yes
ln_3 ln_3
ln_4 ln_4

end type
global w_registry w_registry

on w_registry.create
//create (none) returns (none)


THIS.cb_send = CREATE cb_send
THIS.uo_2 = CREATE uo_2
THIS.uo_1 = CREATE uo_1
THIS.cb_cancel = CREATE cb_cancel
THIS.cb_yes = CREATE cb_yes
THIS.ln_3 = CREATE ln_3
THIS.ln_4 = CREATE ln_4
THIS.control = {THIS.cb_send,THIS.uo_2,THIS.uo_1,THIS.cb_cancel,THIS.cb_yes,THIS.ln_3,THIS.ln_4}

end on

on w_registry.destroy
//destroy (none) returns (none)


DESTROY THIS.cb_send
DESTROY THIS.uo_2
DESTROY THIS.uo_1
DESTROY THIS.cb_cancel
DESTROY THIS.cb_yes
DESTROY THIS.ln_3
DESTROY THIS.ln_4

end on

event open;//open (none) returns long [pbm_open]
string ls_str


uo_fun.of_movewindowtocenter(THIS)
SELECT num9 INTO :ls_str FROM sys_count WHERE bh ='1'  USING sqlca;
IF isnull(ls_str) THEN ls_str = ""
THIS.uo_2.sle_xxmc.text = gs_xxmc
IF ls_str = uo_fun.of_encrypt("STA") THEN //8
    THIS.uo_2.sle_code.text = uo_fun.of_registrycode() + "8"
ELSE //8
    THIS.uo_2.sle_code.text = uo_fun.of_registrycode() + "3"
END IF //8
THIS.uo_2.sle_1.setfocus()
RETURN

end event

type cb_send from commandbutton within w_registry
integer x=37
integer y=1104
integer width=375
integer height=88
integer taborder=40
integer textsize=-9
integer weight=400
fontcharset fontcharset=gb2312charset!
fontpitch fontpitch=variable!
string facename="宋体"
string text="发送(&S)"

end type
event clicked;//clicked (none) returns long [pbm_bnclicked]
mailsession lms_session
mailmessage lmm_message
mailrecipient lmr_recipient
mailreturncode lmr_return=mailreturnsuccess!
ulong ll_length
string ls_name
string ls_phone
string ls_address
string ls_post
string ls_www
string ls_fax
string ls_str


SELECT charge , phone , fax , address , postcode , www INTO :ls_name, :ls_phone, :ls_fax, :ls_address, :ls_post, :ls_www FROM sys_company WHERE company =:gs_xxmc  USING sqlca;
IF isnull(ls_name) THEN ls_name = ""
IF isnull(ls_phone) THEN ls_phone = ""
IF isnull(ls_fax) THEN ls_fax = ""
IF isnull(ls_address) THEN ls_address = ""
IF isnull(ls_post) THEN ls_post = ""
IF isnull(ls_www) THEN ls_www = ""
ls_str = "学校名称：" + gs_xxmc + "~n注 册 码：" + uo_fun.of_registrycode() + "8"
ls_str = ls_str + "~n联系地址：" + ls_address + "    邮编：" + ls_post
ls_str = ls_str + "~n联 系 人：" + ls_name
ls_str = ls_str + "~n电    话：" + ls_phone
ls_str = ls_str + "~n主    页：" + ls_www
lmm_message.notetext = ls_str
lmm_message.subject = gs_inc + "软件注册!!!"
lmr_recipient.address = "zxh@zxh.com.cn"
lmr_recipient.name = gs_inc
lmr_recipient.recipienttype = mailto!
lmm_message.recipient[1] = lmr_recipient
lms_session = CREATE mailsession
lmr_return = lms_session.maillogon()
lmr_return = lms_session.mailsend(lmm_message)
IF lmr_return <> mailreturnsuccess! THEN //37
    messagebox(gs_inc + "软件","发送错误!!!",exclamation!,ok!)
ELSE //37
    messagebox(gs_inc + "软件","发送成功!!!")
END IF //37
//SHU_ERROREMO_SCRIPT_LIMIT.
end event

type uo_2 from uo_code within w_registry
integer x=352
integer y=296
integer taborder=10

end type
on uo_2.destroy
//destroy (none) returns (none)


CALL SUPER::destroy

end on

type uo_1 from uo_title within w_registry

end type
on uo_1.destroy
//destroy (none) returns (none)


CALL SUPER::destroy

end on

type cb_cancel from commandbutton within w_registry
integer x=1746
integer y=1104
integer width=375
integer height=88
integer taborder=30
integer textsize=-9
integer weight=400
fontcharset fontcharset=gb2312charset!
fontpitch fontpitch=variable!
string facename="宋体"
string text="取消(&C)"
boolean cancel=TRUE

end type
event clicked;//clicked (none) returns long [pbm_bnclicked]


closewithreturn(PARENT,"fail")
RETURN

end event

type cb_yes from commandbutton within w_registry
integer x=1349
integer y=1104
integer width=375
integer height=88
integer taborder=20
integer textsize=-9
integer weight=400
fontcharset fontcharset=gb2312charset!
fontpitch fontpitch=variable!
string facename="宋体"
string text="注册(&R)"
boolean default=TRUE

end type
event clicked;//clicked (none) returns long [pbm_bnclicked]
string ls_zcm
uo_registry uo_reg


uo_reg = CREATE uo_registry
ls_zcm = PARENT.uo_2.sle_code.text
ls_zcm = left(ls_zcm,len(ls_zcm) - 1)
IF uo_reg.of_registry_checked(ls_zcm,PARENT.uo_2.sle_1.text,PARENT.uo_2.sle_2.text) THEN //7
    messagebox(gs_inc + "软件","您已成功注册,谢谢您使用" + gs_inc + "软件!!!")
    closewithreturn(PARENT,"success")
ELSE //7
    messagebox(gs_inc + "软件","警告：注册失败，请与软件开发商联系!!!",stopsign!,ok!)
    closewithreturn(PARENT,"fail")
END IF //7
RETURN

end event

type ln_3 from line within w_registry
long linecolor=8421504
integer linethickness=1
integer beginy=1048
integer endx=2181
integer endy=1048

end type
type ln_4 from line within w_registry
long linecolor=16777215
integer linethickness=1
integer beginy=1052
integer endx=2181
integer endy=1052

end type

admin

正信华[校园管理信息系统WEB版]的一段源码 好用吗？

wangzhang

哪里有注册机

syzx

谁能提供注册机就好了！