?? exampsam.frm
字號(hào):
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束MF
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "0100010f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Application_Block_Psam(geU_TempKey16, "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Application_Block_Psam(geU_ForeverKey16, "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
End Sub
Private Sub Create_File_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'建MF
mbRet = MW.Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004050f0f0619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束MF
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Delete
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'建MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0004050f0f0619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub
Private Sub Credit_For_Load_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束MF
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "01000A0f000f1112345678")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "01000B0f000f111234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify_Psam("123456")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.UNBLOCK_Psam("12345678", "1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify_Psam("1234")
If Not mbRet Then MsgBox MW.Errshow
End Sub
Private Sub delete_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Sam_Delete
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub
Private Sub DES_CRYPT_Click()
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Write_Key_Psam(geU_WordInstall, "", "", "0100000f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Write_Key_Psam(geU_WordInstall, "", "", "0100280f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.sam_INIT_FOR_DESCRYPT_Psam("28", "01", "1234567890123456")
If Not mbRet Then MsgBox MW.Errshow
Dim psRet As String
mbRet = MW.Sam_DES_CRYPT_Psam("00", "1234567890123456", psRet)
'mbRet = mw.Sam_DES_CRYPT_Psam("05", "12345678901234561234567890123456", psRet)
If Not mbRet Then MsgBox MW.Errshow
End Sub
Private Sub External_Authentication_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束MF
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "0100000f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Write_Key_Psam(geU_WordInstall, "", "", "0100090f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
Dim pbRandom(8) As Byte
Dim pbOut(8) As Byte
mbRet = MW.Get_Challenge_Psam(geU_Random8, pbRandom())
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Internal_Authentication("01", pbRandom(), pbOut())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.External_Authentication("01", pbOut())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub
Private Sub Form_Load()
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
mbRet = MW.Com_Open(geU_Com1, geU_Baud9600)
If Not mbRet Then MsgBox MW.Errshow
End Sub
Private Sub Form_Unload(Cancel As Integer)
mbRet = MW.Com_Close
If Not mbRet Then MsgBox MW.Errshow
End Sub
Private Sub Get_Challenge_Click()
Dim pbRandom(12) As Byte
Dim psRandom As String * 16
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Get_Challenge_Psam(geU_Random4, pbRandom())
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Hex_To_Asc(pbRandom(0), psRandom, 8)
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Get_Challenge_Psam(geU_Random8, pbRandom())
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Hex_To_Asc(pbRandom(0), psRandom, 8)
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'建結(jié)束MF
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0004050f0f0619")
If Not mbRet Then MsgBox MW.Errshow
'建結(jié)束DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
Dim pbRandom0(8) As Byte
mbRet = MW.Sam_Get_Challenge_Psam(geU_Random4, pbRandom0())
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Get_Challenge_Psam(geU_Random8, pbRandom0())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'建結(jié)束MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
End Sub
Private Sub INIT_FOR_DESCRYPT_Click()
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Sam_Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Sam_Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進(jìn)制文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -