对称加密解密模块

原创 2004年09月28日 19:42:00

Imports System.Text<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Imports System.Security.Cryptography

 

Module ModSecurity

    Function EnText(ByVal Text As String, ByVal sKey As String) As String

        Text = Text.ToLower

        Dim des As New DESCryptoServiceProvider

        Dim inputByteArray() As Byte

        inputByteArray = Encoding.Default.GetBytes(Text)

        des.Key = ASCIIEncoding.ASCII.GetBytes(Left(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5"), 8))

        des.IV = ASCIIEncoding.ASCII.GetBytes(Left(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5"), 8))

        Dim ms As New System.IO.MemoryStream

        Dim cs As New CryptoStream(ms, des.CreateEncryptor, CryptoStreamMode.Write)

        cs.Write(inputByteArray, 0, inputByteArray.Length)

        cs.FlushFinalBlock()

        Dim ret As New StringBuilder

        Dim b As Byte

        For Each b In ms.ToArray()

            ret.AppendFormat("{0:X2}", b)

        Next

        Return ret.ToString()

    End Function

 

    Function DeText(ByVal Text As String, ByVal sKey As String) As String

        Dim des As New DESCryptoServiceProvider

        Dim len As Integer

        len = Text.Length / 2 - 1

        Dim inputByteArray(len) As Byte

        Dim x, i As Integer

        For x = 0 To len

            i = Convert.ToInt32(Text.Substring(x * 2, 2), 16)

            inputByteArray(x) = CType(i, Byte)

        Next

        des.Key = ASCIIEncoding.ASCII.GetBytes(Left(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5"), 8))

        des.IV = ASCIIEncoding.ASCII.GetBytes(Left(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5"), 8))

        Dim ms As New System.IO.MemoryStream

        Dim cs As New CryptoStream(ms, des.CreateDecryptor, CryptoStreamMode.Write)

        cs.Write(inputByteArray, 0, inputByteArray.Length)

        cs.FlushFinalBlock()

        Return Encoding.Default.GetString(ms.ToArray)

    End Function

End Module

对称加密解密模块

Imports System.TextImports System.Security.Cryptography Module ModSecurity    Function EnText(ByVal ...
  • xuandme000
  • xuandme000
  • 2004年09月29日 10:51
  • 640

对称加密解密模块

 标题  对称加密解密模块     选择自 iwebsms 的 Blog 关键字  对称加密解密模块出处   Imports System.TextImports System.Security.Cr...
  • guang_ge
  • guang_ge
  • 2009年02月05日 16:58
  • 278

nodejs加密模块crypto

nodejs加密模块crypto 前言:nodejs加密模块,对数据进行加密。做了一个关于钱的项目就各种加密,研究了一下还是遇到不少坑,所以记录下来以免重复踩坑。 crypto的官网API地址...
  • liyugangweilai
  • liyugangweilai
  • 2015年10月30日 18:34
  • 1037

C# 对称加解密

///         /// DES加密调用         ///         /// 需要加密的字符串         /// 加密结果         public stat...
  • chensirbbk
  • chensirbbk
  • 2015年04月29日 15:34
  • 627

JAVA中AES对称加密和解密

http://www.cnblogs.com/liunanjava/p/4297854.html AES对称加密和解密 package demo.security; import...
  • u012506661
  • u012506661
  • 2017年08月03日 18:49
  • 139

对称加密解密类

可以对url或者是url参数进行加密解密的帮助类。
  • itmaxin
  • itmaxin
  • 2014年02月25日 10:08
  • 1616

java实现对称加密AES和DES的加密、解密

目前主流的加密方式有:1、对称加密:AES、DES      2、非对称加密:RSA、DSA。         本文主要讲解java实现调用AES/DES加密算法包,调用过程最精要的就是下面两句话: ...
  • zmx729618
  • zmx729618
  • 2016年11月01日 11:41
  • 4244

对称加密解密

 #region 加密与解密       EncryptString(...)  DecryptTextFromMemory(...)        ///         /// 加密       ...
  • wangchungxb
  • wangchungxb
  • 2008年07月24日 11:01
  • 577

客户需求解密板子里面的加密文件,qt做的openssl的加解密的tool

客户需求解密板子里面的加密文件,做的openssl的加解密的tooltool去除了加密的,只需要解密,想加密只需反向操作下。源码: https://github.com/leolin0518/ope...
  • linbounconstraint
  • linbounconstraint
  • 2017年07月10日 11:05
  • 322

PHP对称加密算法(DES/AES)类

/** * 常用对称加密算法类 * 支持密钥:64/128/256 bit(字节长度8/16/32) * 支持算法:DES/AES(根据密钥长度自动匹配使用:DES:64bit AES:1...
  • u011650048
  • u011650048
  • 2016年02月22日 11:30
  • 2745
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:对称加密解密模块
举报原因:
原因补充:

(最多只允许输入30个字)