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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm5 |! R. e6 k- `
原始出处：http://www.3ast.com.cm2 M% V7 ?' `) T" A2 q

看不懂的直接绕过
加密前为:hwy1234562 k8 I- T6 l* N7 p4 f5 Q
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家5 g3 t! j. Q, t1 K/ [
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件4 Q$ g- x- Z( a$ E7 e' k
  M2 E- L; y/ i% f
文件名RSA.ASP
===============================================' T3 g* O& f9 ~6 N1 V4 T, A% r
<%
Class clsRSA   ?" i1 B7 l: n! j" d9 q) g' Q; B
Public PrivateKey : v/ H9 A, K3 w$ O' V  A& O
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) / B% ~6 N$ O) y" |% O
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ' P! R6 c" H7 I% p9 a
lLngResult = (lLngMod * lLngResult) Mod Modulus ! }. M# [/ F8 \4 V. F
If Err Then Exit Function " S8 P$ U) ^  Q# F
Next
Else " B! D; [, c. E$ l# C
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next # K" ^* n# ?$ o9 i- N
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ( [! T" o! M- ]$ Y# z
Next % ~9 o" t% L' a' }6 J( G8 ]3 j
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) 3 d$ E9 ]2 n) c/ l: X9 v0 `- M0 B6 O
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) # W- c7 F$ s/ d8 M8 l
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 7 \( S9 Z3 U' h" Z  F: X
Encode = Encode & NumberToHex(lLngEncrypted, 4) * O+ T# Y. `1 f* q: r* o
Next 9 R4 ^1 _! l4 D' ?
End Function # v2 N. A% Z7 q
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 7 }0 M# J! m: h( V  t3 e( @
Dim lLngIndex * p( ?- f. U* Y( E7 S& S7 \7 ^
Dim lLngMaxIndex 3 W4 ]2 N* @5 n- t; @
Dim lLngEncryptedData
Decode = "" ' M" Q. g2 |: R" w9 }
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 9 A8 M* ^' z+ }8 ~
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next / F4 B+ _/ P. T1 e8 f
End Function 1 u1 i- P) f0 G
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) , {5 M$ G6 x$ S( _. |- M5 }! ?
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function / G; X& T1 `: I9 B- Z: ]
Private Function HexToNumber(ByRef pStrHex) * V: ^* Y0 r/ M; n, t4 m
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class $ S4 v" h) S! C- S9 ^
function Encryptstr(Message) # U5 J6 ~( s4 W  G! J2 l% `+ @
Dim LngKeyE
Dim LngKeyD # R) g" I0 J' n! e+ V
Dim LngKeyN + [, W6 P" l% a3 {
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE " p" o* M) H6 ]% t& n/ b1 u
ObjRSA.Modulus = LngKeyN ( P- V4 |) q" I; r8 {
Encryptstr = ObjRSA.Encode(StrMessage) 4 Y. @! A% v% y" [5 A, v
Set ObjRSA = Nothing 1 l: |7 r, y% J4 x( r8 B6 P
end function& s+ F, G& _$ {  v& E
Function Decryptstr(Message) / T0 E0 J6 N, @  M$ x. s2 S6 J5 M
Dim LngKeyE + q7 [- Z0 V9 J- T$ u* N
Dim LngKeyD + C% O/ m% y" n3 ?0 A1 n) h/ X
Dim LngKeyN
Dim StrMessage 6 L6 F8 d! C0 b0 I! q. o* e. f
Dim ObjRSA + C% F/ E, t: H2 i3 Z6 u
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 5 w' M- h8 ^4 j0 Q+ u9 q
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ' ?- I: U5 t8 n, v4 G9 i- _
decryptstr=ObjRSA.Decode(StrMessage) ' T6 W+ ~" }$ [: v" ^
Set ObjRSA = Nothing 5 G/ ~) g0 Y+ ^4 g4 S9 x: I
end function
%>  k$ e! Q4 z! E6 Y& Z
===============================================

还有一个用于测试这段代码的test.asp: Q0 w# Z  k( \1 }. p* [  |3 }
有兴趣的自己搭建个IIS测试下
 # t7 F/ ~, C8 T' F3 b9 Q1 I8 P! {
<%1 Z. L5 _8 j( b: E7 z2 |
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD + s3 ^) A0 l8 E8 U; g5 Q- r( A5 ?
Dim LngKeyN
Dim StrMessage & n8 M1 [4 o, w1 W$ u
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" + J; n' T2 e' x  J: M0 ^
LngKeyN = "29893" 0 B, w; i  E6 u5 h) L, Y! g
StrMessage = Message
Set ObjRSA = New clsRSA 4 Q2 S7 Z5 l; g+ A! c  j5 T0 P0 I
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)   Z; d3 C! O! [# R; ~4 r/ J
Set ObjRSA = Nothing
end function " R+ ~" p1 \* U2 X9 N2 ^
function decryptstr(Message)
Dim LngKeyE , j- F2 X! q9 Y( T& }# S5 \3 ^
Dim LngKeyD
Dim LngKeyN 5 o* f2 b1 u9 ]/ Y2 i$ j
Dim StrMessage
Dim ObjRSA " [# t; E1 ^& [4 Q( _0 X  O% i
LngKeyE = "32823"
LngKeyD = "20643" - i" J" ^" `& B$ E3 D$ n1 q" E
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   _% K$ @) l- T& ?* U, O" n: s* A  n0 |
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ( \# O& Q5 b, S- K0 i$ j
Set ObjRSA = Nothing
end function 8 a* X0 z8 b/ s% b- z
dim last,first 5 I/ {+ @; @( q' l: Q/ O
first="!@#$%^&*()" + X2 _. t2 c+ Z1 z. ]
Response.Write "加密前为:"&first # U# K, n: C  X" M# v/ D) M
last=Encryptstr(first) 3 `2 H" q6 s+ s0 P" b
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================9 w) H; |/ b. P) `, B: b
剩下的就是字符的对照表了/ ]2 Q* L1 C& ]3 G4 @5 s
===================字符集================4 \& c5 Q6 A0 j0 O5 [( P
1_____6EBB
2_____5C1F; s8 s* e1 n2 }& x* [
3_____4D75
4_____26CC3 o9 I9 W6 _2 {1 V3 ^/ h+ |
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C/ g3 _2 {7 g: |( V+ y" j# Z9 F4 H
9_____6D201 w( c' [! T# j8 L3 x
0_____1089
a_____0F3E$ ?" x: h, I' {' O$ m
b_____3159" K& Q+ d% S* a8 N
c_____3517
d_____419C3 [9 j, A1 X% Q
e_____615C8 C! l, I0 U! I- s
f_____556F5 e( O1 V' g% c' Q9 \
g_____2B7F
h_____0F9C
i_____00FA( C- \) K$ V# \7 V9 R; i
j_____5A50
k_____2850
l_____3E7B$ c4 h% q' k' F/ w; j7 }
m_____71C5
n_____1FC8' Z; O1 \# C' u
o_____74C1$ Y6 j" y0 |, ~& h  f9 X- x
p_____5FB8
q_____6085
r_____3AC4& {4 p" R8 H1 W! f8 {; a% ?
s_____2F50; w9 o2 j& f! `6 f2 w
t_____36F8
u_____7010
v_____0B42% X9 v) v* A3 ^2 k8 S5 x% o
w_____1C7A7 [( c: `- p5 K' @/ }
x_____16F8
y_____2EE7# J7 X8 z- \% x
z_____5CF3: R2 n8 K2 ]) m4 H" H
!_____6233
@_____3A45" F6 u9 P4 F3 W. @( _
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____4659, e4 W  G8 u# r( _
)_____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 分享给朋友]