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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 }( k0 T: o& d$ e/ w' v
原始出处：http://www.3ast.com.cm

看不懂的直接绕过# A4 x5 v. a; T+ d7 T
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================7 y; f( g# F' Q# @, @" V3 _
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法! B* p  C7 X! y# Y7 y; x/ A' E  i
以下是RSA算法文件5 Z1 C2 v/ R0 r

文件名RSA.ASP
===============================================8 B8 r& ]  {* i0 }8 u; I
<%
Class clsRSA ) M5 ^+ U7 S2 D# b! @& `
Public PrivateKey
Public PublicKey
Public Modulus ; _3 w/ f. _: j
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod - w) y. v1 V! s) @/ G. M! E" a
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 0 Y$ z0 N3 v3 S& o; b
lLngResult = 1 / l1 ]( G; F' l8 E9 ]
For lLngIndex = 1 To pLngKey / 2 . p8 D6 F+ {6 I: Y
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus : }9 Q$ `' t. K
If Err Then Exit Function " i5 `% ^/ }" K2 w$ S# g4 a
Next
Else
lLngResult = pLngMessage 3 h. y3 u% M4 y/ n& u# q( p
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus . n  Q8 H  Z/ p: l$ f0 t2 S2 v$ o
On Error Resume Next 0 V9 \6 t0 [. |2 f  t
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 S: [+ R  A# i" ]3 M
If Err Then Exit Function ; v- m8 l. y. _- H4 Q* v- _+ ~
Next
End If
Crypt = lLngResult
End Function/ ?' m4 R$ ?, T
) e, O! e* b, n- `6 ~  p( t! s
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 8 C, l) c( h4 a
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted % _9 B& B: A) K- \, E, f( A3 O5 c! g
lLngMaxIndex = Len(pStrMessage) . t% i$ m0 {) g
If lLngMaxIndex = 0 Then Exit Function 4 z5 \# W; t* N* l
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next   t, A5 Q" U7 u! u1 {  T
End Function
Public Function Decode(ByVal pStrMessage) 6 O; G" t1 Y" X8 w5 T5 ]
Dim lBytAscii
Dim lLngIndex * F4 o, ~( |  x7 _$ q3 o4 U
Dim lLngMaxIndex + h, _# a( a6 ~6 ^1 V5 a* O( j  _# v
Dim lLngEncryptedData
Decode = "" $ |0 k' c- R* q1 l
lLngMaxIndex = Len(pStrMessage) . r2 U6 k) @% T& h. P9 @
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # B0 y$ o. h) b) \
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) $ e: d+ M! B- k+ \5 f  e$ x
Decode = Decode & Chr(lBytAscii) 9 ]) ^5 a* \; ]
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) * {: i; T8 q6 q' O3 e  p+ \
End Function
Private Function HexToNumber(ByRef pStrHex) , z' s" k  N' a$ J, B3 W- T* e/ |/ Q" O
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class " l$ q3 Z, C" S0 ]) y- x
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN # v, R: p: s0 c( {- \. A6 c3 e
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ' u, p- X- w1 ^5 ~. T/ F
LngKeyD = "20643"
LngKeyN = "29893" ( M, }" m$ M( [6 X
StrMessage = Message ) u/ E0 d) C8 s3 v& G2 L
Set ObjRSA = New clsRSA 6 ^( G1 B8 c1 L. v1 e. W" \; S
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN : h$ Z' a: _% G  W+ O! m
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function3 J: ~6 y, g& \: Z1 D
Function Decryptstr(Message) / d. O' n7 A' I# k* g
Dim LngKeyE
Dim LngKeyD 6 Z. p! A3 {. a" t% ?6 m$ L
Dim LngKeyN * ^8 L5 P# |4 s1 E" M2 ^% s# [! D0 k
Dim StrMessage 7 c3 E7 J0 a# J. u1 ]) c5 {
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 4 m6 x, t/ p" d, K9 D# u2 S
LngKeyN = "29893" ! j, O  p, n; @+ i2 ]9 v, o
StrMessage = Message 9 D; y* k9 w# x2 }7 o2 _$ ]
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD $ B9 b2 x" h9 O% \$ k' d4 V
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing $ f/ r0 a8 D' M
end function   P2 K2 i+ p1 k3 E  f7 M5 @+ R4 n6 G
%>
===============================================9 ?  H  {  i3 c+ J: f+ V
2 V* G  H5 Q' ]2 ]
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下  O* }# O4 U; o$ N0 L3 k+ Z# v
 / @  ^* P! v  D; y
<%* u5 |* T8 |% H- N
function Encryptstr(Message) 0 K& B# ~$ k# o/ w4 v
Dim LngKeyE 4 d5 D2 V9 `8 j( F& v6 X
Dim LngKeyD 7 N/ W' C2 O" \: M  e
Dim LngKeyN 1 x% b' G2 N' D
Dim StrMessage ) t6 U! P1 C* w: x
Dim ObjRSA 8 t& \$ L2 T: e" N5 G( U
LngKeyE = "32823" : b. x) x/ c# Z* D+ a$ Q
LngKeyD = "20643" $ J3 M' J7 i/ ~' y- `% C5 i3 {
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN   i. n, m) w; W0 n5 U$ I7 o5 [
Encryptstr = ObjRSA.Encode(StrMessage) # @/ h2 k) u/ j( H
Set ObjRSA = Nothing 0 T: r/ C1 c; E
end function , a* |; g; u% x% X/ o2 V& Q
function decryptstr(Message) ) d6 k8 ?8 h$ J8 v/ n
Dim LngKeyE 3 M! ^0 T; s0 k  G
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 8 T/ U5 p6 w2 C7 d/ X7 w* o) y
Dim ObjRSA & Q2 @8 P3 r( b& P9 Y2 ]
LngKeyE = "32823"
LngKeyD = "20643" 5 S% Q$ t4 \* T. O2 W* A# n, i3 C
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 t# c6 w1 S7 t7 q- ^2 H3 C
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ! |/ ]1 F  F! T' M2 O3 ]
dim last,first * [* a% x$ Z( O5 J* Q
first="!@#$%^&*()"
Response.Write "加密前为:"&first : J5 F) l( T% P6 _+ j" |, @% j
last=Encryptstr(first) * a" I0 ?3 ]* @  e
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 2 i8 Z$ k* N3 F+ S5 t) K* N* g
%> ==============================================
剩下的就是字符的对照表了! m8 l+ h# s/ B" p( Q1 B' I
===================字符集================
1_____6EBB
2_____5C1F. J$ E# K8 U4 a" C! X4 Z4 Q: q
3_____4D750 w9 u' R: w9 Y
4_____26CC
5_____4F88) @; Y. j2 f& V+ a
6_____3F4E, {" r# _7 B7 ?# s) t- _  b
7_____0A9D. z, B$ m: O3 f' a, T5 ]
8_____1A1C
9_____6D202 c( P! }2 X. ]- c- D: @
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F; ?# x" K+ C4 {' [
h_____0F9C1 w0 A0 V! T* o# }* z7 A
i_____00FA% p5 ?3 |  Q. o
j_____5A503 E! W# g8 E* a2 H, p# {
k_____2850, f( `* u5 G+ p0 u$ C9 o# l# {
l_____3E7B+ b8 N# u& \9 `( E1 G
m_____71C5
n_____1FC82 ?3 T- D4 n6 D9 C- e" a' z( q
o_____74C1+ z! O( B  j$ R% }+ \) r3 N
p_____5FB89 W. Q$ `/ _- [7 r% A& w% w$ p
q_____6085* t1 X- c+ t8 P6 z7 f9 g
r_____3AC4$ O% @4 b; G3 n( f  M, L
s_____2F50
t_____36F84 u! p" G/ Y5 Y/ |, r$ A
u_____7010  u* \; q" C+ }* Q5 I
v_____0B42; n% n* l% B) |, o' W5 ^# y
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62336 A  v. Z# I9 |
@_____3A452 O1 x$ _) U: N8 ^5 C1 w
#_____2291
$_____5D5C
%_____09B9
^_____43EA8 i) t& [/ c  I4 L+ `# ]  q5 C
&_____62B9
*_____6301# G: D! ^4 V6 |& i7 m
(_____4659( v$ o" I2 N; i0 }
)_____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 分享给朋友]