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

算法, 大学, 研究

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

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

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家; ^- `; u0 G+ G+ T! C5 R  F- g* L) }' U
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* v- ~" @* B" ]6 M( Z
以下是RSA算法文件

文件名RSA.ASP
===============================================
<% " {) t4 `% f5 Q2 r! L6 `' |5 V8 O
Class clsRSA
Public PrivateKey 6 T3 @% Y+ k/ b' V  i" P& [4 @# _
Public PublicKey
Public Modulus ! I( w5 A8 J% b1 `, v# z5 p: x
Public Function Crypt(pLngMessage, pLngKey) ) \8 X" ~. i9 B% U7 @, P
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 7 _) @! Y4 H/ ]$ D% y6 S/ Q5 N
lLngResult = 1 2 g/ w' h. ]7 W7 Q& [: q4 e
For lLngIndex = 1 To pLngKey / 2 , O4 Z- c8 P* s9 @3 N
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus , m& \; c7 A$ m6 F* y* t1 N
If Err Then Exit Function 8 y" _+ `( t9 Q7 n  ?
Next
Else 6 R0 y* \- z, d6 ^& {
lLngResult = pLngMessage 3 ^" m; _  n( Q6 @! e3 S( \
For lLngIndex = 1 To pLngKey / 2 . S+ m% I# f( c. }
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 ]8 h' S: ]( i: O3 V6 w( m
On Error Resume Next 5 |: U& c' Y/ a
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ) k/ f  ]7 x% g9 i: x, Z
Next
End If
Crypt = lLngResult 0 ]8 ~0 F: L7 v' i/ H/ L$ D
End Function

Public Function Encode(ByVal pStrMessage) ) Z, [6 O* Z5 x' a6 n  O; G
Dim lLngIndex
Dim lLngMaxIndex - W2 |) n' v2 ]& c
Dim lBytAscii
Dim lLngEncrypted 3 s; m- C& Q" v5 }/ w8 e
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 1 Q. m% j: B& O' @+ R: |
Encode = Encode & NumberToHex(lLngEncrypted, 4) ) V% d# c' U# m# Y, A
Next
End Function 5 h$ n: z- Q$ s+ c; v8 \
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex - L1 K1 I, K5 i
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) ) X4 f9 i" l4 ?! K" l
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' [- C% f6 C/ b
Decode = Decode & Chr(lBytAscii) ' G/ I3 N1 L1 \* s. k( j; x( W
Next
End Function ' i* L6 _4 [% k
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 9 U0 x! l: v( ?; n
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) " J# z1 |( d. C7 d: d# z
End Function
End Class
function Encryptstr(Message) 1 j) d# M/ @6 \: H$ n4 H2 G
Dim LngKeyE
Dim LngKeyD - w* ]% ]8 V$ S1 a
Dim LngKeyN ) H" v) M5 S9 R/ N* Q; c
Dim StrMessage * l, ]/ @; L% y' Z+ }- x
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" % W1 a$ p6 B( A. R! o, x, W
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ' Z9 K& ]( r% f0 x$ [( [
ObjRSA.PublicKey = LngKeyE & Y5 x7 A) F# M
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) % z8 e* d1 P9 P! G
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE 7 y3 V, \- \6 p+ V
Dim LngKeyD
Dim LngKeyN - B7 Q6 K# R. e
Dim StrMessage 1 w" _* d: ]: N* }- r
Dim ObjRSA 2 ]2 g4 m9 _; }+ ~, }
LngKeyE = "32823"
LngKeyD = "20643" 4 O! w8 a5 {2 s
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD * m9 X: O0 M- [) G4 I
ObjRSA.Modulus=LngKeyN 5 }1 K/ v1 a! ^) ~3 h, C
decryptstr=ObjRSA.Decode(StrMessage) 9 q  E4 s5 X7 o! `5 O$ u3 B  A- i; D
Set ObjRSA = Nothing
end function
%>
===============================================) L* S* R% d6 D1 t" b$ w# P9 I

还有一个用于测试这段代码的test.asp. d4 v: |( `: S# N( }
有兴趣的自己搭建个IIS测试下
   z7 m1 w1 A& G  d
<%
function Encryptstr(Message) % R4 ~7 L5 M  t/ y$ ?: w7 Z
Dim LngKeyE & y' O/ _/ i' c
Dim LngKeyD 3 F* `3 v# k1 H. K; V; ?+ a
Dim LngKeyN 0 ?' e4 T* G' I6 u4 |$ v  E
Dim StrMessage
Dim ObjRSA - y2 W/ P; q! S7 k
LngKeyE = "32823" % y; }5 D1 s. e7 Q
LngKeyD = "20643" 4 r9 B) J) }. i  n6 ^  N# i
LngKeyN = "29893" ! Q5 w. Q0 b  f! G% X5 q
StrMessage = Message ! ^' q5 |8 f2 f* h! y# P0 P7 q+ [
Set ObjRSA = New clsRSA ! |1 [2 l; }  m0 V! s% j
ObjRSA.PublicKey = LngKeyE ' [' `, a# q5 G* {7 z/ \  u
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function ' f8 ^) O. _8 e: T0 K$ P  }
function decryptstr(Message) 3 c/ |5 p+ P3 Y& R# @8 d" |5 s
Dim LngKeyE 8 R  `1 J0 q9 d0 v! T
Dim LngKeyD 1 q, Y" ~- H, ]: G" b% z; f% T
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 5 R4 \( z; t: f! \& h+ ^; l
LngKeyN = "29893"
StrMessage = Message . B' K1 T8 E; L
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN - i& ~# y1 l& U+ S
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing   q5 `. v  J/ J' D2 g7 P) R7 N$ p
end function ! u* P, q, t0 E) ?; E
dim last,first
first="!@#$%^&*()" ( S4 f- k1 f9 Y! q7 E- ~
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last / T& F7 y9 U# N- q: m: O' x
Response.Write "解密后为" &decryptstr(last) , W8 y# i, z. K4 `7 ~6 `6 P% q
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB) E0 Z6 N  p0 c
2_____5C1F
3_____4D75
4_____26CC
5_____4F88! P+ e$ F5 m. a4 i' k) x# [: ]
6_____3F4E1 X# W: l* h  H( S; w
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E5 V4 T8 e' N& S4 O- S1 x
b_____31595 n; ]# P& w6 u8 Z7 u7 F5 b+ {  q
c_____3517# Q2 ?: d7 ~1 M: {
d_____419C9 k7 \7 A$ N) y; j) j) G) v" V
e_____615C+ b  y  D. A2 T5 T
f_____556F. m  b% Q+ }' c- f
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B: x1 q2 A4 T) o3 x/ M2 v- s4 Y
m_____71C5: f  G8 ]$ I2 r0 x6 F; Q) H
n_____1FC84 y/ u  L+ g: c' Q
o_____74C1
p_____5FB8
q_____6085$ s) P2 L* t' Y" \  Y3 P9 V0 m
r_____3AC44 a2 H% k1 F# z0 ]/ V* d% ]) ^
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7% |# X' E1 ?5 x, K6 @
z_____5CF38 b8 |; ]4 U0 Q( }) G/ Y3 u
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9. m6 F  n2 N8 P$ c4 @2 Y
^_____43EA6 x0 B- L+ t6 r4 V; d; j1 ~) v/ `- w
&_____62B9
*_____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 分享给朋友]