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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm" u8 c3 P* I# u# A: N
原始出处：http://www.3ast.com.cm
  E$ H" i) F' w- j
看不懂的直接绕过
加密前为:hwy123456- m% @1 L+ Y; ~% t& ~' z$ A
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
* B  C  b) z1 Y* @/ C9 a# y# Z
============================================0 X* Q9 ?( m; M6 P8 J/ C
上面是当时自己校内的心情。现在已经解破出来了，分享给大家# @7 ~) m" O& a* f+ Q
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法! E5 k7 f% p/ k9 o
以下是RSA算法文件2 }- j$ \0 B! f$ T  v' i1 S

文件名RSA.ASP" _3 {+ x) r$ d% x
===============================================
<%
Class clsRSA 7 k" r3 B" D% a& t. b; M9 T3 {
Public PrivateKey # }1 M% i6 \4 c/ q9 L$ s
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next - N6 A4 |; q: L# D4 Q$ T
Dim lLngMod ! ~9 @( s' Z( {1 r$ A7 o
Dim lLngResult 5 s3 R: C& W/ x8 n, s* Y8 q
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 2 }/ B) {! @* |) y! \; W
lLngResult = 1 ; d8 n! O( U8 S* t5 n- R
For lLngIndex = 1 To pLngKey / 2 ! r% D* M% s- q3 O! V0 \
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 A$ g5 K7 ~( T' [! j
' Mod may error on key generation 2 W" H: Z. @% v# p/ F; b
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 S9 R* t" T; N' ?+ ]% H+ B: B
If Err Then Exit Function
Next 1 Y5 @& j; [1 M9 n8 [5 Q3 {4 K
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ! B4 y( R9 t9 c: d
If Err Then Exit Function 4 r5 N/ ^: G, z  [
Next ! i; _2 W; S7 d. m
End If 1 m; Y& h% X) M+ w( `* f9 q9 [6 E
Crypt = lLngResult 6 L. O& i0 a5 ]$ q
End Function
' ~7 G5 F$ y/ w
Public Function Encode(ByVal pStrMessage) 8 w, J& w; M) Y: M; w  l- U/ ^+ t
Dim lLngIndex + o$ u" w! @: k. w
Dim lLngMaxIndex
Dim lBytAscii ( x2 s- Q9 e4 h. t& ~; p# C
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ( h; L* s- x5 H, Y
For lLngIndex = 1 To lLngMaxIndex , A* a+ G# z% U- i# \: L5 p5 q
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 7 X8 `, m8 S: G1 l' k! ~8 {5 H
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 2 @1 \( i' I+ s
End Function $ n4 z- z, S  i! ?% E* @
Public Function Decode(ByVal pStrMessage) ( c- _; E% l8 ~% n, y
Dim lBytAscii & l$ P4 G9 T: B& s# T( M3 O
Dim lLngIndex : ~5 t3 F2 H9 U# |1 H+ D* y& r
Dim lLngMaxIndex
Dim lLngEncryptedData & e3 b) R* D  f6 K3 A) S4 o
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 3 Z5 O7 h: V! v6 t' K+ s9 l4 g( E
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ; g$ a) I% o$ i- _
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) # t# \5 S0 s  g; f
Decode = Decode & Chr(lBytAscii) 0 e3 O7 p4 B# t, n5 q4 Z* |0 `+ x
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ( t/ b1 H% Y7 m* {" t  @/ c- J; |6 w
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 5 l% e% t2 M! O- b# U2 ?
End Function
End Class 4 ?" F5 ^8 {4 Y  _( R5 F5 n
function Encryptstr(Message) 4 D* Q5 m8 t- z, m3 t, x
Dim LngKeyE / I+ X4 |1 r1 B( c4 s/ s. ^7 o
Dim LngKeyD
Dim LngKeyN + Z: Y4 s2 o; I$ Z' y" Z
Dim StrMessage ) u' u; A' ^% N0 T( I% z
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 1 J7 d4 K5 d5 Q' T4 J
Set ObjRSA = New clsRSA 1 ]$ t" Y! T& B" B& l
ObjRSA.PublicKey = LngKeyE 6 X1 b% E& m" a& y; ]- h0 l" W
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function4 f( y0 |1 i( {/ Y! b/ e8 l& J
Function Decryptstr(Message) 9 _1 w$ S4 \7 y% I( N$ m" ^6 \8 I
Dim LngKeyE ' V: c: k; ^/ J$ U6 b
Dim LngKeyD
Dim LngKeyN " a+ N. m: a& {' s
Dim StrMessage # m7 C& }5 f. ]4 L
Dim ObjRSA # S( W8 `6 g4 F: p0 W* h& x
LngKeyE = "32823" 2 l7 i  p6 {' _9 @" s# ~
LngKeyD = "20643" / L/ V; J9 q* G9 S  C5 n. \
LngKeyN = "29893" 4 h7 j4 b- P4 w- R
StrMessage = Message
Set ObjRSA = New clsRSA 0 u5 o4 U1 d1 |1 K4 d/ {, y; I
ObjRSA.PrivateKey =LngKeyD ' b# e9 N' Z9 u) ?0 ]
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================
7 W! W7 f$ t( j( J' u9 j. D0 {& G
还有一个用于测试这段代码的test.asp3 I: u1 V4 h, D3 A
有兴趣的自己搭建个IIS测试下( F; n0 }+ h7 ?' q9 U' l

<%
function Encryptstr(Message) / i2 s0 u! ~1 }6 ?
Dim LngKeyE ! ^8 O4 L$ I( m/ N; [, e: w
Dim LngKeyD 2 N3 p+ L- L* c
Dim LngKeyN
Dim StrMessage ( `7 d, T4 a. }  ?
Dim ObjRSA 6 q1 C7 Q7 `, w7 S
LngKeyE = "32823" 2 F+ h; [& N! j  e3 r4 H
LngKeyD = "20643"
LngKeyN = "29893" 9 o1 a4 a! k# Q8 a3 s3 t
StrMessage = Message
Set ObjRSA = New clsRSA + n( g& f5 i( s3 L# {" {' W
ObjRSA.PublicKey = LngKeyE # d( |1 G1 a/ M* D9 ~; D. {
ObjRSA.Modulus = LngKeyN   a/ U1 \' D4 x6 J5 ]  e
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) # Q1 M5 w0 c3 D9 \, Q
Dim LngKeyE 4 e6 y2 v' E3 u, s" I  I4 q+ W, f
Dim LngKeyD
Dim LngKeyN - ], c- Q1 Y3 p) O5 V
Dim StrMessage
Dim ObjRSA , G. G# s2 i# l9 t  ^# t" z/ h$ u, T  x
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD , S  }# j5 x2 b6 M
ObjRSA.Modulus=LngKeyN # w6 q1 T, E+ k7 D$ p  O) A6 k
decryptstr=ObjRSA.Decode(StrMessage) ; ]$ x5 ]0 m- y' {: P- y
Set ObjRSA = Nothing
end function
dim last,first ' K  h9 O% K2 }  a3 P+ z
first="!@#$%^&*()"
Response.Write "加密前为:"&first % l! Z: B' L+ P5 J, y
last=Encryptstr(first)
Response.Write "加密后为"&last ! d# T4 s) {6 m: M
Response.Write "解密后为" &decryptstr(last) ( Y! b0 G" r8 \3 h( B. j
%> ==============================================
剩下的就是字符的对照表了- d" \0 ]' |6 I0 |
===================字符集================
1_____6EBB4 M0 e3 S! n3 P! I- P
2_____5C1F7 c& i  L9 `1 {; }
3_____4D75
4_____26CC
5_____4F88# c8 Q! }; A0 K! w$ _1 T6 \
6_____3F4E; s- ?3 M$ v5 Z9 R' v9 `, i4 s5 |5 |
7_____0A9D$ L' k  P% d" }4 a6 A+ T
8_____1A1C2 S. D% r& o( Q1 r; V
9_____6D20/ a" M! M5 |( T- v
0_____1089
a_____0F3E, n' _1 e9 r- @; K0 }: V8 \
b_____31595 _  p7 A" \, f  v
c_____3517
d_____419C; ^! f  |" s6 e5 r2 k! ~
e_____615C. T. Q; _% A: o5 t! m. K- j2 O
f_____556F" u- i6 A# l; j, m' y. X! G- P
g_____2B7F6 ~& W: e' R9 |$ A; @! M
h_____0F9C
i_____00FA
j_____5A50* T7 {6 u5 W/ N8 {5 @/ Z% ?- U3 Z
k_____2850
l_____3E7B# c. K- j! X! A6 Y
m_____71C5' x5 s7 ^1 z( O- d) _8 [
n_____1FC8
o_____74C16 d$ O7 f3 B& y' f4 d6 s
p_____5FB8
q_____60850 o8 U3 D, _8 H) s+ t9 S6 J* {
r_____3AC4
s_____2F50
t_____36F8
u_____7010- k2 d( G; s! \
v_____0B42% v- j/ \$ d# q0 C3 M' ^3 X( i
w_____1C7A  I! ~$ K, O; `/ V. _7 u7 `  M
x_____16F80 V0 p3 ~; M$ A* @) w. [; q
y_____2EE7
z_____5CF3
!_____6233
@_____3A452 l# T9 S+ q1 _3 l1 j. _
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____4659+ Z; b9 E  \$ o
)_____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 分享给朋友]