我写的一个非逆向密码加密算法。(Basic)

folklore

不过算法原理是一样的。不知道强度如何，有条件的请帮忙测试一下。
本人对其还是有点自信的。

很容易可以将其化为perl或php的。因为算法很简单。

1. 
   
2. 
   
3. Function encode16(str As String)
   
4.     Dim ecBuf(17), ecBase, i, strLen, ecStep
   
5.     Dim ecHexchr As String
   
6.    
   
7.     ecHexchr = "0123456789ABCDEF"
   
8.    
   
9.     strLen = Len(str)
   
10.     If strLen > 16 Then strLen = 16
    
11.    
    
12.     For i = 0 To strLen - 1
    
13.         ecBuf(i) = Asc(ChrAt(str, i + 1))
    
14.     Next
    
15.     For i = strLen To 15
    
16.         ecBuf(i) = ecBuf(i - strLen) + (ecBuf(i - strLen) Mod (8 + i))
    
17.     Next
    
18.    
    
19.     Rem #############
    
20.     Rem
    
21.     Rem     Step 1 :shift step by step
    
22.     Rem #############
    
23.    
    
24.     For i = 0 To 15
    
25.         tmp_ = ecBuf(i) Mod 16
    
26.         ecBuf(tmp_) = (ecBuf(i) + ecBuf(tmp_)) Mod 256
    
27.     Next
    
28.    
    
29.     Rem ################################
    
30.     Rem
    
31.     Rem     step 2 :
    
32.     Rem ################################
    
33.     ecStep = 7
    
34.     For ecBase = 0 To 15 - ecStep
    
35.         For i = 0 To ecStep
    
36.             tmp_ = ecBuf(i) Mod (ecStep + 1)
    
37.             ecBuf(tmp_) = (ecBuf(ecBase + i) + ecBuf(ecBase + tmp_)) Mod 256
    
38.         Next
    
39.     Next
    
40.    
    
41.     ecBuf(16) = ecBuf(0)
    
42.     For i = 0 To ecStep
    
43.         tmp_ = ecBuf(i) Mod (ecStep + 1)
    
44.         ecBuf(tmp_) = (ecBuf(ecBase + i) + ecBuf(ecBase + tmp_)) Mod 256
    
45.     Next
    
46.    
    
47.     ecBuf(0) = ecBuf(16)
    
48.    
    
49.     Rem ###############################
    
50.     Rem
    
51.     Rem     step 3:
    
52.     Rem ###############################
    
53.    
    
54.     For i = 0 To 15
    
55.         tmp_ = ecBuf(i) Mod 16
    
56.         ecBuf(i) = (ecBuf(i) + ecBuf(tmp_)) Mod 256
    
57.     Next
    
58.    
    
59.    
    
60.    
    
61.     encoce16 = ""
    
62.    
    
63.     For i = 0 To 15
    
64.         encode16 = encode16 + ChrAt(ecHexchr, ecBuf(i) Mod 16 + 1)
    
65.     Next
    
66. End Function
    

复制代码

AMD-K6

昏，程序不是问题，考验我高中的 basic 了

folklore

呵呵。有些时候也是要用到Basic的，比如ASP


忘了加上另一个chrAt函数了。现补上。

2. Function ChrAt(str As String, n As Integer) As String
3.     If (n > 0 And n <= Len(str)) Then
4.         ChrAt = Mid(str, n, 1)
5.     Else
6.         ChrAt = ""
7.     End If
8. End Function

复制代码

使用例:

2. rem input user_Name as user's name. ==>User_Name.
3. rem run a query to get the password of the user( by user_Name)==>DB_Psw
4. rem get the user's password that required by the FROM of HTML document.==>FR_Psw
6. if encode16(FR_Psw)=DB_Psw then
7.    MsgBox("Login successful!!")
8. else
9.    MsgBox("Invalid username or password!!")
10. end if

复制代码

当然，DB_Psw也是要先经过encode再加入到数据库中的。

encode16("0")="2A21B44A802F24FA"
encode16("test")="0DA000A508004C0E"
encode16("ok")="0C000A030D284A20"


不过，16位太小了。算起来，密文空间只有16^16，也就是2^64位长。比MD5要128位要短一半。不过，你要想将其化为256位也没什么大总是。

Heefan

what is 非逆向密码加密算法? u mean one-way function, hash function , however, there are many kinds of hash functions and compress function. which one u used or u created a one-way function by urself?

Heefan

I don't know how to use basic, and ASP language. but I want to know ur algorithm

folklore

Post by Heefan
what is 非逆向密码加密算法? u mean one-way function, hash function , however, there are many kinds of hash functions and compress function. which one u used or u created a one-way function by urself?

The algorithm that I used is a function  like compress function&hash function.I mease I just mix then up.

Ps:U can't learn a programing language.U just use it.So,I don't know what the mean of  a station that like "I can't understand BASIC". Of course,IF YOU UNDERSTAND ENGLISH!