来源:蜘蛛抓取(WebSpider)
时间:2014-10-23 14:35
标签:
vb高手
借此人气问一个VB的问题,请高手解答!
[问题点数:50分,结帖人libao1983]
借此人气问一个VB的问题,请高手解答!
[问题点数:50分,结帖人libao1983]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
本帖子已过去太久远了,不再提供回复功能。关于vb模块函数的调用,请高手解答
[问题点数:50分,结帖人garylee999999]
关于vb模块函数的调用,请高手解答
[问题点数:50分,结帖人garylee999999]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2009年12月 VB大版内专家分月排行榜第三
2010年6月 VB大版内专家分月排行榜第二
2010年5月 VB大版内专家分月排行榜第三2009年11月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
本帖子已过去太久远了,不再提供回复功能。我想做一个加密解密文件的VB程序!用des加密解密方法!!! 希望高手解答!_百度知道
提问者采纳
desdecrypt.Write)
Dim byteArrayInput(fsInput, ByVal sOutputFilename As String, ".CryptographyImports System, desencrypt.Create.Default).Open.GetBytes(sKey)
Dim desencrypt As ICryptoTransform = DES.Write(New StreamReader(cryptostreamDecr.Text
EncryptFile(Me, ByVal sKey As String)
Dim DES As New DESCryptoServiceProvider
DES, ByVal sKey As String)
Dim fsInput As New FileStream(sInputF".GetBytes(sKey)
DES, CryptoStreamMode.TextBox2.ASCIIEncodingvb.GetBytes(sKey)
OpenFileDialog1;D.Read)
Dim fsEncrypted As New FileStream(sOutputFilename.Length)
cryptostream, 0.CreateEncryptor()
Dim cryptostream As New CryptoStream(fsEncrypted, FileMode.ASCII;
OpenFileDialog1.EventArgs) Handles BtnChoose, byteArrayInput, byteArrayInput:\.FileName <.Text
DecryptFile(".Text = OpenFileDialog1.GetBytes(sKey)
Dim fsread As New FileStream(sInputFJMtest, ByVal sOutputFilename As SD.Security.Close()
Private Sub BtnChoose_Click(ByVal sender As System, ByVal e As System.Write(byteArrayInput.Read)
Dim desdecrypt As ICryptoTransform = DES.txt",调试时你自己输入密码.Object:\.OJMtest.Open.ASCII, ByVal e As System.txt)|*;,一定为8位.Click
Dim sSecretKey As String = Me.Click
Dim sSecretKey As String = Me;>, FileMode.Filter = ".EventArgs) Handles Button1.Length - 1) As Byte
fsInput, ByVal e As System, 0;, System.net code注意随机密码按钮在没用.Read)
Dim fsDecrypted As New StreamWriter(sOutputFilename)
fsDecrypted.txt".Text.TextBox2, sSecretKey)
Sub EncryptFile(ByVal sInputFilename As String.Write)
Dim DES As New DESCryptoServiceProvider
DES.CreateDecryptor
Dim cryptostreamDecr As New CryptoStream(fsread.TextBox1;txt files (*, CryptoStreamMode, sSecretKey)
Private Sub Button2_Click(ByVal sender As System.ASCII.ASCII, FileAccess,你自己在修改一下.Object.TextPublic Class Form1
Private Sub Button1_Click(ByVal sender As System, FileMode.txt".Text.Length):\,我是将文件存在D盘.txt", FileAccess,那个就很简单Imports System.Read(byteArrayInput.EventArgs) Handles Button2.Key() = ASCIIE Then
Me.ReadToEnd)
fsDecrypted.FileName = ".IV = ASCIIEncoding.TextBox1;D", FileAccess.Key = ASCIIE ".IV = ASCIIEncoding, ".ShowDialog()
If OpenFileDialog1.Flush()
OpenFileDialog1.Close()
Sub DecryptFile(ByVal sInputFilename As SD.IOImports System
提问者评价
谢谢了!虽然没有理想的好~不过我自己用java弄了个程序!
其他类似问题
为您推荐:
您可能关注的推广
加密解密的相关知识
其他1条回答
显然不现实。要给你全部源文件你的疑问在哪。?
des加密解密的VB代码不懂!VC++倒还懂一点点!代码部分的所有的置换表度没必要写!你就用XX置换表代替!(如初始置换表)
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB.NET高手请进!Vista中怎么使用WMI获取CPU使用率??_百度知道
VB.NET高手请进!Vista中怎么使用WMI获取CPU使用率??
.我用的WMI获取的CPU使用率~~~答案好用我会再加分...!!?再废话下......??自己编写了一个小程序~需要获取CPU使用率.以至于程序没办法执行!...有没有别的办法可以解决这问题.但是在Vista系统中似乎没有管理员权限就没办法访问注册表.
提问者采纳
diagnostics.aspx这里有完整的例子.80)Vista由于使用了更严格的权限管理体系.performancecounter(VS,在一般用户(没有提升到管理员之前都是一般用户,选择添加项目,添加manifast文件,你没有办法获得CPU使用率,并不可靠。右键点击启动的哪个/zh-cn/library/system。提升权限后获得CPU占用率建议使用System://msdn.microsoft.diagnostics。建议的解决办法是在程序启动时提升权限.microsoft:楼上诋毁Vista的理由很汗.PerformanceCounter是不是WMI,具体可以通过修改manifast文件来实现.Diagnostics。http,因为相对于前者
提问者评价
呵呵!问题解决了...谢谢!
其他类似问题
为您推荐:
cpu使用率的相关知识
其他3条回答
/aaasoft/blog/item/45bdad86a45dc://hi没有办法吧
还是会跳一个uac 让你确定看看这个http.baidu。.com/aaasoft/blog/item/45bdad86a45dc..我瞎说的://hi
试下在登陆的时候用管理员身份登陆
为什么用vista啊!,xp不是很好么!vista还不是很完善,而且耗内存太大,等硬件配置完全跟上,而且系统完善了以后再用也不迟!我总感觉vista就像在公测一样呵呵!
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb如何调用Active X对象?请高手们帮忙解决
[问题点数:100分,结帖人dingxinkefu]
vb如何调用Active X对象?请高手们帮忙解决
[问题点数:100分,结帖人dingxinkefu]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
2010年12月 VB大版内专家分月排行榜第二2010年11月 VB大版内专家分月排行榜第二2009年7月 VB大版内专家分月排行榜第二
2009年12月 VB大版内专家分月排行榜第三
本帖子已过去太久远了,不再提供回复功能。