Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助 照片加密


  共有2580人关注过本帖树形打印复制链接

主题：求助 照片加密
帅哥哟，离线，有人找我吗？
telek
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3453 威望：0 精华：0 注册：2014/3/10 11:02:00 		求助 照片加密  发帖心情 Post By：2015/5/12 22:57:00 [显示全部帖子]


求助 照片加密

 图片点击可在新窗口打开查看 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")

加密函数 或解密函数子么写的
 回到顶部
帅哥哟，离线，有人找我吗？
telek
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3453 威望：0 精华：0 注册：2014/3/10 11:02:00 		  发帖心情 Post By：2015/5/12 23:01:00 [显示全部帖子]

Dim dd As String = ProjectPath & "Attachments" & "\" & "证件" & "\" & dr("乡镇名称") & "\" & dr("工作单位") & "\" & "第一学历" & "\" & e.FileName 
EncryptFile(e.SourceFolder & "\" & e.FileName,dd,"fox123")
            dr("第一学历证件")=fl
这样写的对吗？
 回到顶部
帅哥哟，离线，有人找我吗？
telek
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3453 威望：0 精华：0 注册：2014/3/10 11:02:00 		  发帖心情 Post By：2015/5/12 23:34:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
telek
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3453 威望：0 精华：0 注册：2014/3/10 11:02:00 		  发帖心情 Post By：2015/5/14 1:37:00 [显示全部帖子]

谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询