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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm/ D& |2 `3 {9 s6 u
原始出处：http://www.3ast.com.cm/ v1 b% ^9 L( }3 ]# e  h& v. `: Z

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家$ p' D$ t7 Q1 L& w2 R: J# l9 i
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件" N, ?3 N* {- |* v. ^7 N
2 g# h, \3 U) s0 N
文件名RSA.ASP
===============================================$ k9 G/ e5 S! G! E3 Z4 T6 u7 M$ f
<% # p7 ~% Q1 y9 v. P
Class clsRSA * B/ n# D3 r0 s" U% j: Y) N7 T
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod + S4 ^: G6 {* a3 C' C  g
Dim lLngResult 6 V) F1 O5 S2 e& v$ q% a
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ' Y$ S- A) Y% |
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 5 r& B0 }* W& N' a& k
lLngResult = (lLngMod * lLngResult) Mod Modulus ( _0 J" N- o0 R4 i
If Err Then Exit Function
Next
Else 6 `% c1 {  I# E6 J% U9 e7 w5 n& `
lLngResult = pLngMessage % R3 S. w# Z  d' W
For lLngIndex = 1 To pLngKey / 2 - z% [& `# R3 N1 C
lLngMod = (pLngMessage ^ 2) Mod Modulus , j. e% T+ I0 M8 K( }& s& d
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 L; E+ V" R3 u
If Err Then Exit Function ( d7 x: W* V" x( I0 X
Next
End If
Crypt = lLngResult   q: V. g) A( C8 l2 l1 B
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 1 z7 R2 X; u5 R1 K& Z
Dim lLngMaxIndex
Dim lBytAscii ) P1 `8 N: x. N0 B3 t3 E
Dim lLngEncrypted " Q+ K9 Q& O  A3 q
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ; K( r; z* }6 N* b: S
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) % X6 N: S/ i0 W5 l
lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 }: ^* [! c. n+ X) b
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next & Q7 N, A1 H, L: P5 G3 b
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 2 k9 h" l, G* Z7 ]- T! h' C
Dim lLngIndex ) o0 y0 L" Y- m& l* ]7 k. F0 Q3 |8 d
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 5 T8 @" i. [8 X9 u; P, F$ m+ R! K
For lLngIndex = 1 To lLngMaxIndex Step 4 5 }- Q1 ~3 S: L5 c  A, ~3 W
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 5 O3 i. U) c# K) f/ V. [0 j6 ~0 g
Decode = Decode & Chr(lBytAscii)
Next
End Function ; Y$ l8 w% s4 c5 ^
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ! G$ i! o+ s( d% }  h
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function - M" u! F9 l9 V, g* Q
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) # P7 u- o8 }+ z4 H
End Function
End Class 8 ?% X# A% |: B" N( l8 @+ N- b" e
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA $ X$ f% r/ s; D* ]5 ]! a
LngKeyE = "32823" $ u( y- C* W, C+ H$ v
LngKeyD = "20643" 2 [) X9 a& y4 i4 b
LngKeyN = "29893" 8 Y! w/ v$ f/ b
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ; b0 u4 F9 C& R! z1 O% a
ObjRSA.Modulus = LngKeyN ( `  [8 @; N" B6 ?
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing + p% |. j7 m; l) x+ P$ D3 Y
end function
Function Decryptstr(Message) ; F* U- H/ }( I2 s. E
Dim LngKeyE 2 M1 n, s, A$ D* d, C0 ~, i7 q
Dim LngKeyD 9 q+ j8 p6 N9 C& @
Dim LngKeyN . i$ J7 U9 t, j0 F& s' H* O
Dim StrMessage
Dim ObjRSA 3 `/ {! H0 E5 D7 V" H, y6 }5 b) y% \8 [
LngKeyE = "32823" : R7 _& U: V: }
LngKeyD = "20643" 0 n9 ^" C' i  l% j* o
LngKeyN = "29893" 7 t2 I1 G$ }% h3 k5 d; p' J: _) ]
StrMessage = Message
Set ObjRSA = New clsRSA 2 P% ?0 N3 f5 ]& Z4 f8 x, o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 0 H" e; w) o# O* J6 n: j
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================! G" t6 j2 N( M: H& t2 M9 s

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下! c+ H0 V% Z5 w0 I/ [; I! m
   P  R4 Y2 }" J. m
