一个利用随机数加密字串的算法

原创 2004年10月24日 13:39:00

首先这个算法没什么特殊之处,只是怕以后找不到,所以放到了这上面 

       每个字节加密后有6种结果(占两个字节,如果需要大于6种的话,就要多用1个字节,即占3 个字节),也就是说如果字串占n个字节的话,可能产生的结果为6的n次方个,这个算法破解的强度不大,大家可以完善一下:
'窗体上一个按钮,两个listbox
Option Explicit

Private Sub Command1_Click()
    Dim i As Long
    Dim s As String
    For i = 1 To 100
        s = encode("这是一个测试 hello world")
        List1.AddItem s
        s = decode(s)
        List2.AddItem s
    Next
End Sub
Private Function encode(ByVal s As String) As String '加密
    If Len(s) = 0 Then Exit Function
    Dim buff() As Byte
    buff = StrConv(s, vbFromUnicode)
    Dim i As Long
    Dim j As Byte
    Dim k As Byte, m As Byte
    Dim mstr As String
    mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
    Dim outs As String
    i = UBound(buff) + 1
    outs = Space(2 * i)
    Dim temps As String
    For i = 0 To UBound(buff)
        Randomize Time
        j = CByte(5 * (Math.Rnd()) + 0) '最大产生的随机数只能是5,不能再大了,再大的话,就要多用一个字节
        buff(i) = buff(i) Xor j
        k = buff(i) Mod Len(mstr)
        m = buff(i) / Len(mstr)
        m = m * 2 ^ 3 + j
        temps = Mid(mstr, k + 1, 1) + Mid(mstr, m + 1, 1)
        Mid(outs, 2 * i + 1, 2) = temps
     Next
     encode = outs
End Function

Private Function decode(ByVal s As String) As String '解密
    On Error GoTo myERR
    Dim i As Long
    Dim j As Byte
    Dim k As Byte
    Dim m As Byte
    Dim mstr As String
    mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
    Dim t1 As String, t2 As String
    Dim buff() As Byte
    Dim n As Long
    n = 0
    For i = 1 To Len(s) Step 2
        t1 = Mid(s, i, 1)
        t2 = Mid(s, i + 1, 1)
        k = InStr(1, mstr, t1) - 1
        m = InStr(1, mstr, t2) - 1
        j = m / 2 ^ 3
        m = m - j * 2 ^ 3
        ReDim Preserve buff(n)
        buff(n) = j * Len(mstr) + k
        buff(n) = buff(n) Xor m
        n = n + 1
     Next
     decode = StrConv(buff, vbUnicode)
     Exit Function
myERR:
     decode = ""
End Function

 

 

真随机数加密

        用真随机数做密钥的加密称为真随机数加密,加密很简单但需要和明文字节数一样长度的真随机数字节,然后一对一的顺序相加或者异或起来就完成了加密。解密则是做加密的逆运算。如此可见如果真随机数是...
  • sjd163
  • sjd163
  • 2007年10月07日 10:34
  • 1161

加密法随机数生成器

除了传统的线性同余法(即C语言里的rand())产生伪随机数外,还可以用密码来编写能够生成强伪随机数的伪随机 数生成器。密码的机密性是支撑伪随机数生成器不可预测性的基础。原理如下图: 有关...
  • keyu0915
  • keyu0915
  • 2017年08月26日 21:14
  • 304

Androidhttp请求加密机制详解

Android开发中,难免会遇到需要加解密一些数据内容存到本地文件、或者通过网络传输到其他服务器和设备的问题,但并不是使用了加密就绝对安全了,如果加密函数使用不正确,加密数据很容易受到逆向破解攻击。还...
  • gvvbn
  • gvvbn
  • 2016年11月09日 11:59
  • 5605

自定义字符串加密

标准的加解密算法消耗较多的计算资源,于是自己写了个简单的。适用于加密场景不严格的情况下。 思想:字符串->byte[]->对每个byte按位亦或。 代码示例: import java.uti...
  • chuchus
  • chuchus
  • 2016年05月03日 09:55
  • 1325

利用随机数加密字串的算法

首先这个算法没什么特殊之处,只是怕以后找不到,所以放到了这上面.   每个字节加密后有6种结果(占两个字节,如果需要大于6种的话,就要多用1个字节,即占3 个字节),也就是说如果字串占n个字节的话,可...
  • ejay
  • ejay
  • 2006年01月16日 15:59
  • 669

伪随机数加密思路

伪随机数加密思路        伪随机数加密是伪随机数组作为密钥加密的例子。        它工作时需要用户输入密码。密码是干什么的?密码就像一个种子,有了它才能完成加密或解密。密码的数值渗透到整个过...
  • sjd163
  • sjd163
  • 2006年06月14日 15:23
  • 2383

加密技术在信息安全领域的重要作用

方品 10121540117 2015年6月24日 加密技术在信息安全领域的重要作用 随着信息科学技术的发展和近年来人们的安全意识和隐私意识逐步提高,大家也越来越关注网络中的信...
  • FANGPINLEI
  • FANGPINLEI
  • 2015年06月24日 13:39
  • 1835

一个利用随机数加密字串的算法

       首先这个算法没什么特殊之处,只是怕以后找不到,所以放到了这上面        每个字节加密后有6种结果(占两个字节,如果需要大于6种的话,就要多用1个字节,即占3 个字节),也就是说如果...
  • rainstormmaster
  • rainstormmaster
  • 2004年03月30日 19:25
  • 2219

带随机数的md5加密

注册的时候,把用户的密码用md5(md5($password).$salt)加密,$salt是一个6位随机数字,下面是我的一个获取6位随机数的一个方法:  ...
  • dumpling5232
  • dumpling5232
  • 2013年10月30日 07:35
  • 1816

加密狗原理-高强度加密-程序加密技巧

加密狗原理,加密狗加密的基本原理 本文将介绍软件加密加密狗原理,加密狗加密的基本原理的一些编程技巧,以及软件开发者将如何编写安全可靠 的代码,如何对付各种各样的加密狗破解,编写加密程序时应该尽量避免...
  • whjyt
  • whjyt
  • 2016年08月19日 14:03
  • 1926
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个利用随机数加密字串的算法
举报原因:
原因补充:

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