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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
3 ~, U0 B8 O! q3 n! d
看不懂的直接绕过* f: ]& d  m  A- T3 M
加密前为:hwy123456% w. h2 S  ~! `9 H$ X9 F6 K+ E; g
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家' O& ]* f0 l7 Z6 o" e4 ]4 w* ?7 {4 o
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件9 b- t$ \3 E9 b# y
" P: y* u; H% q8 i
文件名RSA.ASP- k9 O( }$ [3 ^+ H7 K" O- m
===============================================
<%
Class clsRSA ) w8 Z! P1 A; l" `. q* a9 R
Public PrivateKey
Public PublicKey
Public Modulus 3 F, ?: l7 k2 g
Public Function Crypt(pLngMessage, pLngKey) 8 @- b1 k. h, o! F
On Error Resume Next 7 r6 i, m4 G* i0 `" }
Dim lLngMod 7 S/ p4 E$ ~5 z2 p) `
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ) n8 S. e& S8 W# S
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 + ~) z- S7 N. @$ I5 ^
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ( Z- A' ?% c: l0 j
If Err Then Exit Function 1 e# x" N. l  Y: A2 \" Y, M" u
Next   a& r% \$ g% c3 D  l& q4 Y" w
Else 1 W1 E) i; r8 a* w" r' x
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 % K1 p( f0 r/ p: S$ \
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 7 t% U+ [+ M6 p2 n* X
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus % B9 }+ d' I0 ~& q1 |
If Err Then Exit Function
Next 2 u1 H1 _" G7 t$ ^  N
End If
Crypt = lLngResult 6 E5 M, \/ [. G+ ^
End Function
8 J# h0 Z7 p! O0 T. u
Public Function Encode(ByVal pStrMessage) . N2 g, l6 o0 ~3 x5 q3 A9 T
Dim lLngIndex
Dim lLngMaxIndex   {" N% H8 H3 M$ {" j: k3 F( u
Dim lBytAscii 7 M' H4 \" g9 S0 `7 |' g0 T$ o1 v
Dim lLngEncrypted 9 ?  [1 N: G# ^. ~
lLngMaxIndex = Len(pStrMessage) 2 r0 w, K. J7 _# z$ @$ U
If lLngMaxIndex = 0 Then Exit Function ! d! M3 p$ m' i# e+ n' u7 B
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) + Z; @  g; `6 R6 o
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 6 n) s7 Z) Z7 F$ K8 {& d: S5 M+ E* b7 c: ?
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 3 c- @! T1 s1 g
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ( d; c5 E$ {! |/ _/ ~$ ?! s
Decode = Decode & Chr(lBytAscii) - `- l" w/ L0 x/ [, |6 D9 G
Next ( a/ ^4 u+ A! F; V1 D' \
End Function 1 \7 M3 U$ m9 I1 C: v1 C
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 3 S7 @8 E3 |6 K2 K
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 3 U* J5 _! X# S/ {1 o6 m
End Function % [, w9 G& A# k5 D7 s5 W
End Class 4 v% ^. ~3 N0 B: d
function Encryptstr(Message) 7 ]+ ^  i* J# t* z; M
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage . K2 v4 n% D! q# I8 F8 _0 y; ?; E
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 2 G  \. H$ T  J; M9 z0 x$ R
Set ObjRSA = New clsRSA " L  v2 f% a2 f( C6 J. T" _
ObjRSA.PublicKey = LngKeyE : g) E" D  b! `0 k  G
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing $ }$ l7 F: q  d* `1 f# Q. j
end function
Function Decryptstr(Message) ! B: K, P) c' p
Dim LngKeyE
Dim LngKeyD 9 T0 ]% ]- C8 v3 v$ J3 t
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   V/ d) b* W$ c& r' f
LngKeyE = "32823" % Q9 b* R* Z5 G* N  V3 l$ ^
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA & G4 R5 B  y# d! m
ObjRSA.PrivateKey =LngKeyD 9 A8 y- a  M. q- R( ?  T
ObjRSA.Modulus=LngKeyN 7 W* z# _' t" q( ~
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 6 m1 a  V, c' N" l( O
end function
%>
===============================================# r9 R0 Z0 r  k- d' `
  c' U& I. m/ J8 E( F7 Y0 r6 S
还有一个用于测试这段代码的test.asp- e: I0 _* ~, P
有兴趣的自己搭建个IIS测试下& Y. v- z9 I. p4 t5 n
 : N" k3 j8 o) Q
<%
function Encryptstr(Message) * t4 p5 `4 ]: W$ k
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage + d0 [  O- v& M0 T* U$ o9 E4 r
Dim ObjRSA
LngKeyE = "32823" 9 N5 M4 ]2 b% Q0 e5 d$ z6 x
LngKeyD = "20643" 9 Y& T5 ^" G# i* U2 _
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 0 B6 E1 N7 Z1 m* b/ r
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function : }* P; C- q" W$ ]
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 3 Z9 T( K" C( @6 w
Dim LngKeyN ; d+ a# ]9 n! _4 X- L
Dim StrMessage $ r0 P: g/ e5 V% X; c
Dim ObjRSA + x3 K, s3 ^2 z1 K: E/ ^/ }
LngKeyE = "32823" - T7 l) d) F" t' J0 f
LngKeyD = "20643" ( c, h6 n; V& N+ m, J
LngKeyN = "29893" ) A0 L4 H8 h3 z( e3 Q8 u6 U
StrMessage = Message 0 Z+ {8 ^; X& t6 J. v
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ' O0 b3 {( P9 J. h
Set ObjRSA = Nothing . p; G) B! y7 n( V3 [- A
end function * H% k- {- T- b+ @6 a
dim last,first - T4 ?  l& N, _9 _+ Y$ e
first="!@#$%^&*()"
Response.Write "加密前为:"&first ) k: s! |% ]% Q( I9 N5 Q, u, z# Q5 A  g- C
last=Encryptstr(first) + |3 G2 I0 k8 N0 A" q2 S5 c3 E
Response.Write "加密后为"&last 7 a. X  k6 B: Y
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了# V. D! n, P1 E" }$ _* f
===================字符集================# d3 h8 b9 V& @! v4 p1 g& f
1_____6EBB7 {5 ^8 Y& t$ O+ a5 d; F  e+ R
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D+ q: `7 m) Q8 E- X' c2 Q; m
8_____1A1C
9_____6D20
0_____1089
a_____0F3E( w: l& S2 l/ F; p
b_____3159$ e+ h! I# E2 J% s* ^8 c/ W
c_____3517
d_____419C- I: r8 U% i' r
e_____615C
f_____556F
g_____2B7F) k* Z$ [: [* h) `/ g. ~
h_____0F9C. o7 N+ m. D7 M0 B3 ~
i_____00FA0 t( {) l5 `5 C
j_____5A50
k_____2850: R2 @- K/ X. i+ O2 J
l_____3E7B( H) m) U  Q! b9 M
m_____71C5
n_____1FC8
o_____74C1' _% ?" \& k. w) e3 [0 P
p_____5FB8& Y# b  p, ]& p3 D' G
q_____6085
r_____3AC4
s_____2F507 @4 `0 N; p& l2 w9 R* _: @1 R
t_____36F8
u_____7010
v_____0B42
w_____1C7A6 B5 h; H6 H0 G) [) L1 r, I3 M- }# R
x_____16F8
y_____2EE7+ q( k* M, k. z0 w6 u. M6 K# e7 O
z_____5CF3
!_____6233$ q& ^" H/ n& p
@_____3A455 {' L$ C" C" q4 w9 c$ I
#_____22916 C/ q/ I; y' W, p+ S
$_____5D5C3 x$ W1 q3 a+ o4 W7 a
%_____09B9
^_____43EA
&_____62B9
*_____63015 }$ e6 X; J" p% J
(_____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 分享给朋友]