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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm2 F- p0 B( L- h$ W
原始出处：http://www.3ast.com.cm9 ^1 V" B$ q, z: [) w8 E! _

看不懂的直接绕过( u' z/ K# A" b3 ~5 a
加密前为:hwy123456; J7 O' J) |9 [3 ?, F
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家. K# f: w2 R( i6 ]; }7 T: r
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 w4 h2 a8 U0 q; ~' N7 v. ~- G  {( x9 u
以下是RSA算法文件

文件名RSA.ASP
===============================================
<%
Class clsRSA 6 M# E6 `3 Y8 [% I9 H
Public PrivateKey * L2 y, g: V* O. @. ]
Public PublicKey ( k$ c: s1 S. B
Public Modulus 5 l. d7 Y" }! v6 C! b" ~
Public Function Crypt(pLngMessage, pLngKey) 9 @+ s' k( W* R* H
On Error Resume Next
Dim lLngMod 3 G& h3 X* G+ X7 S, {$ _0 l
Dim lLngResult * M+ l+ F# T' x/ G
Dim lLngIndex . r' [9 S' l" [. N. H
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 , R! ^. ?/ m' f
lLngMod = (pLngMessage ^ 2) Mod Modulus ( e/ G5 P& l" `% O  T
' Mod may error on key generation ( D. e7 ]* F7 p4 b. \
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 , }9 t" @6 G2 I/ ?3 X
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation & B. v  G7 \* J4 R+ Y/ V# h
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 L6 Q* z% A. \6 C* K4 X) Q
If Err Then Exit Function
Next
End If
Crypt = lLngResult . g( t8 O( t% J6 D7 m
End Function
( g* }8 B2 [" c, D* o
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ; Y6 ]! y: P% k- x. S; x
Dim lLngMaxIndex * W! _. f0 ]/ T4 i: ^& _
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function + a$ Q: q! K/ J4 W
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) # @" ?6 R' O5 I8 J
Next " ~# l8 r: D- B% n4 j
End Function   A% E9 B; {* i. F* ?) z
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 6 d% j  I9 X+ d& Y( l) {4 N
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) : N, S! y! M" t6 m1 |/ h; G5 ?
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)   `; N% }. T" O' E
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 ~4 E$ D% f" A+ u, @. Z0 A5 H8 p
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 1 W) f' n: I7 a# n" [! _: m: I
End Function ) T3 H. }5 O5 |1 U! F6 e8 p
Private Function HexToNumber(ByRef pStrHex) 5 q9 u4 K  A/ I' H. ~9 a
HexToNumber = CLng("&h" & pStrHex) % Y! C# z5 z# d+ w
End Function
End Class 7 v6 z2 p* H2 b. i
function Encryptstr(Message) 1 q1 U) ~4 z- Y. i: Y& N  F0 }
Dim LngKeyE
Dim LngKeyD / Z  b' ^( G# f5 _- |
Dim LngKeyN
Dim StrMessage 2 q1 d, `# k( M+ b8 m
Dim ObjRSA ' Y( \. N5 ~$ ?
LngKeyE = "32823"
LngKeyD = "20643" 9 [8 v# J+ H1 ~! A1 l
LngKeyN = "29893" ; N' j; G" y# u$ ]' u
StrMessage = Message 4 \7 D1 l5 d: ?  p  N% @
Set ObjRSA = New clsRSA 0 ]# |$ c$ U5 w
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)   ^& \* o% r5 b! g1 @
Set ObjRSA = Nothing # D5 K! s1 r" z/ M
end function9 ^( i8 k- K) L0 F! }
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD / `, N% |' b" x/ H
Dim LngKeyN 9 _% ]& v$ ^/ Q7 I3 v% n
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ; l8 v; Q3 b# \  e
LngKeyD = "20643" ! G$ S" |5 u/ j9 `5 \! k) q/ I0 S. z9 S
LngKeyN = "29893" ( l3 f0 g8 b# x- [
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN   K6 g. G1 e  {& R- \1 l8 N8 w
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function * o9 s9 |# V; p/ Z1 R
%>
===============================================# c: W8 p/ ?5 ^' O2 E* Q
+ i! y- J: P; R* M3 e$ r
还有一个用于测试这段代码的test.asp9 M2 @: |: a0 l+ B9 l4 Q1 m) s4 j
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE ' w( x( ^) d# g; q9 ^+ b0 \
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 7 u* d5 r/ @/ }4 Z
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ! ~, X* _( H! u* e& ?1 B8 e
StrMessage = Message - Z8 l& Z; {) S6 E. a, B( |
Set ObjRSA = New clsRSA ; N# G' q! y; v
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ! X- U! |- e  \
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function   p" g4 ~5 u- _0 {: t# `+ x4 E
function decryptstr(Message) / A) X1 a8 ~; x3 I
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ; X  D3 p8 o: m* R6 ~
Dim StrMessage * `" c. ?' X* j  j: A; ~* o2 A
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" & u" y9 |3 Q0 z& D
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD + a# H4 g1 T6 H. R) W2 N
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ( `$ t% S7 T- b
Set ObjRSA = Nothing 4 [5 A5 ^, P$ G9 j$ v! y
end function 8 ~" S6 j) [2 e3 R. _
dim last,first
first="!@#$%^&*()" / n5 x; I) r7 N9 i  w$ G& \' T, G
Response.Write "加密前为:"&first & o4 M) X0 w+ v) P4 ^& n. i$ B
last=Encryptstr(first) . p6 \6 h; ^& S" R  H3 F* f  Y
Response.Write "加密后为"&last 0 Q& ~$ a4 H& A1 m
Response.Write "解密后为" &decryptstr(last)
%> ==============================================$ l7 V2 d5 e4 D% r8 N' H
剩下的就是字符的对照表了- ]; p; Z; X6 P
===================字符集================& R) `  Q: i7 f" M' f
1_____6EBB  `. J  p9 ]* u+ J; F% }
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E  s$ g0 W3 R6 o/ k3 |
7_____0A9D# h& `: ~7 v5 Q8 \: g# Y
8_____1A1C
9_____6D20
0_____1089
a_____0F3E+ k  N& {- @  ?
b_____31596 Z' [' t0 N7 J6 j& O* V" x
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B5 E/ s0 Q, Y1 e7 {6 }* J) g7 e
m_____71C53 u! a, X& \! j
n_____1FC89 @2 j, c* }' M7 N% j+ B: e
o_____74C1% q+ z7 V  b* ~! W+ G# r0 O5 J
p_____5FB8
q_____60854 f- w8 b/ j$ s
r_____3AC4
s_____2F505 N: T# n" w2 p: a  G; v4 }
t_____36F8
u_____7010
v_____0B42: w9 X4 g4 G% y; B3 L! i3 Y3 c
w_____1C7A! S2 f- p& t& s! u2 A' j: r
x_____16F85 p2 g# H6 K8 K& i
y_____2EE7
z_____5CF3
!_____6233
@_____3A45+ ?+ X+ M6 J8 O
#_____2291. N2 M4 V& z' u/ \, F
$_____5D5C
%_____09B9
^_____43EA4 F% X, G0 ~! j% f
&_____62B9& ^& _) y" g: m
*_____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 分享给朋友]