w_mymd5.srw

md5单向散列加密算法,此压缩包,包含完整调用DLL源码,PB格式.导入后直接可以应用.

$PBExportHeader$w_mymd5.srw
forward
global type w_mymd5 from window
end type
type st_2 from statictext within w_mymd5
end type
type st_1 from statictext within w_mymd5
end type
type cb_1 from commandbutton within w_mymd5
end type
type mle_1 from multilineedit within w_mymd5
end type
type mle_2 from multilineedit within w_mymd5
end type
end forward

global type w_mymd5 from window
integer width = 2533
integer height = 1408
boolean titlebar = true
string title = "测试MyMD5_dll"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
st_2 st_2
st_1 st_1
cb_1 cb_1
mle_1 mle_1
mle_2 mle_2
end type
global w_mymd5 w_mymd5

type prototypes
function long MyMD5_GetMD5(ref string input,ref string output) library 'MyMD5.dll'

end prototypes

on w_mymd5.create
this.st_2=create st_2
this.st_1=create st_1
this.cb_1=create cb_1
this.mle_1=create mle_1
this.mle_2=create mle_2
this.Control[]={this.st_2,&
this.st_1,&
this.cb_1,&
this.mle_1,&
this.mle_2}
end on

on w_mymd5.destroy
destroy(this.st_2)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.mle_1)
destroy(this.mle_2)
end on

type st_2 from statictext within w_mymd5
integer x = 55
integer y = 624
integer width = 457
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "输出："
boolean focusrectangle = false
end type

type st_1 from statictext within w_mymd5
integer x = 55
integer y = 32
integer width = 457
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "输入："
boolean focusrectangle = false
end type

type cb_1 from commandbutton within w_mymd5
integer x = 1554
integer y = 16
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "生成"
end type

event clicked;string ls_input,ls_output
long ll_rtn
mle_2.text = ''
ls_input = trim(mle_1.text)
ls_output = space(255)
ll_rtn = MyMD5_GetMD5(ls_input,ls_output)
if ll_rtn >0 then
	mle_2.text = ls_output
else
	MessageBox('','错误')
end if
end event

type mle_1 from multilineedit within w_mymd5
integer x = 55
integer y = 160
integer width = 2030
integer height = 448
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
string text = "Input string here!"
borderstyle borderstyle = stylelowered!
end type

type mle_2 from multilineedit within w_mymd5
integer x = 55
integer y = 704
integer width = 2030
integer height = 528
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type