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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm; i: [5 X' Y/ Y' c
原始出处：http://www.3ast.com.cm
; _& w: p# r) n- ^, G  x
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法3 U$ \( E, o- `2 c; v. h
以下是RSA算法文件9 C" ~% l) w: n+ {4 g6 z
8 u5 H8 d0 X- j( }. n# f
文件名RSA.ASP/ b! n5 p: a: h8 z% Z  r5 H, v
===============================================
<%
Class clsRSA
Public PrivateKey 3 H; |# P+ A; B$ C7 d6 i
Public PublicKey ) A0 I1 y* U0 P% @/ L7 a
Public Modulus 9 R- S/ `2 |) O4 U4 w5 R  \; [
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next ; Z: v6 H/ q# I4 @. g3 O5 R
Dim lLngMod - V9 w( z* Q8 \4 v5 {$ G- n
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 3 D/ U) N$ P; f. ]
lLngResult = 1 2 Q" d* h. I, g$ ]
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ) V* N, B% m' a& T7 A' L
Next 8 b5 M; M7 j) Z
Else * q# O% S+ Y* ~& W2 ~
lLngResult = pLngMessage 4 K* p( e( w2 Y8 Z* A
For lLngIndex = 1 To pLngKey / 2 - z( G, o, B) D$ j
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 8 z1 m& Z( ~8 ~3 ?& R4 k; ^; |
' Mod may error on key generation   }2 \( d! v8 e( F1 A
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ' {2 [5 q0 X, ~2 g
Next 5 {6 y2 Y5 N+ ?( t5 F
End If ) I5 r' H7 e9 \- E( j4 Q. t  F: ^
Crypt = lLngResult
End Function* d7 M% f" G2 W. q$ s1 u

Public Function Encode(ByVal pStrMessage) / g* j0 ^; B+ z
Dim lLngIndex - G3 R* {( L( r0 G( C6 d. [( F
Dim lLngMaxIndex * x% I5 ~' S% s$ ^1 O) Z
Dim lBytAscii
Dim lLngEncrypted 1 o/ M5 G) _, @+ v, r' b4 ?5 s
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex " N) L' z' x! C9 R) B  R8 c4 Y
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) ! T+ _/ q$ X$ G) ]6 e
Next
End Function : `: D( I! O) I# _, N
Public Function Decode(ByVal pStrMessage) 9 A0 _8 m( N! Y+ `
Dim lBytAscii ' }$ g% o  c0 Y) f
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData ! u' l' |2 c5 K* ?, B
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 3 x5 q. z7 |6 {: }; B' p7 F  A
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 9 T- C/ X) A7 @  p, ~
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 2 Y8 b, T  N$ J1 W
Next + r3 z; Z+ U) S: P
End Function 7 S9 e6 P1 _- ]' F( [: x$ d
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 7 A3 J2 q* P5 w& t& V/ S
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ) j9 ?+ B+ @' h. G- a! u& ~  J
function Encryptstr(Message)
Dim LngKeyE - z8 b  }$ c- u+ \! A' @
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ; `% Y" v* W! l7 {' n# z4 ~' r4 w
LngKeyE = "32823" 7 l; }8 f9 T9 f9 S) j3 G* M
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA + H" I( i* P2 Z/ h5 Y7 K/ E( b
ObjRSA.PublicKey = LngKeyE " g$ S3 x) j/ l8 [# Q& Y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function  A5 r' M' ?- D$ v. y/ ^9 S: t
Function Decryptstr(Message) 4 ], i$ R  U6 [1 R; r2 b
Dim LngKeyE
Dim LngKeyD 9 M- L7 n5 n# j/ K8 v9 M+ `
Dim LngKeyN % G$ j) I; y  d. c+ K( r
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 3 ~1 P0 Y) W* V6 u/ ?9 F4 j8 P
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 3 c4 k4 l6 R. w# ^" X0 _
Set ObjRSA = New clsRSA % p! n' E' ~/ t" J, V
ObjRSA.PrivateKey =LngKeyD $ l, M# t( A& E6 m  M3 Q
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; \: l9 D: l2 @" X  N! f1 s' Z
Set ObjRSA = Nothing " _3 {. L5 W+ u) {& i2 s
end function
%>' w; A5 I1 C% C) o: n- ?: D
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下- B: ?# R" q+ R. o( Q% X/ G
 1 C* v* t- v& S- N, J5 w3 {7 s/ _
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD $ \4 @% Q- d. o
Dim LngKeyN + j. v  F$ j& h6 m; i
Dim StrMessage 7 O8 I; q/ p( g
Dim ObjRSA 9 U4 P" }9 i3 e9 a& ?+ }4 Z
LngKeyE = "32823" , n# I- E- B& z5 [& ~4 H
LngKeyD = "20643" 2 |% k0 ~2 ~# H* @) j( x2 J% I& M$ D
LngKeyN = "29893"
StrMessage = Message ' w1 g" Z( T2 o, Z" \/ e
Set ObjRSA = New clsRSA ) W2 f9 ]8 p  E, @' {4 L
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) % |& T+ Z& K0 c' |4 x+ {  a
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE * h0 [4 Y' J9 D/ Z" `! Q- J# L
Dim LngKeyD : s3 A. i$ p% _$ v8 y) {
Dim LngKeyN
Dim StrMessage ; C3 X0 U/ @5 J$ S/ t! M
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ' J3 _  c+ |6 |
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 2 V$ U% r0 C6 y6 ?4 z) _+ |
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 2 N! n+ I0 p$ @& c4 }/ U
end function / P8 \2 \/ j' i3 b0 ?* f' d
dim last,first / G) Z3 P( _7 {1 i% T* Z' X
first="!@#$%^&*()"
Response.Write "加密前为:"&first 0 p4 i7 N( g* j) I
last=Encryptstr(first) 8 h  B5 A9 K9 C5 Y. A% j1 m
Response.Write "加密后为"&last & o4 M" y: J2 G
Response.Write "解密后为" &decryptstr(last)
%> ==============================================6 X& n  t, ^) x1 `6 X
剩下的就是字符的对照表了" x# o9 U+ z+ I2 E2 G
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75; w" U7 X  ]; ]& Z- q
4_____26CC( \- I5 t8 L% R( o' F% d
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C+ K8 E# y" F# t8 @
9_____6D20: ^9 `3 K; G4 G+ J- I7 a
0_____10896 I1 R2 m5 X" x7 ~
a_____0F3E) M/ A+ F; V8 a# c% D
b_____3159: Q! [6 P2 G$ }
c_____3517
d_____419C* f1 {3 x+ @: h( w1 b" _5 a
e_____615C% g7 b% U# \( o; J
f_____556F* z: `" Z6 A1 d
g_____2B7F
h_____0F9C7 e" T9 F3 e: X  N9 k
i_____00FA) T- w4 g5 L* q0 T
j_____5A509 I# E" m2 @! a2 M# c* y
k_____2850* p  c! f8 @9 c- N# B3 ]
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8- x$ C, e, C4 a, Q3 Q  b9 X9 m, e4 |  V
q_____6085
r_____3AC4
s_____2F50% C9 p+ A, O/ e$ u) K- {+ g
t_____36F8$ D3 C1 ^4 m$ y# d7 {+ A4 k
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62337 d& q# n/ _- h& j6 `/ r( b
@_____3A457 o% G! i1 I0 l  K
#_____2291( q" o( o. K9 j; a, s% g# X5 P
$_____5D5C
%_____09B9
^_____43EA7 d/ u" B- \# ]7 \8 B- t% [5 {6 ^
&_____62B9% i" t' {+ v% r
*_____6301
(_____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 分享给朋友]