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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
3 z3 L* x% n% D0 A. l1 T  T% L
============================================  {2 f" _% \1 B) p3 R/ u& s* Q
上面是当时自己校内的心情。现在已经解破出来了，分享给大家4 ]* h8 x( N$ `. z
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件3 O9 b2 X* [; D% J' r! d/ ~

文件名RSA.ASP
===============================================
<% 0 x+ _3 @  s0 J% b
Class clsRSA
Public PrivateKey ) a  B1 h. e7 \6 P
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ) {% x2 Z9 u' o) A; U) T6 V: D
On Error Resume Next % T2 V5 O' ~, S* U; Z# h
Dim lLngMod
Dim lLngResult
Dim lLngIndex 3 b5 s! ^' w; {+ J0 D; `  z6 X
If pLngKey Mod 2 = 0 Then , M  c. U, V# D& b: B1 D
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus + c8 P/ {- }4 g( q" N* L: E
' Mod may error on key generation 5 g( h2 v+ p6 p6 C4 ^. m( c
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 ^) m0 @/ Y4 F3 O
If Err Then Exit Function
Next 4 W$ K3 h5 u: ~  q1 y8 C- \9 W
Else
lLngResult = pLngMessage 6 a& n, i+ j+ P+ H  K
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 0 o: d5 z0 g, X
' Mod may error on key generation 9 H! w; l5 e  ?) V3 l( T$ V1 T: T
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 2 M5 K: X- h0 O0 ]8 s( ?% t) W
Next 4 H% D6 x& ]6 F3 X0 Z
End If 4 F( G% |2 b1 R  [( ?$ d6 H% t3 n9 R
Crypt = lLngResult " u) u% O3 y) ?' @6 V
End Function6 @+ t& y; T5 k7 d

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex : q- l, w1 I6 a4 a* G7 O
Dim lBytAscii 4 v4 M3 J8 S* i( O4 j: r! H3 ]
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 2 S9 m3 m9 b/ U1 G
If lLngMaxIndex = 0 Then Exit Function + b9 t6 k: H3 ]; N9 {. H: @5 S" @
For lLngIndex = 1 To lLngMaxIndex 3 Z5 z0 s, E% }& l
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) " \" w+ F3 d1 U
Encode = Encode & NumberToHex(lLngEncrypted, 4) : B7 r/ f* V& q6 e2 Q7 s7 W$ U$ {
Next 2 R1 S# A3 \2 p% x# }' T5 t
End Function # P& {: u9 D: |" [8 r& y' v. V
Public Function Decode(ByVal pStrMessage) 5 S7 i+ {* Q0 J" m* n1 q$ X
Dim lBytAscii
Dim lLngIndex , L  K% ?: I$ L
Dim lLngMaxIndex
Dim lLngEncryptedData ' S! b* Q  B( W7 l2 E/ a
Decode = "" 2 g' X2 E) B# O, T! H7 r' U  T
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ! R& c: Z- ?& r
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) " c' M9 O, D% A+ m0 [
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) ! v/ Q! s+ i2 \1 O% [7 _' |
HexToNumber = CLng("&h" & pStrHex)
End Function 7 D8 a9 x3 ^$ Y' ~2 m
End Class 3 i+ T" d! L0 Q# G  `) k9 L, X: T
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage + O2 p! ~  b7 z
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 8 u* ~; S* @6 V# }4 o
Set ObjRSA = New clsRSA ; [9 I2 F. A/ f1 v6 H1 \
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN / [. x# R$ U. m0 z
Encryptstr = ObjRSA.Encode(StrMessage) / ?, g* |) _% i* K' f7 C3 ]4 d- d
Set ObjRSA = Nothing 3 I5 _9 |- s7 ~) }
end function( U  g1 ~7 Q/ [* _/ S. v0 V8 p5 F1 g
Function Decryptstr(Message) + U; {* l3 u5 I
Dim LngKeyE : @3 V1 u2 w- y+ S- S9 K
Dim LngKeyD
Dim LngKeyN ; Q  h# d: L& U" W( J2 }& t- J, e
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ; {, u" z' X+ P" f( V( m! V' H
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 2 y9 v( z1 I9 F$ }7 \  r
%>  Y5 L$ l. [/ Y2 e& _9 N- V% I
===============================================
$ `3 v8 \" I1 L  ]6 F7 d
还有一个用于测试这段代码的test.asp7 c$ V+ j6 y- P
有兴趣的自己搭建个IIS测试下) F: r- ]  `& X  W* m; p9 _0 c6 ?
 1 n! @! T, B2 u
<%. ?  Q- I, _4 b" `6 ?
function Encryptstr(Message) # {  {" F- u* H9 y" q& I& p
Dim LngKeyE , t6 @# l- t! ]+ n* W9 W* k
Dim LngKeyD
Dim LngKeyN 9 o+ e: w, Q+ l8 A, [
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ' n) J: r# X+ M( l
LngKeyD = "20643" 4 u( P8 g" S+ h
LngKeyN = "29893"
StrMessage = Message 9 t: g- o; r# ~
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   M4 C8 A0 v+ G  w
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ; V( _% ^/ s0 d$ l& B
end function " O6 A6 b  N1 W% e
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ) R& {3 o+ c0 b
Dim LngKeyN * L+ y0 W& A2 y
Dim StrMessage
Dim ObjRSA / k+ B7 S4 a* t7 n% J% F
LngKeyE = "32823" # X- B' I5 w6 O! y! E
LngKeyD = "20643" 7 x! y- q* J( L3 i) p" x! h
LngKeyN = "29893" ; G0 T9 S, Q* b6 \0 X* P3 |
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN   N3 @& b* R; N5 j$ \4 k' P
decryptstr=ObjRSA.Decode(StrMessage) 9 O- }' z; K8 z# y9 T
Set ObjRSA = Nothing 3 Q" J0 E8 Y' b' U
end function / p/ @: P. D0 p' v7 K" _
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last + k7 x, L; J) A/ o( P. |3 Q- Q
Response.Write "解密后为" &decryptstr(last) # t9 h, C5 r/ ~6 `
%> ==============================================1 c6 w; ^) y9 Y/ r9 B; T
剩下的就是字符的对照表了
===================字符集================5 B6 _5 L2 H! x
1_____6EBB7 i8 `* f: O$ T+ [9 K/ b
2_____5C1F
3_____4D75# a9 z: |/ R& x, v* F% z) p; s
4_____26CC. ?* N4 U' K  g3 ?  ?4 b
5_____4F882 X6 E- o0 G1 m
6_____3F4E6 ~) B5 K+ U$ d, A  j. ?& Z
7_____0A9D+ N. m+ F- L- Q" r6 o, }  r
8_____1A1C. D& ^' t+ ?, G& g2 v) K
9_____6D20
0_____1089& O) l0 j- U' u7 I
a_____0F3E3 ~% H* @) Y% l& N7 l" J- i$ K
b_____3159, W2 b/ N5 |/ A! [! \
c_____3517: u  C$ u2 o5 o4 l* H1 b- M) a9 |) w5 I
d_____419C5 k1 o/ x, {* c0 c& y4 j
e_____615C
f_____556F
g_____2B7F$ r: G) T$ p5 J/ [, D! u/ C
h_____0F9C4 {. g0 l$ }  I3 k! w
i_____00FA
j_____5A505 J& a+ S5 a% k+ }1 l: }* F
k_____28508 E" s9 O, I3 l  H: `3 o( g  P: m* k
l_____3E7B8 L$ q. ?% s5 a4 O
m_____71C5
n_____1FC8
o_____74C19 P  l' G  n* @2 n0 V' B. @) g8 W
p_____5FB8
q_____6085
r_____3AC49 n& }: v$ L4 @; ^; a' X: T' Q  \
s_____2F50! a) M2 g$ Q6 ]1 e
t_____36F8
u_____7010
v_____0B421 o3 R! l! j; s  c# P
w_____1C7A
x_____16F8) m' x. {7 Y) c0 }: `
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291& V# Q; v0 w. m
$_____5D5C
%_____09B97 V" ?9 \3 ~+ L( ]7 w6 F* x2 i
^_____43EA
&_____62B9
*_____6301
(_____46596 |1 X2 a% L6 V4 T, V- Z
)_____5C82

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

返回列表

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

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

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