求助照片加密 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助照片加密

ElseIf e.DataCol.Name = "第二学历证件" Then

Dim dr As DataRow = e.DataRow

If dr.IsNull("工作单位") Then

MessageBox.Show("工作单位不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

ElseIf Dr.IsNull("姓名") Then

MessageBox.Show("姓名不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

ElseIf Dr.IsNull("乡镇名称") Then

MessageBox.Show("乡镇名称不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

ElseIf Dr.IsNull("证件号码") Then

MessageBox.Show("身份证号码不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

ElseIf Dr.IsNull("工作单位") Then

MessageBox.Show("工作单位不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

e.SubFolder = "证件" & "\" & dr("乡镇名称") & "\" & dr("工作单位") & "\" & "第二学历"

e.FileName = dr("证件号码") & ".jpg"

End If

EncryptFile("c:\temp\Logo.jpg", "c:\temp\Logo2.jpg", "fox123")
DecryptFile("c:\temp\Logo2.jpg", "c:\temp\Logo3.jpg", "fox123")

加密函数或解密函数子么写的

Dim dd As String = ProjectPath & "Attachments" & "\" & "证件" & "\" & dr("乡镇名称") & "\" & dr("工作单位") & "\" & "第一学历" & "\" & e.FileName

EncryptFile(e.SourceFolder & "\" & e.FileName,dd,"fox123")

dr("第一学历证件")=fl

这样写的对吗？

e.SubFolder = "证件" & "\" & dr("乡镇名称") & "\" & dr("工作单位") & "\" & "第二学历"
e.FileName = dr("证件号码") & ".jpg"
EncryptFile(ProjectPath & "Attachments/" & e.SubFolder & "/" & e.FileName, ProjectPath & "Attachments/" & e.SubFolder & "/" & dr("证件号码") & "_加密.jpg", "fox123")

谢谢你在帮CurrentChanged 事件写解密代码好吗？

又加密，又解密，有什么意义？

Dim dr As Row = e.Table.Current
If dr IsNot Nothing Then
    Dim SubFolder As String = "证件" & "\" & dr("乡镇名称") & "\" & dr("工作单位") & "\" & "第二学历"
    Dim FileName As String = dr("证件号码") & ".jpg"
    If FileSys.FileExists(ProjectPath & "Attachments/" & SubFolder & "/" & dr("证件号码") & "_加密.jpg") Then
        DecryptFile(ProjectPath & "Attachments/" & SubFolder & "/" & dr("证件号码") & "_加密.jpg", ProjectPath & "Attachments/" & SubFolder & "/" & FileName, "fox123")
    End If
End If

主题：求助 照片加密

主题：求助照片加密