精华内容
下载资源
问答
  • vbnet For Each 方式遍历字符 进行字符串加密
    2021-08-05 10:52:46
        Sub Main()
            '’原代码下载博客位置:https://blog.csdn.net/laocooon
            Dim s As String = "world9WORLD" ''原内容
            Dim s1 As String = Encryption(s, 4) ''加密后的内容 -22,4,30,56
            Dim s2 As String = Encryption(s1, -4) '’解密后的内容
    
            Console.WriteLine("原始串:" & s) '’显示原内容
            Console.WriteLine("加密后:" & s1) '’显示加密后的内容
            Console.WriteLine("解密后:" & s2) '’显示解密后的内容
            Console.Read()
        End Sub
    
        ''' <summary>
        ''' 字符串加密
        ''' </summary>
        ''' <param name="s">要加密的字符串</param>
        ''' <param name="n">加密移n位,正为右移,负为左移</param>
        ''' <returns>加密后的字符串</returns>
        Function Encryption(s As String, n As Integer) As String
            '’处理n移位控制在 -25到25之间
            n = n Mod 26
            '’当n为负时处理成对应的正值 如-4,处理成 22
            If n < 0 Then n += 26
            '’初始值
            Encryption = ""
    
            For Each c In s
                ''如果c在 大写字符范围,并且右移n位超出大写字符时
                If (c >= "A" AndAlso c <= "Z") AndAlso Asc(c) + n > Asc("Z") Then
                    c = Chr(Asc(c) + n - 26)
                ElseIf (c >= "A" AndAlso c <= "Z") Then ''在大写范围内时,并且右移n位不超出大写字符时
                    c = Chr(Asc(c) + n)
                End If
    
                If (c >= "a" AndAlso c <= "z") AndAlso Asc(c) + n > Asc("z") Then
                    c = Chr(Asc(c) + n - 26)
                ElseIf (c >= "a" AndAlso c <= "z") Then
                    c = Chr(Asc(c) + n)
                End If
                Encryption &= c
            Next
        End Function

    更多相关内容
  • RSA加密解密字符串

    2018-12-08 13:11:23
    RSA加密算法是一种非对称加密算法,RSA加密解密字符串VB.net实现。
  • VB加密解密字符串

    2018-02-27 17:36:41
    Dim o Dim str as string Set o = CreateObject("MyEncrypt.DES") str = o.Encrypt("加密的明文", "8位数密匙(记住要用于解密)") str = o.Decrypt("解密的密文", "8位数密匙(加密时的密匙)")
  • vb.net DES加密解密

    2021-02-07 15:14:05
    1、DES加密 Public Function EncryptDes(ByVal SourceStr As String, Optional ByVal myKey As String = "", Optional ByVal myIV As String = "") As String '使用的DES对称加密 If String.IsNullOrEmpty(myKey) ...

    1、DES加密

    Public Function EncryptDes(ByVal SourceStr As String, Optional ByVal myKey As String = "", Optional ByVal myIV As String = "") As String '使用的DES对称加密
            If String.IsNullOrEmpty(myKey) Then
                myKey = Me.JMKey
            End If
            If String.IsNullOrEmpty(myIV) Then
                myIV = Me.JMIv
            End If
            Dim des As New System.Security.Cryptography.DESCryptoServiceProvider 'DES算法
            'Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider'TripleDES算法
            Dim inputByteArray As Byte()
            inputByteArray = System.Text.Encoding.Default.GetBytes(SourceStr)
            des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) 'myKey DES用8个字符,TripleDES要24个字符
            des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) 'myIV DES用8个字符,TripleDES要24个字符
            Dim ms As New System.IO.MemoryStream
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(), System.Security.Cryptography.CryptoStreamMode.Write)
            Dim sw As New System.IO.StreamWriter(cs)
            sw.Write(SourceStr)
            sw.Flush()
            cs.FlushFinalBlock()
            ms.Flush()
            Return Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)
        End Function
    2、DES解密
    
    Public Function DecryptDes(ByVal SourceStr As String, Optional ByVal myKey As String = "", Optional ByVal myIV As String = "") As String    '使用标准DES对称解密
            If String.IsNullOrEmpty(SourceStr) Then
                Return SourceStr
            End If
            If SourceStr = "" Then
                Return SourceStr
            End If
            If String.IsNullOrEmpty(myKey) Then
                myKey = Me.JMKey
            End If
            If String.IsNullOrEmpty(myIV) Then
                myIV = Me.JMIv
            End If
            Dim des As New System.Security.Cryptography.DESCryptoServiceProvider 'DES算法
            'Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider'TripleDES算法
            des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) 'myKey DES用8个字符,TripleDES要24个字符
            des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) 'myIV DES用8个字符,TripleDES要24个字符
            Dim buffer As Byte() = Convert.FromBase64String(SourceStr)
            Dim ms As New System.IO.MemoryStream(buffer)
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Read)
            Dim sr As New System.IO.StreamReader(cs)
            DecryptDes = sr.ReadToEnd()
            Return DecryptDes
        End Function
    

    请注意: 不同的加密方式,密钥长vb.net教程度有要求; 密钥可以写入配置文件中,定期调整;

    展开全文
  • 输入:输入一个待加密的8位密码(根据需要). 加密处理:通过生成一个任意长度的字符串(例如128...解密处理:将字符串中的密码取出. 上面是demo实现的基本功能,当然只是提供一种思路,可以根据需要进行进一步的修饰.
  • vb.net加密解密方法

    2013-08-01 16:18:00
    1.vb.net加密解密方法 Private Function getLicenseDate() As String Dim b() As Byte Dim path As String = Server.MapPath(Context.Request.ApplicationPath) & "License\" ...

    1.vb.net加密解密方法

    Private Function getLicenseDate() As String
                Dim b() As Byte
                Dim path As String = Server.MapPath(Context.Request.ApplicationPath) & "License\"
                Try
                    If Not System.IO.Directory.Exists(path) Then
                        System.IO.Directory.CreateDirectory(path)
                    End If
                Catch ex As IO.IOException
                    Page.ClientScript.RegisterStartupScript(Me.GetType(), "Alert", "<script>alert('对不起,你可能没有创建文件夹的权限')</script>")
                    Exit Function
                End Try
                Dim output As String
                Dim filePath As String = path & "License.dat"
                If File.Exists(filePath) Then
                    Try
                        Dim fs As New FileStream(filePath, FileMode.Open)
                        Dim sr As New StreamReader(fs)
                        output = sr.ReadToEnd().ToString()
                        sr.Close()
                        fs.Close()
                        'output = Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(filePath))
                    Catch ex As Exception
                        Page.ClientScript.RegisterStartupScript(Me.GetType(), "Alert", "<script>alert('读取LIENCE文件异常!请取消勾选License文件夹下的License.dat的只读属性!')</script>")
                    End Try
                Else
                    Exit Function
                End If
                Try
                    b = Convert.FromBase64String(output)
                Catch ex As Exception
                    Page.ClientScript.RegisterStartupScript(Me.GetType(), "Alert", "<script>alert('对不起,,发生错误')</script>")
                End Try
                Try
                    output = System.Text.Encoding.GetEncoding(-0).GetString(b)
                    Dim startIndex As Integer = output.IndexOf("<ValidityDate>") + "<ValidityDate>".Length
                    Dim endIndex As Integer = output.IndexOf("</ValidityDate>")
                    Dim index As Integer = endIndex - startIndex
                    If startIndex > 0 And endIndex > 0 And index > 0 Then
                        output = output.Substring(startIndex, index)
                    Else
                        output = "-1"
                    End If
                Catch ex As Exception
                    Page.ClientScript.RegisterStartupScript(Me.GetType(), "Alert", "<script>alert('获取License信息发生异常')</script>")
                    output = ""
                End Try
                Return output
    
            End Function

     

     

     

    2. viewstate 作用域是本页面

    转载于:https://www.cnblogs.com/WuHZ/p/3230316.html

    展开全文
  • VB6 加密解密字符串

    千次阅读 2019-01-22 17:59:00
    Public Function EnCodeStr(ByVal password As String) As String Dim il_bit, il_x, il_y, il_z, il_len, i As Long Dim is_out As String il_len = Len(password) il_x =...
    Public Function EnCodeStr(ByVal password As String) As String
        Dim il_bit, il_x, il_y, il_z, il_len, i               As Long
        Dim is_out     As String
        il_len = Len(password)
        il_x = 0
        il_y = 0
        is_out = ""
        For i = 1 To il_len
                il_bit = AscW(Mid(password, i, 1))
                il_y = (il_bit * 13 Mod 256) + il_x
                is_out = is_out & ChrW(Fix(il_y))
                il_x = il_bit * 13 / 256
        Next
        is_out = is_out & ChrW(Fix(il_x))
        password = is_out
        il_len = Len(password)
        il_x = 0
        il_y = 0
        is_out = ""
        For i = 1 To il_len
                il_bit = AscW(Mid(password, i, 1))
                il_y = il_bit / 16 + 64
                is_out = is_out & ChrW(Fix(il_y))
                il_y = (il_bit Mod 16) + 64
                is_out = is_out & ChrW(Fix(il_y))
        Next
        EnCodeStr = is_out
    End Function
    
    Public Function DeCodeStr(ByVal password As String) As String
        Dim is_out     As String
        Dim il_x, il_y, il_len, i, il_bit             As Long
        
        il_len = Len(password)
        il_x = 0
        il_y = 0
        is_out = ""
        For i = 1 To il_len Step 2
                il_bit = AscW(Mid(password, i, 1))
                il_y = (il_bit - 64) * 16
                il_y = il_y + AscW(Mid(password, i + 1, 1)) - 64
                is_out = is_out & ChrW(il_y)
        Next
        
        il_x = 0
        il_y = 0
        password = is_out
        is_out = ""
        
        il_len = Len(password)
        il_x = AscW(Mid(password, il_len, 1))
        
        For i = (il_len - 1) To 1 Step -1
                il_y = il_x * 256 + AscW(Mid(password, i, 1))
                il_x = il_y Mod 13
                is_out = ChrW(Fix(il_y / 13)) & is_out
        Next
        DeCodeStr = is_out
    End Function
    

      

    转载于:https://www.cnblogs.com/wgscd/p/10305200.html

    展开全文
  • VB字符串加密解密

    2021-05-12 18:20:40
    摘要:VB源码,加密解密,字符串加密 VB字符串加密解密,形式简单,代码简洁,便于学习,输入需要加密的字符串后,点击“加密”即可,也可以点击“解密”还原。最后可以清屏。
  • 加密解密字符串.exe huanyin下载
  • <p>I want to decrypt in VB.net strings encrypted in PHP via openssl_encrypt function:</p> <pre><code>$encrypted_string = openssl_encrypt( $string, 'AES256', 'secret_password', 0, 'initialization...
  • 问题是,PHP不符合标准,强制填充字符串以便匹配.目前,如果在.NET和PHP之间随机生成,没有已知的方法可靠地传递IV(如果你确实发现了如何或者这种变化,请随时修改它).以下是使用Triple DES加密数据的COMPLETE解决方案,其...
  • 一个简单实用的VB字符串加密解密程序,可以是文本或字符,加密效果好,速度快,安全性高,而且代码易用易学,程序中还使用到了一个XP风格的进度条控件,VB新手朋友正好也可以研究一下进度条的使用。运行效果如演示...
  • .NET Framework出现之前,如果我们需要进行加密的话,我们只有各种较底层的技术可以选择,如Microsoft Crypto API、Crypto++、Openssl等等,其用法相当复杂。而在 .NET Framework中,这些复杂内容(原来独立的API...
  • PHP字符串加密解密

    2021-05-08 04:58:37
    /*** 字符串加密解密函数* @param string $string 字符串* @param string $operation ENCODE为加密,DECODE为解密,可选参数,默认为ENCODE,* @param string $key 密钥:数字、字母、下划线* @param int $expiry ...
  • 加密 解密字符串的例子加密 解密字符串的例子加密 解密字符串的例子加密 解密字符串的例子
  • 加密解密密钥互为相反数,值不能过大,不然会出错,有不可打印字符
  • VB字符串加密解密源码.代码小巧简单,很实用
  • VB.NET2010】VB.NET的AES加密

    千次阅读 2015-03-15 00:47:38
    考虑到网上的VB.NET实现AES加密基本上找不到参考代码,所以我花了10个小时查阅资料以及测试得到了以下的实用代码。 供大家参考,我参考了以下网页: ...
  • VB图片加密技术实例:将图片转换了Base64格式字符,任意图像转换为Base64文本,支持的图片文件格式|*.gif; *.jpg; *.jpeg; *.jpe; *.bmp; *.png; *.tif; *.tiff。如果有Base64文件查看程序,你可输入这段转换后的...
  • vb6.0下AES加解密模块,可修改后做软件注册等,本加密程序可以加密字符加密文件,当然也可解密,对学习AES算法当然是挺有参考意义的。可在多种场合中都可应用.
  • <p>I am using RSA encryption with PHPSECLIB and VB.NET. The code for PHP is:</p> <pre><code><?php include('Crypt/RSA.php'); $rsa = new Crypt_RSA(); $key='-----BEGIN PUBLIC KEY----- MIGfMA0...
  • 网上查到的基本都是GB2312编码下的BASE64转码,稍微修改了一下用于UTF-8格式的转码
  • vb 字符串加密

    2019-10-04 08:31:24
    已知字符的ascii码可以用8位二进制数来表示,某同学想用以下加密方法进行加密:将原八位二进制码每四位进行前后交换 将得到的二进制码再转化为字符输出 即:0000 1111→1111 0000 解题思想:拿到这个题下手方向有两...
  • VB 异或(Xor)字符串的方法

    千次阅读 2020-09-28 22:36:20
    VB 异或(Xor)字符串的方法 关键字:VB,VBA,异或,Xor,字符串 文章目录VB 异或(Xor)字符串的方法前言一、方法一,比较笨。二、方法二,感觉轻松多了。三、说一说关于UltraISO的部分算法 前言 简介:大家都...
  • VB6的MD5加密,支持中文。找了很久的。VB6的MD5加密,支持中文。找了很久的。VB6的MD5加密,支持中文。找了很久的。
  • AES 加密/解密 字符串及文件

    千次阅读 2020-03-27 15:31:31
    CBC模式中,加密或者解密对象不能被重复使用,即加密了一个明文之后,不能再用此对象加密其他明文。 key必须为16或24或32个字节长度。 明文必须为16的倍数个字节长度。 代码: import base64 from django.conf ...
  • 测试环境:windows10和Microsoft Visual Studio 2010文章要点:1、System.Security.Cryptography介绍2、加密算法介绍3、使用加密服务4、加密代码实例 电子商务的爆炸性增长需要保护更多的保密数据,对安全算法的...
  • 使用XOR对字符串进行加密解密,私钥通过SHA256或SHA512进行编码。全程推荐使用UTF-8编码。
  • --VB源码 加密 解密 字符串 源码 *************以下为窗口及控件代码************ Private Sub Command1_Click() Label3.Caption = cipher(Text1.Text, Text2.Text) Label8.Caption = "加密完成!" End Sub ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,718
精华内容 1,087
关键字:

vb.net 加密解密字符串