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

算法, 大学, 研究

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

看不懂的直接绕过
加密前为:hwy123456& N( s3 W1 r3 {  e" m( c
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 L% ?$ J+ q) i

============================================5 O' z) Z( w3 o' [- R6 t
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法. j, P7 q! }- ?% J3 ^5 Z: y& j
以下是RSA算法文件8 r  x/ D0 F" |* I3 t

文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey , t. U- l4 W% N" a* K
Public PublicKey
Public Modulus " s$ u1 |8 p0 R+ z' d1 b
Public Function Crypt(pLngMessage, pLngKey) " [6 _' J/ X9 x% T
On Error Resume Next
Dim lLngMod
Dim lLngResult 5 S9 F& a; L- n' s; h; j: n8 Z% i
Dim lLngIndex ; D  T$ N  B) H  i# U" s
If pLngKey Mod 2 = 0 Then / H0 D: p# ]) {' ?7 k
lLngResult = 1 & ^, W1 m: b  W% K
For lLngIndex = 1 To pLngKey / 2 : P' H' h; H/ H9 \" i# Z, l# X
lLngMod = (pLngMessage ^ 2) Mod Modulus 2 J8 R* s* {, P3 {8 Z) N
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation ) H) i7 [9 C. p# z- g' C
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next % }* `5 H. M* |% s
End If 6 ]7 u) D' {" B0 ^. A
Crypt = lLngResult 2 J1 o! S* u: ^2 I$ u) B
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 4 ]( @  ?% q3 q7 _# x
Dim lLngMaxIndex 6 P$ z. l4 K; b; c9 c0 h3 D
Dim lBytAscii ( d) L1 r3 n$ ~+ v, ^+ ^
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ! ?) P/ O. }) h0 e+ H: q' Z
For lLngIndex = 1 To lLngMaxIndex 4 \9 s( @  P9 {
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) & ~) q! L1 b6 F* W3 W5 g& k, n
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 1 }# D% y1 G7 i% @* @# ]! K
End Function
Public Function Decode(ByVal pStrMessage) / A, b6 ~/ U) y" X% A" _& d( l
Dim lBytAscii ( d8 G, r" n! o: e' T: E& x( A9 M
Dim lLngIndex
Dim lLngMaxIndex 4 ~% D1 P8 r& x6 s* ~5 d
Dim lLngEncryptedData
Decode = "" , ^, [' r) E/ s$ i" U+ ]) J
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 3 j) [/ f; u% U" B
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) % s# k# e: D2 K3 S: w# e- ]
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) $ a! o( S2 Z: q/ L. _8 N2 ?
Next ! Q$ E& I9 ^8 H
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ' Z* M; x" E7 C5 X2 B: }( X
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) " v5 S- u; p6 U" a; k# C
End Function # A5 N+ K1 w9 N6 x
Private Function HexToNumber(ByRef pStrHex) : y. L4 h0 R+ l
HexToNumber = CLng("&h" & pStrHex) ! Y2 |* o" L8 {
End Function 0 m2 r9 v  A; M5 z2 P" m( z9 N. i( Q% ?
End Class
function Encryptstr(Message)
Dim LngKeyE . l! Z/ u9 A9 _, ~( v' J0 h
Dim LngKeyD 1 i/ ~7 d( A" M' s% @. d7 Y7 \" w
Dim LngKeyN
Dim StrMessage # t4 P2 Y3 r- v: f2 G
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" : }. B% E) R3 Q. @# S" O
LngKeyN = "29893"
StrMessage = Message . P. S  ]3 h, X/ @$ h
Set ObjRSA = New clsRSA * ]1 E0 b$ |1 o6 J2 H* M" y; G
ObjRSA.PublicKey = LngKeyE 3 {+ o0 d6 m% z" M. `
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing : n2 ^# f: O2 h3 w: q
end function
Function Decryptstr(Message)
Dim LngKeyE 6 F! }) `+ ?2 K/ A
Dim LngKeyD
Dim LngKeyN * K! Q+ s8 z/ u- x
Dim StrMessage
Dim ObjRSA   e; f/ E, Q* @( Z3 \6 U' H& v
LngKeyE = "32823" ! G+ l0 A! S! v( B1 \8 O$ K
LngKeyD = "20643" ! C* P) k6 W! _1 G; y$ Y+ P
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ( e" a0 K' V6 U. F* v
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing & ?9 T$ Y" h9 X! R: f
end function
%>
===============================================$ c/ E2 $ r% r( a( G1 Q

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 & m: e6 s/ z7 o( g! a
<%3 $ O  k# K, C2 Q3 ?4 d
function Encryptstr(Message) & _& j& ^7 \- U0 e
Dim LngKeyE
Dim LngKeyD 3 Q: @  C1 W' l) ]( M0 x3 i+ Y7 y
Dim LngKeyN
Dim StrMessage 1 ]  M) x, k; |  E
Dim ObjRSA / ^; \9 a; v3 N  ^# m$ R+ ?
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 4 ?& R( ^: \: F9 b3 E4 |
ObjRSA.PublicKey = LngKeyE + q$ n  @4 q, d% L9 b
ObjRSA.Modulus = LngKeyN - R) }) a! c" N9 I' ~
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ) J( q5 N+ n/ Y7 I5 @2 J' f" Q% D
end function 3 C, f  y. c" J
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD * g% I' h0 \5 Q
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 0 {" {% j. O8 v/ X
LngKeyD = "20643" 1 q3 W7 Q* ?8 O
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ) P* }) l1 f/ l
Set ObjRSA = Nothing ! B* {! y! k5 q1 M7 o
end function
dim last,first " ?0 k0 V) n! p3 N
first="!@#$%^&*()" 8 |  t% e& j8 C% `& I
Response.Write "加密前为:"&first   g& j6 x, c7 ~( L- ?0 [
last=Encryptstr(first) , I" e. ?/ v' b+ [
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) * d5 C! g9 S2 S( M" s* K3 v) X& ^
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F! g/ H9 H9 B1 a  y4 h, \; T
3_____4D75
4_____26CC* ]/ t+ N+ e. V+ C7 y1 Z
5_____4F880 O+ Z% C/ G( [9 j6 E6 A
6_____3F4E4 u0 v  T" w) M! t  I" ~' G0 }- V
7_____0A9D
8_____1A1C
9_____6D20
0_____1089& w  [& m0 w* ], o* B
a_____0F3E
b_____3159
c_____3517* t" [8 |# T/ I* y1 y" Z
d_____419C, T: m2 I% b. s* c
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B3 q3 c" }# L: @- X6 `& G. \/ n/ [
m_____71C5
n_____1FC8, r9 Q- d+ f- i( I# P: J' k
o_____74C1
p_____5FB8
q_____6085' H; Q  l$ U( o
r_____3AC4& ]7 N0 q1 A9 }5 B) m6 l- o
s_____2F50, }% W3 n9 q' s  D' m
t_____36F89 {2 I& [8 e( I4 z' y% C- w
u_____70103 S' G( N  C6 \8 X! n/ ]3 F
v_____0B421 Z0 H2 e" D& [" u& ~5 S, g
w_____1C7A
x_____16F8
y_____2EE7& e4 ^; i  G+ q" o; @6 |
z_____5CF3) V% g# C1 ~0 X/ h9 [
!_____6233: U; O& Z- q; Z" h0 Y5 }! Z
@_____3A45  @; V8 X0 M0 c" E" _! s! |
#_____2291) E# \7 ~- ~/ ^" Z4 w8 Z
$_____5D5C9 x+ R& X$ v" d6 [3 c
%_____09B9, N9 t. ~: f8 Q2 S- f" e
^_____43EA, z8 H! Z  v8 y% ?  ]
&_____62B9
*_____63014 r8 c' Q3 j/ W8 S* h1 v5 e
(_____4659. ?3 H7 v/ W: k# G8 W! A
)_____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 分享给朋友]