w_reg.srw

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

$PBExportHeader$w_reg.srw
forward
global type w_reg from Window
end type
type st_13 from statictext within w_reg
end type
type st_12 from statictext within w_reg
end type
type st_10 from statictext within w_reg
end type
type st_9 from statictext within w_reg
end type
type st_8 from statictext within w_reg
end type
type st_7 from statictext within w_reg
end type
type st_6 from statictext within w_reg
end type
type st_5 from statictext within w_reg
end type
type st_4 from statictext within w_reg
end type
type st_3 from statictext within w_reg
end type
type st_2 from statictext within w_reg
end type
type sle_13 from singlelineedit within w_reg
end type
type sle_12 from singlelineedit within w_reg
end type
type sle_11 from singlelineedit within w_reg
end type
type sle_10 from singlelineedit within w_reg
end type
type sle_9 from singlelineedit within w_reg
end type
type sle_8 from singlelineedit within w_reg
end type
type sle_7 from singlelineedit within w_reg
end type
type sle_6 from singlelineedit within w_reg
end type
type sle_5 from singlelineedit within w_reg
end type
type sle_4 from singlelineedit within w_reg
end type
type sle_3 from singlelineedit within w_reg
end type
type sle_2 from singlelineedit within w_reg
end type
type cb_9 from commandbutton within w_reg
end type
type cb_8 from commandbutton within w_reg
end type
type cb_7 from commandbutton within w_reg
end type
type cb_6 from commandbutton within w_reg
end type
type cb_5 from commandbutton within w_reg
end type
type cb_4 from commandbutton within w_reg
end type
type sle_1 from singlelineedit within w_reg
end type
type cb_2 from commandbutton within w_reg
end type
type st_1 from statictext within w_reg
end type
type cb_1 from commandbutton within w_reg
end type
type gb_3 from groupbox within w_reg
end type
type gb_2 from groupbox within w_reg
end type
type gb_1 from groupbox within w_reg
end type
type st_11 from statictext within w_reg
end type
type gb_4 from groupbox within w_reg
end type
end forward

global type w_reg from Window
int X=1056
int Y=484
int Width=2121
int Height=2144
boolean TitleBar=true
string Title="Encrypt DLL test"
long BackColor=80269524
boolean ControlMenu=true
boolean MinBox=true
boolean Resizable=true
st_13 st_13
st_12 st_12
st_10 st_10
st_9 st_9
st_8 st_8
st_7 st_7
st_6 st_6
st_5 st_5
st_4 st_4
st_3 st_3
st_2 st_2
sle_13 sle_13
sle_12 sle_12
sle_11 sle_11
sle_10 sle_10
sle_9 sle_9
sle_8 sle_8
sle_7 sle_7
sle_6 sle_6
sle_5 sle_5
sle_4 sle_4
sle_3 sle_3
sle_2 sle_2
cb_9 cb_9
cb_8 cb_8
cb_7 cb_7
cb_6 cb_6
cb_5 cb_5
cb_4 cb_4
sle_1 sle_1
cb_2 cb_2
st_1 st_1
cb_1 cb_1
gb_3 gb_3
gb_2 gb_2
gb_1 gb_1
st_11 st_11
gb_4 gb_4
end type
global w_reg w_reg

type prototypes
Function Boolean GetHardDiskId(ref string diskid,string regcode) Library "reg.dll";

Function Boolean MD5Encrypt(ref string InputStr,ref string OutputStr,ulong length,string regcode) Library "reg.dll";

Function Boolean GetDllVersion(ref string Version) Library "reg.dll";

Function Boolean BlowFishEncrypt(ref string InputStr,ref string KeyStr,ref string OutputStr,string regcode) Library "reg.dll";
Function Boolean BlowFishDecrypt(ref string InputStr,ref string KeyStr,ref string OutputStr,string regcode) Library "reg.dll";

Function Boolean EncryptStringFun2(ref string InBuffer,ref string KeyStr,ref string OutBuffer, string RegCode) Library "reg.dll";
Function Boolean DecryptStringFun2(ref string InBuffer,ref string KeyStr,ref string OutBuffer, string RegCode) Library "reg.dll";

Function Boolean RSAEncrypt(ref string lpInBuffer,ref string D_String,ref string N_String,int Mode,ref string lpOutBuffer, string RegCode) Library "reg.dll";
Function Boolean RSADecrypt(ref string lpInBuffer,ref string N_String,int Mode,ref string lpOutBuffer, string RegCode) Library "reg.dll";
end prototypes

