[原创文章] 关于国内某知名大学网站加密算法的研究

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm. r' {- i* m# }

看不懂的直接绕过
加密前为:hwy123456( t6 y9 Y- L2 M2 o; v
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E; S( T6 t4 [$ ^7 s1 i' Y# x! z
( P  }8 P. H0 F, f8 L! C
============================================1 d; J1 _5 O" T6 [
上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 A% e: H+ b  w2 w: D! ?* [
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件" X/ Z0 U0 h# L5 C

文件名RSA.ASP+ k$ e4 x# f6 u/ o. I
===============================================
<%
Class clsRSA , b4 a! f+ @8 }3 u( {0 o! L  f
Public PrivateKey
Public PublicKey   l7 B4 k* ?4 |# }& d/ d
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ) i# l& m: E; M8 S, T% Q
On Error Resume Next ; |# ^9 P& g4 B' H5 c+ ~
Dim lLngMod " r7 s7 |5 |! v/ G$ z" R
Dim lLngResult
Dim lLngIndex $ Y! k! m; U2 y0 L5 I. {! M
If pLngKey Mod 2 = 0 Then
lLngResult = 1 1 v1 i6 m! x  }1 m
For lLngIndex = 1 To pLngKey / 2 ! A) b* P8 _& T, Y& k' `
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 0 {. h( V  |! u& s( O; [
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 9 K9 O3 x* v5 u" s
Else ' a) j7 j4 z9 x) A2 |0 d9 k
lLngResult = pLngMessage " z0 d7 n) x3 r# ~* h. |, M
For lLngIndex = 1 To pLngKey / 2 1 l2 V2 X' T+ X! k
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next   d$ g' t0 t2 A* b3 [
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 6 f; Z/ v  L5 i$ E% K* r
Next
End If 9 a8 y+ q7 }! o" S9 i+ k
Crypt = lLngResult 4 |8 H- f4 s5 x2 I3 R3 b" z
End Function, O* \) |$ q% [2 z

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii / ~8 a. Z3 ^  S, X" T
Dim lLngEncrypted 1 W' g5 R2 ?5 |; q
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 2 h. F) n, e/ D3 S
For lLngIndex = 1 To lLngMaxIndex - D8 N1 d1 a: q' _: ?7 D
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 0 _2 \4 o  l6 D7 G
Next
End Function 1 V1 W6 R) K8 ]! ]
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 4 D' X2 W% v( E
Decode = "" , ^+ o; o; |9 ^7 J, [
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 0 @. H% N- X9 k: _
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ) ]' L, d: ~2 h
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   W* X+ N" Y7 S' G7 W" Z0 m
End Function
Private Function HexToNumber(ByRef pStrHex) ! L# v  o# I, `& l' ~* m  x8 A9 B; K
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) ) D0 [  A! A4 f7 T8 p$ f
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ; W! \# y  R! A& m4 \2 \; h2 T: q
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message , w) _9 K" N' ?& h
Set ObjRSA = New clsRSA 4 c/ J4 e$ p9 W6 R# U" I
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 i" S( F& ?; r$ T# [
Encryptstr = ObjRSA.Encode(StrMessage) * Z& d0 ?' {1 ^
Set ObjRSA = Nothing
end function2 @5 v: @) M) d
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD + d. Y) p3 Y4 V: _& j/ o
Dim LngKeyN
Dim StrMessage 4 m. x% c) a6 X4 w, Y
Dim ObjRSA ; p, I( p" V, w4 T8 W2 e
LngKeyE = "32823" 5 K- ?- X9 B& ]
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ! ?* Z- }% H& X: b
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================8 ]. t. W9 p9 U

还有一个用于测试这段代码的test.asp: L" S! j8 G! e$ y2 b
有兴趣的自己搭建个IIS测试下4 s( j: E2 R: b4 r/ X5 l/ M% y
 0 U, y& z; b( Y1 |7 a
<%! Z9 ~/ O5 L5 _
function Encryptstr(Message) 4 O' E! V+ M, n) M7 ]
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage / c" ^6 K6 J1 \6 q- Q* G
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" . P9 H& Z( M7 e9 o
LngKeyN = "29893"   F- F/ d( e; p: C5 K" H
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * p5 n3 l" |. C* D9 B
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ! p) M$ n1 P6 m) V
Set ObjRSA = Nothing , g4 W7 x/ Q" b  Z. ~* u7 o4 y
end function
function decryptstr(Message)
Dim LngKeyE   U$ @% O$ j2 x- K
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 4 \6 {6 w, P1 H0 W4 s5 E
Dim ObjRSA * v8 g3 F( v- T% p- L" }9 A* K
LngKeyE = "32823" 4 b, c" W0 @  {  C
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD " N% W. ?! ?# F0 s( q
ObjRSA.Modulus=LngKeyN ; w) U% z% V5 Q1 e0 P! J
decryptstr=ObjRSA.Decode(StrMessage) 9 m5 @& ^; S. b6 x$ E8 t
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first / `! V, p& U  l+ r
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 3 ^& ^2 T' ]5 g* D+ e8 ^2 Y
%> ==============================================% `* v1 ~$ |: D
剩下的就是字符的对照表了, W) G0 Y+ r& L) r4 |+ Z% M& v
===================字符集================
1_____6EBB, s  X2 E/ {8 |8 F. a
2_____5C1F
3_____4D75  B, a  E$ J( E, I+ i7 a  ]
4_____26CC
5_____4F88
6_____3F4E& |3 y& l3 A; ^% }
7_____0A9D
8_____1A1C. q3 v" P; d: n" R, d& `1 |
9_____6D20
0_____1089$ ?3 _8 i9 `3 r! B( A2 \! C2 o* Z
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F- ?* N3 R2 k6 X1 g- {  c  G
h_____0F9C
i_____00FA& n- f" R; Q9 v
j_____5A50
k_____2850( B8 ?% @2 Q4 z4 C% u
l_____3E7B- i- O  w& o' n) w" H' B1 l
m_____71C5
n_____1FC8
o_____74C13 D7 Z8 z. S4 s; z1 _
p_____5FB8
q_____6085. ?5 w) X( \: ?, q
r_____3AC4. P" i6 d9 r6 {
s_____2F50
t_____36F8) S; X/ O* ]6 ?8 w% k8 s
u_____7010
v_____0B423 ]) x& K/ f9 A' x4 W, t- l
w_____1C7A6 W! [4 c+ z8 q( ~
x_____16F8' a. k- b. n  L2 P8 [- [4 Y- d
y_____2EE7
z_____5CF3) ?* t/ j) S6 ]
!_____6233
@_____3A455 w+ t% Z, J" M# A: x+ a
#_____22912 P$ X6 Q7 Z: @% C8 L% k
$_____5D5C, S8 t+ z0 w0 C! g; F+ [; A' g" n
%_____09B9  d. Z& o/ G4 x2 R8 N
^_____43EA2 T* T: L# n" g% G+ I' Y  N
&_____62B9
*_____6301# n1 n: e& u/ f6 B
(_____4659
)_____5C82

希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

鱼儿无心

3.A.S.T士兵

Rank: 1

帖子: 22
积分: 22
威望: 22
金钱: 5
在线时间: 0 小时

2楼

发表于 2011-12-4 17:17 | 只看该作者

收藏了。。。。。。。。

TOP

返回列表

[原创文章] 关于国内某知名大学网站加密算法的研究

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]