Desfire Ev1\Ev2\Ev3卡DES\3K3DES\AES加解密读写VB.Net示例源码

本示例使用发卡器：https://item.taobao.com/item.htm?spm=a21dvs.23580594.0.0.1d292c1bSxJTb6&ft=t&id=917152255720

Public Class Form1Public Declare Function pcdbeep Lib "OUR_MIFARE.dll" (ByVal xms As Integer) As BytePublic Declare Function pcdgetdevicenumber Lib "OUR_MIFARE.dll" (ByRef devicenumber As Byte) As BytePublic Declare Function getmifareversion Lib "OUR_MIFARE.dll" (ByRef cardtypestr As Byte, ByRef AtqaSak As Byte, ByRef versionbuf As Byte, ByRef versionlen As Byte, ByRef retsw As Byte) As BytePublic Declare Function cpurequest1 Lib "OUR_MIFARE.dll" (ByRef mypiccserial As Byte, ByRef myparam As Byte, ByRef myver As Byte, ByRef mycode As Byte, ByRef AtqaSak As Byte) As BytePublic Declare Function desfireselectapplication Lib "OUR_MIFARE.dll" (ByRef aid As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfireauthkeyev1 Lib "OUR_MIFARE.dll" (ByRef keybuf As Byte, ByVal keyid As Byte, ByVal authmode As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfirechangekeyev1 Lib "OUR_MIFARE.dll" (ByRef newkeybuf As Byte, ByVal keyid As Byte, ByVal authmode As Byte, ByVal zeno As Byte, ByRef oldkeybuf As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfireauthkeyev2 Lib "OUR_MIFARE.dll" (ByRef keybuf As Byte, ByVal keyid As Byte, ByVal authmode As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfireformatpicc Lib "OUR_MIFARE.dll" (ByRef retsw As Byte) As BytePublic Declare Function desfiredeleteapplication Lib "OUR_MIFARE.dll" (ByRef aid As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfirecreateapplication Lib "OUR_MIFARE.dll" (ByRef aid As Byte, ByVal keysetting As Byte, ByVal keynumver As Byte, ByVal keytype As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfirechangefilesettings Lib "OUR_MIFARE.dll" (ByVal fileid As Byte, ByVal comset As Byte, ByRef accessrights As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfirecreatestddatafile Lib "OUR_MIFARE.dll" (ByVal fileid As Byte, ByVal comset As Byte, ByRef accessrights As Byte, ByVal filesize As Int32, ByRef retsw As Byte) As BytePublic Declare Function desfircreatebackupdatafile Lib "OUR_MIFARE.dll" (ByVal fileid As Byte, ByVal comset As Byte, ByRef accessrights As Byte, ByVal filesize As Int32, ByRef retsw As Byte) As Byte   Public Declare Function desfiregetfilesettings Lib "OUR_MIFARE.dll" (ByVal fileid As Byte, ByRef filesettingsbuf As Byte, ByRef revbuflen As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfiredeletefile Lib "OUR_MIFARE.dll" (ByVal fileid As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfirereaddata Lib "OUR_MIFARE.dll" (ByVal cmd As Byte, ByVal fileno As Byte, ByVal offset As Int32, ByVal datalen As Int32, ByRef databuf As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfirewritedata Lib "OUR_MIFARE.dll" (ByVal cmd As Byte, ByVal fileno As Byte, ByVal offset As Int32, ByVal datalen As Int32, ByRef databuf As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfiregetfileids Lib "OUR_MIFARE.dll" (ByRef fileidbuf As Byte, ByRef fidsize As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfiregetapplicationids Lib "OUR_MIFARE.dll" (ByRef aidbuf As Byte, ByRef aidsize As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfiregetkeysettings Lib "OUR_MIFARE.dll" (ByRef aidbuf As Byte, ByRef keysetting As Byte, ByRef keysize As Byte, ByRef retsw As Byte) As BytePublic Declare Function desfirechangekeysettings Lib "OUR_MIFARE.dll" (ByRef aidbuf As Byte, ByVal keysetting As Byte, ByRef retsw As Byte) As BytePrivate Sub MessageDispInfo(errno As Byte)  '函数返回状态解析Select Case errnoCase 0MessageBox.Show("操作成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)Case 8MessageBox.Show("请重新拿开卡后再放到感应区!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 23MessageBox.Show("错误代码：" + errno.ToString("D") + "，驱动程序错误或尚未安装！", "示例提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 24MessageBox.Show("错误代码：" + errno.ToString("D") + "，操作超时，一般是动态库没有反映！", "示例提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 25MessageBox.Show("错误代码：" + errno.ToString("D") + "，发送字数不够！", "示例提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 26MessageBox.Show("错误代码：" + errno.ToString("D") + "，发送的CRC错！", "示例提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 27MessageBox.Show("错误代码：" + errno.ToString("D") + "，接收的字数不够！", "示例提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 28MessageBox.Show("错误代码：" + errno.ToString("D") + "，接收的CRC错！", "示例提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 50MessageBox.Show("RATS错误，厂家调试代码，用户不需理会!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 51MessageBox.Show("PPS错误，厂家调试代码，用户不需理会!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 52MessageBox.Show("已进入了14443-4协议状态，可进行CPU卡功能所有操作了!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 53MessageBox.Show("CPU卡功能通讯错误!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 54MessageBox.Show("数据不足，需要接着发送未完成的数据至卡上!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 55MessageBox.Show("发送ACK指令给卡，让卡接着发送数据回来!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 56MessageBox.Show("清空根目录失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 57MessageBox.Show("卡片不支持功能!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 58MessageBox.Show("卡片初始化失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 59MessageBox.Show("分配的空间不足!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 60MessageBox.Show("本次操作的实体已存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 61MessageBox.Show("无足够空间!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 62MessageBox.Show("文件不存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 63MessageBox.Show("权限不足,有可能是用只读密码认证，导致无法更改读写密码或无法写文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 64MessageBox.Show("密码不存在，或密钥文件未创建!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 65MessageBox.Show("传送长度错误!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 66MessageBox.Show("Le错误，即接收的数据长度指定过大!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 67MessageBox.Show("功能不支持或卡中无MF 或卡片已锁定!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 68MessageBox.Show("密码认证错识次数过多，该密码已被锁死!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 86MessageBox.Show("更改后的密码长度必须和创建时的长度一致!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 87MessageBox.Show("应用目录不存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 88MessageBox.Show("应用文件不存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 89MessageBox.Show("文件号不能超过5!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 90MessageBox.Show("读取文件时返回的长度不足，数据可能不正确!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 91MessageBox.Show("一次读文件的长度不能超过255!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 92MessageBox.Show("一次写文件的长度不能超过247!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case 70Case 71Case 72Case 73Case 74Case 75Case 76Case 77Case 78Case 79Case 80Case 81Case 82Case 83Case 84Case 85MessageBox.Show("密码错误，剩余次数为" + Convert.ToString(errno - 70) + "，如果为0，该密码将锁死，无法再认证", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Case ElseMessageBox.Show("操作失败，返回错误代码！" + Convert.ToString(errno), "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)End SelectEnd SubFunction RetTextFromStr(ByVal inputstr As String) As String '卡操作返回代码解析RetTextFromStr = ""Select Case inputstrCase "9000"RetTextFromStr = "成功！"Case "9100"RetTextFromStr = "成功！"pcdbeep(20)Case "6281"RetTextFromStr = "回送的数据可能错误！"Case "6283"RetTextFromStr = "选择文件无效，文件或密钥校验错误"Case "6400"RetTextFromStr = "状态标志未改变"Case "6581"RetTextFromStr = "写 EEPROM 不成功！"Case "6700"RetTextFromStr = "长度错误"Case "6900"RetTextFromStr = "CLA 与线路保护要求不匹配"Case "6901"RetTextFromStr = "无效的状态！"Case "6981"RetTextFromStr = "命令与文件结构不相容"Case "6982"RetTextFromStr = "不满足安全状态"Case "6983"RetTextFromStr = "密钥被锁死！"Case "6984"RetTextFromStr = "MAC格式不符合"Case "6985"RetTextFromStr = "使用条件不满足"Case "6986"RetTextFromStr = "请先选择文件！"Case "6987"RetTextFromStr = "无安全报文"Case "6988"RetTextFromStr = "安全报文数据项不正确"Case "6A80"RetTextFromStr = "数据域参数错误！"Case "6A81"RetTextFromStr = "功能不支持或卡中无MF 或卡片已锁定"Case "6A82"RetTextFromStr = "文件未找到"Case "6A83"RetTextFromStr = "记录未找到！"Case "6A84"RetTextFromStr = "文件无足够空间"Case "6A86"RetTextFromStr = "参数P1 P2 错"Case "6A88"RetTextFromStr = "密钥未找到！"Case "6B00"RetTextFromStr = "在达到Le/Lc 字节之前文件结束，偏移量错误"Case "6E00"RetTextFromStr = "无效的CLA"Case "6F00"RetTextFromStr = "数据无效！"Case "9302"RetTextFromStr = "MAC 错误"Case "9303"RetTextFromStr = "应用已被锁定"Case "9401"RetTextFromStr = "金额不足！"Case "9403"RetTextFromStr = "密钥未找到！"Case "9406"RetTextFromStr = "所需的MAC 不可用！"Case "91AE"RetTextFromStr = "认证失败，请检查命行的参数和前期计算是否错误！"Case "91CA"RetTextFromStr = "上一个命令未完全完成！"Case "917E"RetTextFromStr = "指令长度错误！"Case "9140"RetTextFromStr = "当前目录或应用密钥不存在，请先选择正确的目录或应用！"Case "919D"RetTextFromStr = "处于未验证密码的状态，该指令无法操作！"Case "911E"RetTextFromStr = "MAC错误！"Case "91F0"RetTextFromStr = "该文件号不存在！"Case "919E"RetTextFromStr = "参数无效！"Case "91BE"RetTextFromStr = "试图读取/写入的数据超出文件/记录的边界！"Case "91A0"RetTextFromStr = "请求的 AID 不存在！"Case ElseIf inputstr.Substring(0, 3) = "63C" ThenDim i As Integer = Convert.ToInt16(inputstr.Substring(3, 1), 16)If i > 0 ThenRetTextFromStr = "再试 " + i.ToString("D") + " 次错误密码将锁定！"ElseRetTextFromStr = "密码已被锁定"End IfElseRetTextFromStr = "未知的异常"End IfEnd SelectReturn RetTextFromStrEnd FunctionFunction checkhexstr(ByVal inputstr As String, ByVal hexlen As Integer, ByRef bytebuf() As Byte) As Boolean  '判断16进制字符串数据是否正确Tryinputstr = inputstr.Replace(" ", "")     '去除空格inputstr = inputstr.Replace(vbCrLf, "")  '去除回车换行符inputstr = inputstr.Replace(vbLf, "")inputstr = inputstr.Replace(vbCr, "")Dim i As IntegerFor i = 0 To hexlen - 1bytebuf(i) = Convert.ToByte(Convert.ToInt32(inputstr.Substring(i * 2, 2), 16))NextReturn TrueCatch ex As ExceptionReturn FalseEnd TryEnd FunctionPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadcomboBox1.SelectedIndex = 0comboBox3.SelectedIndex = 0comboBox14.SelectedIndex = 0comboBox2.SelectedIndex = 0comboBox4.SelectedIndex = 0comboBox5.SelectedIndex = 1comboBox6.SelectedIndex = 1comboBox7.SelectedIndex = 1comboBox8.SelectedIndex = 1comboBox9.SelectedIndex = 0comboBox10.SelectedIndex = 14comboBox11.SelectedIndex = 14comboBox12.SelectedIndex = 14comboBox13.SelectedIndex = 14End SubPrivate Sub comboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboBox1.SelectedIndexChangedSelect comboBox1.SelectedIndex            Case 0textBox3.Text = "00 00 00 00 00 00 00 00"Case 1textBox3.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"Case 2textBox3.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"Case ElsetextBox3.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"End SelectEnd SubPrivate Sub comboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboBox3.SelectedIndexChangedSelect comboBox3.SelectedIndexCase 0textBox3.Text = "00 00 00 00 00 00 00 00"textBox4.Text = "00 00 00 00 00 00 00 00"Case 1textBox3.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"textBox4.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"Case 2textBox3.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"textBox4.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"Case ElsetextBox3.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"textBox4.Text = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"End SelectEnd SubPrivate Sub button4_Click(sender As Object, e As EventArgs) Handles button4.ClickDim xms As Integerxms = 50Dim status As Byte = pcdbeep(xms)If status <> 0 ThenMessageDispInfo(status)End IfEnd SubPrivate Sub button8_Click(sender As Object, e As EventArgs) Handles button8.ClickDim status As Byte   '存放返回值Dim devno(3) As Byte '设备编号status = pcdgetdevicenumber(devno(0))If status = 0 ThenMsgBox("设备编号：" + devno(0).ToString("D3") + "-" + devno(1).ToString("D3") + "-" + devno(2).ToString("D3") + "-" + devno(3).ToString("D3"), vbInformation + vbOKOnly, "提示")ElseMessageDispInfo(status)End IfEnd SubPrivate Sub button7_Click(sender As Object, e As EventArgs) Handles button7.ClickDim AtqaSak(3) As ByteDim retsw(1) As ByteDim versionbuf(100) As ByteDim versionlen(2) As ByteDim cardtypebuf(1024) As ByteDim status As Byte = getmifareversion(cardtypebuf(0), AtqaSak(0), versionbuf(0), versionlen(0), retsw(0))Dim cardtypestr As String = System.Text.Encoding.ASCII.GetString(cardtypebuf).Trim()Dim retstr As String = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status > 0 ThenMessageDispInfo(status)ElseMessageBox.Show("获取IC卡芯片型号操作，卡片返回代码：" + retstr + vbCrLf + "型号：" + cardtypestr, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button1_Click(sender As Object, e As EventArgs) Handles button1.ClickDim mypiccserial(7) As ByteDim myparam(4) As ByteDim AtqaSak(3) As ByteDim myver(1) As ByteDim mycode(1) As ByteDim cardhohex As String = ""Dim parastr As String = ""Dim verstr As String = ""Dim codestr As String = ""Dim i As IntegerDim status As Byte = cpurequest1(mypiccserial(0), myparam(0), myver(0), mycode(0), AtqaSak(0))If status = 0 Or status = 52 Thenpcdbeep(20)If AtqaSak(0) \ 64 > 0 ThenFor i = 0 To 6cardhohex = cardhohex + mypiccserial(i).ToString("X2")NextFor i = 0 To 3parastr = parastr + myparam(i).ToString("X2")Nextverstr = myver(0).ToString("X2")codestr = mycode(0).ToString("X2")textBox1.Text = cardhohexMessageBox.Show("激活Desfire卡成功，可以接着重复操作第二步进行调试了。" + vbCrLf + "16进制卡号：" + cardhohex + vbCrLf + "参数：" + parastr + vbCrLf + "版本信息：" + verstr + vbCrLf + "厂商代码(复旦为90)：" + codestr, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)ElseFor i = 0 To 3cardhohex = cardhohex + mypiccserial(i).ToString("X2")NextFor i = 0 To 3parastr = parastr + myparam(i).ToString("X2")Nextverstr = myver(0).ToString("X2")codestr = mycode(0).ToString("X2")textBox1.Text = cardhohexMessageBox.Show("激活FM1208CPU卡成功，可以接着重复操作第二步进行调试了。" + vbCrLf + "16进制卡号：" + cardhohex + vbCrLf + "参数：" + parastr + vbCrLf + "版本信息：" + verstr + vbCrLf + "厂商代码(复旦为90)：" + codestr, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfElseMessageDispInfo(status)End IfEnd SubPrivate Sub button2_Click(sender As Object, e As EventArgs) Handles button2.ClickDim aidbuf(3) As ByteDim retsw(1) As ByteDim retstr As String = ""If Not checkhexstr(textBox2.Text.Trim(), 3, aidbuf) ThenMessageBox.Show("十六进制AID输入错误，请输入3字节的16进制AID！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim status As Byte = desfireselectapplication(aidbuf(0), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status > 0 ThenMessageBox.Show("选择卡内应用AID操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("选择卡内应用AID操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button6_Click(sender As Object, e As EventArgs) Handles button6.ClickDim newkeybuf(24) As ByteDim oldkeybuf(24) As ByteDim retsw(1) As ByteDim retstr As StringDim keylen As IntegerSelect Case comboBox3.SelectedIndexCase 0keylen = 8Case 1keylen = 16Case 2keylen = 24Case Elsekeylen = 16End SelectIf Not checkhexstr(textBox4.Text.Trim(), keylen, newkeybuf) ThenMessageBox.Show("十六进制新密钥输入错误，请输入 " + keylen.ToString("D") + " 字节的16进制新密钥！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfIf Not checkhexstr(textBox3.Text.Trim(), keylen, oldkeybuf) ThenMessageBox.Show("十六进制旧密钥输入错误，请输入 " + keylen.ToString("D") + " 字节的16进制旧密钥！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim status As Byte = desfirechangekeyev1(newkeybuf(0), Convert.ToByte(keyid.Value), Convert.ToByte(comboBox3.SelectedIndex), 0, oldkeybuf(0), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status > 0 ThenMessageBox.Show("EV1更改密码操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("EV1更改密码操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button3_Click(sender As Object, e As EventArgs) Handles button3.ClickDim authkeybuf(24) As ByteDim retsw(1) As ByteDim retstr As StringDim keylen As IntegerSelect Case comboBox1.SelectedIndexCase 0keylen = 8Case 1keylen = 16Case 2keylen = 24Case Elsekeylen = 16End SelectIf Not checkhexstr(textBox3.Text.Trim(), keylen, authkeybuf) ThenMessageBox.Show("十六进制认证密钥输入错误，请输入 " + keylen.ToString("D") + " 字节的16进制认证密钥！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim status As Byte = desfireauthkeyev1(authkeybuf(0), Convert.ToByte(keyid.Value), Convert.ToByte(comboBox1.SelectedIndex), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("认证密码操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("认证密码操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button18_Click(sender As Object, e As EventArgs) Handles button18.ClickDim authkeybuf(24) As ByteDim retsw(1) As ByteDim retstr As StringDim keylen As Integer = 16If Not checkhexstr(textBox6.Text.Trim(), keylen, authkeybuf) ThenMessageBox.Show("十六进制认证密钥输入错误，请输入 " + keylen.ToString("D") + " 字节的16进制认证密钥！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim status As Byte = desfireauthkeyev2(authkeybuf(0), Convert.ToByte(keyid.Value), Convert.ToByte(comboBox4.SelectedIndex), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("认证密码操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("认证密码操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button5_Click(sender As Object, e As EventArgs) Handles button5.ClickDim retsw(1) As ByteDim retstr As StringDim status As Byte = desfireformatpicc(retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status > 0 ThenMessageBox.Show("初始格式化卡操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("初始格式化卡操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button10_Click(sender As Object, e As EventArgs) Handles button10.ClickDim aidbuf(3) As ByteDim retsw(1) As ByteDim retstr As StringIf Not checkhexstr(textBox5.Text.Trim(), 3, aidbuf) ThenMessageBox.Show("十六进制AID输入错误，请输入3字节的16进制AID！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim status As Byte = desfiredeleteapplication(aidbuf(0), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("删除卡内应用操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("删除卡内应用操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button9_Click(sender As Object, e As EventArgs) Handles button9.ClickDim aidbuf(3) As ByteDim retsw(1) As ByteDim retstr As StringIf Not checkhexstr(textBox5.Text.Trim(), 3, aidbuf) ThenMessageBox.Show("十六进制AID输入错误，请输入3字节的16进制AID！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim keysetting As Byte = Convert.ToByte(comboBox4.SelectedIndex * 16 + comboBox5.SelectedIndex * 8 + comboBox6.SelectedIndex * 4 + comboBox7.SelectedIndex * 2 + comboBox8.SelectedIndex)Dim status As Byte = desfirecreateapplication(aidbuf(0), keysetting, Convert.ToByte(keynumber.Value), Convert.ToByte(comboBox2.SelectedIndex), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("创建新应用操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("创建新应用操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button11_Click(sender As Object, e As EventArgs) Handles button11.ClickDim status As Byte           '函数返回值Dim comset As Byte           '通讯模式Dim accessrights(1) As Byte  '文件访问时的密钥认证方式Dim retsw(1) As ByteDim retstr As StringDim filebytes As Int32 = Convert.ToInt32(filesize.Value)If (comboBox9.SelectedIndex < 2) Thencomset = Convert.ToByte(comboBox9.SelectedIndex)Elsecomset = 3End Ifaccessrights(1) = Convert.ToByte(comboBox10.SelectedIndex * 16 + comboBox11.SelectedIndex)accessrights(0) = Convert.ToByte(comboBox12.SelectedIndex * 16 + comboBox13.SelectedIndex)If (radioButton1.Checked) Thenstatus = desfirecreatestddatafile(Convert.ToByte(fileid.Value), comset, accessrights(0), filebytes, retsw(0))Elsestatus = desfircreatebackupdatafile(Convert.ToByte(fileid.Value), comset, accessrights(0), filebytes, retsw(0))End Ifretstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status = 53 ThenMessageBox.Show("在应用内创建新文件操作返回异常：" + status.ToString("D") + "，说明：CPU卡功能通讯错误，可能是卡拿开重放后未激活或卡不在感应区！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseIf status = 64 ThenIf (retstr = "91DE") ThenMessageBox.Show("在应用内创建新文件操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，可能的原因：1 应用没选择对，2 密码未认证，3 文件已存在！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseMessageBox.Show("在应用内创建新文件操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，请选择正确的应用！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfElseIf (status > 0) ThenMessageBox.Show("在应用内创建新文件操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfMessageBox.Show("在应用内创建新文件操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End SubPrivate Sub button12_Click(sender As Object, e As EventArgs) Handles button12.ClickDim revbuflen(4) As ByteDim filesettingsbuf(32) As ByteDim retsw(1) As ByteDim retstr As StringDim revstr As String = ""Dim status As Byte = desfiregetfilesettings(Convert.ToByte(fileid.Value), filesettingsbuf(0), revbuflen(0), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("读取文件配置信息返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim revlen As ULong = BitConverter.ToInt32(revbuflen, 0)Dim j As ULongFor j = 0 To revlen - 1revstr = revstr + filesettingsbuf(j).ToString("X2")NextIf filesettingsbuf(1) Mod 4 = 3 Then                 '解析通信模式comboBox9.SelectedIndex = 2ElseIf (filesettingsbuf(1) Mod 4 = 1) ThencomboBox9.SelectedIndex = 1ElsecomboBox9.SelectedIndex = 0End IfEnd IfcomboBox10.SelectedIndex = filesettingsbuf(3) \ 16     '只读时需要的密码号comboBox11.SelectedIndex = filesettingsbuf(3) Mod 16   '只写时需要的密码号comboBox12.SelectedIndex = filesettingsbuf(2) \ 16     '读写时需要的密码号comboBox13.SelectedIndex = filesettingsbuf(2) Mod 16   '更改本配置时需要的密码号filesize.Value = filesettingsbuf(4) + filesettingsbuf(5) * 256 + filesettingsbuf(6) * 65536MessageBox.Show("读取文件配置返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr) + "，16进制文件配置信息：" + revstr, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End SubPrivate Sub button14_Click(sender As Object, e As EventArgs) Handles button14.ClickDim retsw(1) As ByteDim retstr As StringDim status As Byte = desfiredeletefile(Convert.ToByte(fileid.Value), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("删除文件操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseMessageBox.Show("删除文件操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button17_Click(sender As Object, e As EventArgs) Handles button17.ClickDim i As Int32 = 0Dim j As Int32 = 0Dim maxnum As Int32 = Convert.ToInt32(rwlen.Value) - 1Dim datastr As String = ""For j = 0 To maxnumdatastr = datastr + i.ToString("X2") + " "i = i + 1If i = 256 Then i = 0NexttextBox8.Text = datastrEnd SubPrivate Sub button15_Click(sender As Object, e As EventArgs) Handles button15.ClickDim cmd As Byte = &HBD      '参数为&HBD表示读数据，为&hBB表示读记录Dim databuf(8192) As ByteDim retsw(1) As ByteDim retstr As StringDim status As Byte = desfirereaddata(cmd, Convert.ToByte(fileid.Value), Convert.ToInt32(rwbegin.Value), Convert.ToInt32(rwlen.Value), databuf(0), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status = 63) Then            MessageBox.Show("读文件操作返回异常：" + status.ToString("D") + "，说明：权限不足,请先用正确的密钥号认证！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Return            ElseIf (status > 0) ThenMessageBox.Show("读文件操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseDim datastr As String = ""Dim j As Int32For j = 0 To Convert.ToInt32(rwlen.Value) - 1datastr = datastr + databuf(j).ToString("X2") + " "NexttextBox8.Text = datastrMessageBox.Show("读文件操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button16_Click(sender As Object, e As EventArgs) Handles button16.ClickDim cmd As Byte = &H3D      '参参数为&H3D表示写数据，为&h3B表示写记录Dim databuf(8192) As ByteDim retsw(1) As ByteIf Not checkhexstr(textBox8.Text.Trim(), Convert.ToInt32(rwlen.Value), databuf) ThenIf (MessageBox.Show("写入数据输入不足或错误，是否要生成写入数据？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) Thenbutton17.PerformClick()ReturnEnd IfEnd IfDim status As Byte = desfirewritedata(cmd, Convert.ToByte(fileid.Value), Convert.ToInt32(rwbegin.Value), Convert.ToInt32(rwlen.Value), databuf(0), retsw(0))Dim retstr As String = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status = 63) ThenMessageBox.Show("写文件操作返回异常：" + status.ToString("D") + "，说明：权限不足,请先用正确的密钥号认证！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseIf (status > 0) ThenMessageBox.Show("写文件操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseMessageBox.Show("写文件操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End IfEnd SubPrivate Sub button13_Click(sender As Object, e As EventArgs) Handles button13.ClickDim status As Byte           '函数返回值Dim comset As Byte           '通讯模式Dim accessrights(1) As Byte  '文件访问时的密钥认证方式Dim retsw(1) As ByteDim retstr As StringIf (comboBox9.SelectedIndex < 2) Thencomset = Convert.ToByte(comboBox9.SelectedIndex)Elsecomset = 3End Ifaccessrights(1) = Convert.ToByte(comboBox10.SelectedIndex * 16 + comboBox11.SelectedIndex)accessrights(0) = Convert.ToByte(comboBox12.SelectedIndex * 16 + comboBox13.SelectedIndex)status = desfirechangefilesettings(Convert.ToByte(fileid.Value), comset, accessrights(0), retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status = 53 ThenMessageBox.Show("更改文件配置操作返回异常：" + status.ToString("D") + "，说明：CPU卡功能通讯错误，可能是卡拿开重放后未激活或卡不在感应区！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)Return       ElseIf (status > 0) ThenMessageBox.Show("更改文件配置操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfMessageBox.Show("更改文件配置操作卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End SubPrivate Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.ClickDim retsw(1) As ByteDim fidsize(0) As Byte '返回的应用数量，最大19个Dim fidbuf(16) As Byte '文件ID号数据缓冲，每个ID号占用1个字节，最多16个文件ID号Dim status As Byte = desfiregetfileids(fidbuf(0), fidsize(0), retsw(0))Dim retstr As String = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("搜索当前应用内所有文件ID操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim strls1 As String = ""If fidsize(0) > 0 Thenstrls1 = "文件ID号：" & CStr(fidbuf(0))Dim j As Byte = 1While j < fidsize(0)strls1 = strls1 & "，" & CStr(fidbuf(j))j = j + 1End WhileEnd IfMessageBox.Show("搜索当前应用内所有文件ID操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr) + vbCrLf + "文件数量：" & fidsize(0).ToString("D") + vbCrLf + strls1, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End SubPrivate Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.ClickDim retsw(1) As ByteDim aidsize(0) As Byte '返回的应用数量，最大19个Dim aidbuf(56) As Byte '应用AID号数据缓冲，每个AID号占用3个字节，最多19个应AID号Dim status As Byte = desfiregetapplicationids(aidbuf(0), aidsize(0), retsw(0))Dim retstr As String = retsw(0).ToString("X2") + retsw(1).ToString("X2")If (status > 0) ThenMessageBox.Show("搜索当前卡片内所有应用AID操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim strls1 As String = ""If aidsize(0) > 0 Thenstrls1 = "应用AID：" & aidbuf(0).ToString("X2") & aidbuf(1).ToString("X2") & aidbuf(2).ToString("X2")Dim j As Byte = 1While j < aidsize(0)strls1 = strls1 & "，" & aidbuf(j * 3).ToString("X2") & aidbuf(j * 3 + 1).ToString("X2") & aidbuf(j * 3 + 2).ToString("X2")j = j + 1End WhileEnd IfMessageBox.Show("搜索当前卡片内所有应用AID操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr) + vbCrLf + "应用数量：" & aidsize(0).ToString("D") + vbCrLf + strls1, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End SubPrivate Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.ClickDim aidbuf(2) As ByteDim keysetting(0) As ByteDim keysize(0) As ByteDim retsw(1) As ByteDim keynum As IntegerIf Not checkhexstr(textBox5.Text.Trim(), 3, aidbuf) ThenMessageBox.Show("十六进制AID输入错误，请输入3字节的16进制AID！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim status As Byte = desfiregetkeysettings(aidbuf(0), keysetting(0), keysize(0), retsw(0))Dim retstr As String = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status = 94 ThenMessageBox.Show("请先执行选择应用AID：" + textBox5.Text.Trim(), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseIf status > 0 ThenMessageBox.Show("读取应用的配置信息操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfcomboBox4.SelectedIndex = keysetting(0) \ 16  '更改应用密钥(非应用主密钥) 需要验证的选项If (keysetting(0) And &H8) > 0 ThencomboBox5.SelectedIndex = 1     '需要验证应用主密钥(默认)ElsecomboBox5.SelectedIndex = 0     '配置值不允许修改(锁定)End IfIf (keysetting(0) And &H4) > 0 ThencomboBox6.SelectedIndex = 1 '无需验证应用主密钥(默认)ElsecomboBox6.SelectedIndex = 0 '需要验证应用主密钥End IfIf (keysetting(0) And &H2) > 0 ThencomboBox7.SelectedIndex = 1 '需要验证应用主密钥ElsecomboBox7.SelectedIndex = 0 '无需验证应用主密钥(默认)End IfIf (keysetting(0) And &H1) > 0 ThencomboBox8.SelectedIndex = 1 '允许更改主密钥(默认)ElsecomboBox8.SelectedIndex = 0 '锁定主密钥End Ifkeynum = (keysize(0) Mod 64)keynumber.Value = keynumIf (keysize(0) And &HC0) = &H80 ThencomboBox2.SelectedIndex = 3ElseIf (keysize(0) And &HC0) = &H40 ThencomboBox2.SelectedIndex = 2ElsecomboBox2.SelectedIndex = 0        '也可能是comboBox2.SelectedIndex = 1End IfMessageBox.Show("读取应用的密钥配置信息操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr) + vbCrLf + "密钥配置：" & keysetting(0).ToString("X2") + vbCrLf + "密钥数量：" + keynum.ToString("D"), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End SubPrivate Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.ClickDim aidbuf(3) As ByteDim retsw(1) As ByteDim retstr As StringIf Not checkhexstr(textBox5.Text.Trim(), 3, aidbuf) ThenMessageBox.Show("十六进制AID输入错误，请输入3字节的16进制AID！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd IfDim keysetting As Byte = Convert.ToByte(comboBox4.SelectedIndex * 16 + comboBox5.SelectedIndex * 8 + comboBox6.SelectedIndex * 4 + comboBox7.SelectedIndex * 2 + comboBox8.SelectedIndex)Dim status As Byte = desfirechangekeysettings(aidbuf(0), keysetting, retsw(0))retstr = retsw(0).ToString("X2") + retsw(1).ToString("X2")If status = 94 ThenMessageBox.Show("请先执行选择应用AID：" + textBox5.Text.Trim(), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseIf status = 63 ThenMessageBox.Show("需要先验证当前应用的主密钥！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnElseIf (status > 0) ThenMessageBox.Show("更改应用密钥配置操作返回异常：" + status.ToString("D") + "，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)End IfMessageBox.Show("更改应用密钥配置操作，卡片返回代码：" + retstr + "，说明：" + RetTextFromStr(retstr), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)End Sub
End Class