forward prototypes
public subroutine msg ()
end prototypes

public subroutine msg ();MessageBox('请你注册','感谢使用共享软件加密算法库，注册后你将可以使用全部功能！')
end subroutine

on w_reg.create
this.st_13=create st_13
this.st_12=create st_12
this.st_10=create st_10
this.st_9=create st_9
this.st_8=create st_8
this.st_7=create st_7
this.st_6=create st_6
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.sle_13=create sle_13
this.sle_12=create sle_12
this.sle_11=create sle_11
this.sle_10=create sle_10
this.sle_9=create sle_9
this.sle_8=create sle_8
this.sle_7=create sle_7
this.sle_6=create sle_6
this.sle_5=create sle_5
this.sle_4=create sle_4
this.sle_3=create sle_3
this.sle_2=create sle_2
this.cb_9=create cb_9
this.cb_8=create cb_8
this.cb_7=create cb_7
this.cb_6=create cb_6
this.cb_5=create cb_5
this.cb_4=create cb_4
this.sle_1=create sle_1
this.cb_2=create cb_2
this.st_1=create st_1
this.cb_1=create cb_1
this.gb_3=create gb_3
this.gb_2=create gb_2
this.gb_1=create gb_1
this.st_11=create st_11
this.gb_4=create gb_4
this.Control[]={this.st_13,&
this.st_12,&
this.st_10,&
this.st_9,&
this.st_8,&
this.st_7,&
this.st_6,&
this.st_5,&
this.st_4,&
this.st_3,&
this.st_2,&
this.sle_13,&
this.sle_12,&
this.sle_11,&
this.sle_10,&
this.sle_9,&
this.sle_8,&
this.sle_7,&
this.sle_6,&
this.sle_5,&
this.sle_4,&
this.sle_3,&
this.sle_2,&
this.cb_9,&
this.cb_8,&
this.cb_7,&
this.cb_6,&
this.cb_5,&
this.cb_4,&
this.sle_1,&
this.cb_2,&
this.st_1,&
this.cb_1,&
this.gb_3,&
this.gb_2,&
this.gb_1,&
this.st_11,&
this.gb_4}
end on

on w_reg.destroy
destroy(this.st_13)
destroy(this.st_12)
destroy(this.st_10)
destroy(this.st_9)
destroy(this.st_8)
destroy(this.st_7)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.sle_13)
destroy(this.sle_12)
destroy(this.sle_11)
destroy(this.sle_10)
destroy(this.sle_9)
destroy(this.sle_8)
destroy(this.sle_7)
destroy(this.sle_6)
destroy(this.sle_5)
destroy(this.sle_4)
destroy(this.sle_3)
destroy(this.sle_2)
destroy(this.cb_9)
destroy(this.cb_8)
destroy(this.cb_7)
destroy(this.cb_6)
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.sle_1)
destroy(this.cb_2)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.gb_3)
destroy(this.gb_2)
destroy(this.gb_1)
destroy(this.st_11)
destroy(this.gb_4)
end on

type st_13 from statictext within w_reg
int X=78
int Y=1860
int Width=283
int Height=76
boolean Enabled=false
string Text="加密结果："
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 st_12 from statictext within w_reg
int X=78
int Y=1760
int Width=283
int Height=76
boolean Enabled=false
string Text="加密字串："
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 st_10 from statictext within w_reg
int X=78
int Y=1660
int Width=283
int Height=76
boolean Enabled=false
string Text="模数 N ："
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 st_9 from statictext within w_reg
int X=78
int Y=1284
int Width=283
int Height=76
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 st_8 from statictext within w_reg
int X=78
int Y=1184
int Width=283
int Height=76
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 st_7 from statictext within w_reg
int X=78
int Y=1084
int Width=283
int Height=76
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 st_6 from statictext within w_reg
int X=78
int Y=832
int Width=283
int Height=76
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 st_5 from statictext within w_reg
int X=78
int Y=732
int Width=283
int Height=76
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 st_4 from statictext within w_reg
int X=78
int Y=632
int Width=283
int Height=76
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 st_3 from statictext within w_reg
int X=78
int Y=380
int Width=283
int Height=76
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 st_2 from statictext within w_reg
int X=78
int Y=280
int Width=283
int Height=76
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 sle_13 from singlelineedit within w_reg
int X=421
int Y=1852
int Width=1225
int Height=92
int TabOrder=170
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