网上有很多专业的加密教程
最适合小开发者的软件加密方式就是下面这个
获取硬件信息和个人注册时的姓名手机号等一系列信息,通过预先设定好的加密函数进行散列加密,生成一个只有本人本机能使用的序列号,软件正版授权的时候用同样的方式生成序列号进行比对,一样则通过
最好的加密就是通过你的网站去加密!用网络服务器验证把一些主要程序都可以加载到服务器上!这样你的程序加密就完美了! (个人观点纯属不懂装懂的.哈哈见笑)
病情分析:
土嘎嘎的粉丝们大家好!
指导意见:
在怀孕晚期,原则上应该多往左侧睡,以利于胎盘的血液循环,对于胎儿有利.但是,如果你感觉左侧睡胎动明显,那么,也可以换到右侧睡或是平躺着睡,只要睡得舒服,怎么睡都可以的,并不要强求往哪一侧睡.
祝你健康!
根据你说的情况,现在胎儿的反应是正常的,没有看出什么异常
胎儿每天也要适当的活动的,所以你不要担心,定期到医院进行孕检就可以了
左侧睡觉也会压迫心脏的,所以你应该选择右侧睡觉的,以宝宝最舒服的姿势来睡觉!
Private Function myEncrypt(ByVal Code As String) As String
Dim Result As String = ""
Dim CurrentChar As Char
For i As Integer = 0 To Code.Length - 1
CurrentChar = Code.Substring(i, 1)
Select Case Code.Substring(i, 1)
Case "Z"
Result = "a"
Case "z"
Result = "A"
Case Else
Result = Chr(Asc(CurrentChar) + 1)
End Select
Next
Return Result
End Function
使用加密方式存储即可实现别人无法查看内容,加密的方式有很多,适用你这里使用的是可逆的算法,推荐你使用DES加密
Imports?System ?
Imports?System.Collections.Generic ?
Imports?System.Text ?
Imports?System.IO ?
Imports?System.Security ?
Imports?System.Security.Cryptography ?
NotInheritable?Public?Class?DES ?
'/?summary?
'/?/summary?
Public?Property?IV()?As?String ?
Get ?
Return?iv ?
End?Get ?
Set ?
iv?=?value?
End?Set ?
End?Property ?
Public?Property?Key()?As?String ?
Return?key ?
key?=?value?
'/?对字符串进行DES加密 ?
'/?param?name="sourceString"待加密的字符串/param?
Public?Function?Encrypt(sourceString?As?String)?As?String ?
Dim?btKey?As?Byte()?=?Encoding.Default.GetBytes(key) ?
Dim?btIV?As?Byte()?=?Encoding.Default.GetBytes(iv) ?
Dim?des?As?New?DESCryptoServiceProvider() ?
Dim?ms?As?New?MemoryStream() ?
Try ?
Dim?inData?As?Byte()?=?Encoding.Default.GetBytes(sourceString) ?
Dim?cs?As?New?CryptoStream(ms,?des.CreateEncryptor(btKey,?btIV),?CryptoStreamMode.Write) ?
cs.Write(inData,?0,?inData.Length) ?
cs.FlushFinalBlock() ?
Finally ?
cs.Dispose() ?
End?Try ?
Catch ?
ms.Dispose() ?
End?Function?'Encrypt ?
'/?对DES加密后的字符串进行解密 ?
'/?param?name="encryptedString"待解密的字符串/param?
'/?returns解密后的字符串/returns?
Public?Function?Decrypt(encryptedString?As?String)?As?String ?
Dim?cs?As?New?CryptoStream(ms,?des.CreateDecryptor(btKey,?btIV),?CryptoStreamMode.Write) ?
Return?Encoding.Default.GetString(ms.ToArray()) ?
End?Function?'Decrypt ?
'/?对文件内容进行DES加密 ?
'/?param?name="sourceFile"待加密的文件绝对路径/param?
'/?param?name="destFile"加密后的文件保存的绝对路径/param?
Overloads?Public?Sub?EncryptFile(sourceFile?As?String,?destFile?As?String) ?
If?Not?File.Exists(sourceFile)?Then ?
Throw?New?FileNotFoundException("指定的文件路径不存在!",?sourceFile) ?
End?If ?
Dim?btFile?As?Byte()?=?File.ReadAllBytes(sourceFile) ?
Dim?fs?As?New?FileStream(destFile,?FileMode.Create,?FileAccess.Write) ?
Dim?cs?As?New?CryptoStream(fs,?des.CreateEncryptor(btKey,?btIV),?CryptoStreamMode.Write) ?
cs.Write(btFile,?0,?btFile.Length) ?
fs.Close() ?
fs.Dispose() ?
End?Sub?'EncryptFile ?
'/?对文件内容进行DES加密,加密后覆盖掉原来的文件 ?
'/?param?name="sourceFile"待加密的文件的绝对路径/param?
Overloads?Public?Sub?EncryptFile(sourceFile?As?String) ?
EncryptFile(sourceFile,?sourceFile) ?
'/?对文件内容进行DES解密 ?
'/?param?name="sourceFile"待解密的文件绝对路径/param?
'/?param?name="destFile"解密后的文件保存的绝对路径/param?
Overloads?Public?Sub?DecryptFile(sourceFile?As?String,?destFile?As?String) ?
Dim?cs?As?New?CryptoStream(fs,?des.CreateDecryptor(btKey,?btIV),?CryptoStreamMode.Write) ?
End?Sub?'DecryptFile ?
'/?对文件内容进行DES解密,加密后覆盖掉原来的文件 ?
'/?param?name="sourceFile"待解密的文件的绝对路径/param?
Overloads?Public?Sub?DecryptFile(sourceFile?As?String) ?
DecryptFile(sourceFile,?sourceFile) ?
End?Class?'DES ?
对文本文件加密
des.IV?=?"abcd哈哈笑"?
des.Key?=?"必须八位"?
'加密
des.EncryptFile("d:\a.txt",?"d:\b.txt") ?
'解密
des.DecryptFile("d:\b.txt")
以上就是土嘎嘎小编为大家整理的vb.net文件加密相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!