w_reg.srw

（转）一个包含目前所有流行的加解密代码（RSA

type sle_12 from singlelineedit within w_reg
int X=421
int Y=1752
int Width=1225
int Height=92
int TabOrder=120
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_11 from singlelineedit within w_reg
int X=421
int Y=1652
int Width=1225
int Height=92
int TabOrder=110
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_10 from singlelineedit within w_reg
int X=421
int Y=1552
int Width=1225
int Height=92
int TabOrder=80
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_9 from singlelineedit within w_reg
int X=421
int Y=1276
int Width=1225
int Height=92
int TabOrder=180
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_8 from singlelineedit within w_reg
int X=421
int Y=1176
int Width=1225
int Height=92
int TabOrder=140
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_7 from singlelineedit within w_reg
int X=421
int Y=1076
int Width=1225
int Height=92
int TabOrder=60
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_6 from singlelineedit within w_reg
int X=421
int Y=824
int Width=1225
int Height=92
int TabOrder=190
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_5 from singlelineedit within w_reg
int X=421
int Y=724
int Width=1225
int Height=92
int TabOrder=210
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_4 from singlelineedit within w_reg
int X=421
int Y=624
int Width=1225
int Height=92
int TabOrder=200
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_3 from singlelineedit within w_reg
int X=421
int Y=372
int Width=1225
int Height=92
int TabOrder=160
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
boolean DisplayOnly=true
int Limit=12867
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type sle_2 from singlelineedit within w_reg
int X=421
int Y=272
int Width=1225
int Height=92
int TabOrder=30
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type cb_9 from commandbutton within w_reg
int X=1682
int Y=1652
int Width=320
int Height=92
int TabOrder=100
string Text="解密"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;if not RSADecrypt(sle_13.text,sle_11.text,0,sle_12.text,"user-123456789") then
	MessageBox('提示信息','发生不可预见的错误！')	
end if
end event

type cb_8 from commandbutton within w_reg
int X=1682
int Y=1552
int Width=320
int Height=92
int TabOrder=90
string Text="加密"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;if not RSAEncrypt(sle_12.text,sle_10.text,sle_11.text,0,sle_13.text,"user-123456789") then
	MessageBox('提示信息','输入不能为空或数据有误！')	
end if
end event

type cb_7 from commandbutton within w_reg
int X=1682
int Y=1176
int Width=320
int Height=92
int TabOrder=130
string Text="解密"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;if not DecryptStringFun2(sle_9.text,sle_8.text,sle_7.text,"user-123456789") then
	MessageBox('提示信息','发生不可预见的错误！')
end if
end event

type cb_6 from commandbutton within w_reg
int X=1682
int Y=1076
int Width=320
int Height=92
int TabOrder=70
string Text="加密"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;if isnull(sle_7.text) or isnull(sle_8.text) or len(sle_7.text) = 0 or len(sle_8.text) = 0 then
	MessageBox('提示信息','加密字串或加密密钥不能为空串！')
	return 
end if

if not EncryptStringFun2(sle_7.text,sle_8.text,sle_9.text,"user-123456789") then
	MessageBox('提示信息','发生不可预见的错误！')
end if
end event

type cb_5 from commandbutton within w_reg
int X=1682
int Y=724
int Width=320
int Height=92
int TabOrder=150
string Text="解密"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;if not BlowFishDecrypt(sle_6.text,sle_5.text,sle_4.text,"user-123456789") then
	MessageBox('提示信息','发生不可预见的错误！')
end if
end event

type cb_4 from commandbutton within w_reg
int X=1682
int Y=624
int Width=320
int Height=92
int TabOrder=50
string Text="加密"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;if isnull(sle_4.text) or isnull(sle_5.text) or len(sle_4.text) = 0 or len(sle_5.text) = 0 then
	MessageBox('提示信息','加密字串或加密密钥不能为空串！')
	return 
end if

if not BlowFishEncrypt(sle_4.text,sle_5.text,sle_6.text,"user-123456789") then
	MessageBox('提示信息','发生不可预见的错误！')
end if
end event

type sle_1 from singlelineedit within w_reg
int X=421
int Y=56
int Width=1225
int Height=92
int TabOrder=20
BorderStyle BorderStyle=StyleLowered!
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type cb_2 from commandbutton within w_reg
int X=1682
int Y=272
int Width=320
int Height=92
int TabOrder=40
string Text="加密"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;if not MD5Encrypt(sle_2.text,sle_3.text,len(sle_2.text),"user-123456789") then
	MessageBox('提示信息','发生不可预见的错误！')
end if
end event

type st_1 from statictext within w_reg
int X=73
int Y=64
int Width=379
int Height=72
boolean Enabled=false
string Text="硬盘序列号："
boolean FocusRectangle=false
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type cb_1 from commandbutton within w_reg
int X=1682
int Y=56
int Width=320
int Height=92
int TabOrder=10
string Text="Get"
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;
if GetHardDiskId(sle_1.text,"user-123456789") then
	sle_2.text = sle_1.text
	sle_4.text = sle_1.text
	sle_7.text = sle_1.text
else
	MessageBox('提示信息','发生不可预见的错误！')
end if

end event

type gb_3 from groupbox within w_reg
int X=37
int Y=988
int Width=2002
int Height=440
int TabOrder=230
string Text="EncryptStringFun2/DecryptStringFun2"
BorderStyle BorderStyle=StyleLowered!
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type gb_2 from groupbox within w_reg
int X=37
int Y=548
int Width=2002
int Height=408
int TabOrder=220
string Text="Blowfish"
BorderStyle BorderStyle=StyleLowered!
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type gb_1 from groupbox within w_reg
int X=37
int Y=204
int Width=2002
int Height=316
int TabOrder=250
string Text="MD5"
BorderStyle BorderStyle=StyleLowered!
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type st_11 from statictext within w_reg
int X=78
int Y=1560
int Width=283
int Height=76
boolean Enabled=false
boolean BringToTop=true
string Text="私钥 D ："
Alignment Alignment=Right!
boolean FocusRectangle=false
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type gb_4 from groupbox within w_reg
int X=37
int Y=1460
int Width=2002
int Height=544
int TabOrder=240
string Text="RSA"
BorderStyle BorderStyle=StyleLowered!
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type