<%
function Encryptstr(Message) " e7 T4 W) Q+ v0 b
Dim LngKeyE % b/ \0 p- w* d; r
Dim LngKeyD
Dim LngKeyN 3 r3 ~' v% j9 [7 O4 e6 G8 n
Dim StrMessage
Dim ObjRSA ; |/ O; @2 ~9 y0 Q/ N) g: l
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 1 H- ]/ m0 D9 V3 b2 f0 _
StrMessage = Message
Set ObjRSA = New clsRSA ' s$ z* X. y. `2 }' M
ObjRSA.PublicKey = LngKeyE ! r% V, E& B4 P+ m/ o$ ^3 V
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function . {4 n* ?7 K4 G& u4 C
function decryptstr(Message)
Dim LngKeyE 4 P/ f9 b6 W' [2 n3 l
Dim LngKeyD
Dim LngKeyN
Dim StrMessage / a# @5 D. M6 g  }! f# e! |
Dim ObjRSA 2 C+ \* z/ O3 L# i- R
LngKeyE = "32823"
LngKeyD = "20643" ; i8 `5 Q; {  @- ]4 X. f
LngKeyN = "29893" 9 K) r4 x) c$ W* L0 V
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN % y* P& _- D% E5 F& ^& {6 v
decryptstr=ObjRSA.Decode(StrMessage) 4 b9 b. Q. `5 m2 t7 X2 b  r" E
Set ObjRSA = Nothing + G) _5 r  ^3 N7 E3 J$ n3 }
end function 1 C7 j: l& O! T' Q0 X6 S
dim last,first + N0 a+ R; j6 e$ C1 l
first="!@#$%^&*()" 7 c. t$ Q4 S5 A/ s6 C$ X0 d/ p
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last   [/ o5 \% N" L
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F6 M$ _. ]: d. W# ~: z; ]' C
3_____4D75+ v3 G+ Z! F" H) V4 U1 T
4_____26CC
5_____4F881 l* O  \& v) g, x( s! d3 T' {  ?! i
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20- }) W& X6 F) X$ j) q/ _
0_____1089" \. e: P7 V$ _  o" e
a_____0F3E
b_____3159$ b+ z" h: c0 {# h6 h6 X- b
c_____3517
d_____419C/ x. c( O6 ]+ O) d2 M" Q
e_____615C
f_____556F
g_____2B7F1 H/ x* y' X* H0 X$ [% J
h_____0F9C
i_____00FA- w$ S$ K2 f  _6 {* p; O7 H
j_____5A50. G8 }& E( g" q+ M& U( d
k_____2850/ y$ D8 E7 S, t3 t# f; j
l_____3E7B
m_____71C53 w+ Q; }  G. C- {
n_____1FC89 ^+ Z1 h+ Z0 ^# \) s
o_____74C1; ]$ P3 a( S5 t6 H, \$ G0 N
p_____5FB8
q_____6085" h# b, @; k* d
r_____3AC4
s_____2F50  J6 B$ o- B$ i3 S
t_____36F8
u_____7010# [; b# |$ N! T& a
v_____0B42" g* ]* W0 E0 Q( w
w_____1C7A8 Z8 J  F2 W. b
x_____16F8
y_____2EE7  B1 M; d6 w4 w9 Q' w
z_____5CF39 ~7 v/ H7 v& M3 \5 l3 D# ]
!_____6233; J' @4 ^5 z& X, c3 C4 u1 Z
@_____3A45: q# r% V+ x1 J; _( s
#_____2291
$_____5D5C
%_____09B9) u* z# Q, L1 C4 r; z: ~
^_____43EA1 j% \9 w! G/ {
&_____62B9( \  e( h* _+ g
*_____6301' C2 I' ^8 q( P- _8 M
(_____4659! h" D/ f! B+ h' b9 H# P4 g
)_____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 分享给朋友]