锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net3des的简单介绍

IT技术矩阵

vb.net求192位的3DESvb.net3des我vb.net3des的key和iv都是指向cpu和主板序号vb.net3des，只能找个修改一下给你vb.net3des，key和iv可以是0-255的任意数值，用连续的编号的方式是便于数位数，md5部分自己写吧
'vb.net2005
Imports System.Diagnostics
Imports System.Security.Cryptography
Imports System.IO
Public Class Form1
Public My_key() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim aa, bb As String
aa = EncryptTripleDES("今天很冷123456789")
bb = DecryptTripleDES(aa)
End Sub
'TRIPLEDES加密
Private Function EncryptTripleDES(ByVal value As String) As String
Dim des_iv() As Byte = {0, 1, 2, 3, 4, 5, 6, 7}
【vb.net3des的简单介绍】Dim cryptoProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider()
Dim ms As MemoryStream = New MemoryStream()
Dim cs As CryptoStream = New CryptoStream(ms, cryptoProvider.CreateEncryptor(My_key, des_iv), CryptoStreamMode.Write)
Dim sw As StreamWriter = New StreamWriter(cs)
'Dim a As Integer
'a = cryptoProvider.KeySize '密钥大小
sw.Write(value)
sw.Flush()
cs.FlushFinalBlock()
ms.Flush()
Return Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)
End Function
'TRIPLEDES解密
Private Function DecryptTripleDES(ByVal value As String) As String
Dim des_iv() As Byte = {0, 1, 2, 3, 4, 5, 6, 7}
Dim cryptoProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider()
Dim buffer As Byte() = Convert.FromBase64String(value)
Dim ms As MemoryStream = New MemoryStream(buffer)
Dim cs As CryptoStream = New CryptoStream(ms, cryptoProvider.CreateDecryptor(My_key, des_iv), CryptoStreamMode.Read)
Dim sr As StreamReader = New StreamReader(cs)
Return sr.ReadToEnd()
End Function
End Class
求VB.net使用密钥的可逆文本加密算法代码 编程新手，若有讲解可加分先实例化该类
Dim wrapper As New ClassLibrary1.Simple3Des("你的密钥")
然后
Dim cipherText As String = wrapper.EncryptData("要加密的文本")
或
Dim cipherText As String = wrapper.DecryptData("要揭秘的文本")
VB.net可以开发小型3D图形显示软件吗？可以借助DirectX来编程 。免费3D引擎可不好找，一般来说速度比不上硬件加速后的DX，尤其令人头疼的是一般都没有针对VB的文档，LZ有这方面理想的话，自己写一个吧……
我不得不承认在VB上写DirectX的教程相当难找！如果LZ想深入研究三维图形问题 ， C++一定要学，就算不能用C++编程，起码要能把C++程序翻译成VB程序 。
我自己学会DX编程花了两三个月（很浅） 。编这样一个程序难度是有点大的 。
工具：DirectX9和其针对VB的库(项目-添加引用 。.NET库里DX库一般都有)，VB不知道现在支不支持DX10以上的版本，不过9绝对够用了 。
思路：一切3D图形都是由三角形拼成的 。矩形挖掉一个圆孔可不是一个方便画的图形，我估计至少得有24个三角形 。你需要记录这些点的坐标，或者干脆把它们写在文件里 ， 到时读出来 。
这是我的一个老DX程序的不完全的代码(显示一个黑乎乎的平面)，不一定能编译，可以参考一下 。
Imports Microsoft.DirectX '一定要~
Public Class FormMain
'Direct3D Startup
Dim d3dpp As New Direct3D.PresentParameters 'DX基本参数，例如全屏还是窗口等
Public MyDevice As Direct3D.Device ‘DX基本设备，画图就靠它 。
'Matrices
Dim matWorld, matView, matProj As Matrix '世界位置矩阵，摄像机位置矩阵和透视矩阵，数学要学好啊 。

推荐阅读


上一篇：关于python怎么一下注释的信息

下一篇：调色教程风景直播，调色教程风景直播视频