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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm2 V* r2 K8 H* ~( H
  G5 A# a2 l/ W
看不懂的直接绕过' S' u- D( O0 K: B2 b5 O2 K
加密前为:hwy123456' \6 `7 Y* S& F+ p
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E# D! p5 w9 n  a, B: g6 E6 n7 L
1 Y& t9 |4 F' J) T4 o% W
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法" R, x. N/ E9 M/ \; H
以下是RSA算法文件9 Z/ O* f8 P3 g7 t
" j, @& s3 h1 x' |
文件名RSA.ASP
===============================================. b) ?% \& Z' e
<%
Class clsRSA
Public PrivateKey 2 b( n9 C& ^( N) t( S, x3 U# k
Public PublicKey $ d+ S  ?* |7 h+ W
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 3 T7 {( Y0 M0 b3 z, b' q, r
Dim lLngMod
Dim lLngResult . c* r; m( S+ C' E$ A: ]/ \# q
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ; W% }) W+ t6 m& |  e
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 , ~8 @, g; x! V- W) {" e* M
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 N8 b' }5 f* l. g: `
If Err Then Exit Function 5 m+ ^! m) `3 \& `* ^# w+ A
Next ( J1 G! q( R* ~- K6 E7 |
Else " ]& N* o# A3 D/ n$ H8 T9 ^: H4 g* E
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 # D) c- X' o" C0 \7 }* z  N' A0 l" |
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ' @5 C& u  S. Q0 ^2 h/ Y9 j% c
If Err Then Exit Function # p, L  l8 t! A) X( l0 v* u; |* T
Next
End If ( f, P  W) V' A9 y9 G9 F
Crypt = lLngResult , p/ n+ s9 e* @5 e5 d" ?1 \* a
End Function5 W/ n2 _$ v( @
6 V; H2 Q4 `4 c2 D% \% t+ \  x( v
Public Function Encode(ByVal pStrMessage) 4 u; ^8 P0 k3 @8 ~3 Y. X
Dim lLngIndex
Dim lLngMaxIndex ' P* [9 K+ ^' Q
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ! Z7 M4 d+ n' [) p, A, V0 ]9 s
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex " \& v5 s% a: o" q# T) O
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) : p* t$ k8 e% l! I# \
lLngEncrypted = Crypt(lBytAscii, PublicKey) $ V9 ?9 J3 z8 S4 k: h
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 s4 s6 Q2 u4 g
Next * D6 T7 R  }1 D0 F
End Function - Z( y- y* O+ N5 }' |" S2 W
Public Function Decode(ByVal pStrMessage) ; v# i- B' S( o: n' a
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * X9 n9 F. m8 l  Y0 F% m
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 6 I; d: W4 f4 X) m4 A- _
Next ( Q% m9 G$ v" x1 s2 D9 E8 V
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) . z) }1 B* J( h' w
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function : I0 @2 F9 f6 U- ?& [" P
Private Function HexToNumber(ByRef pStrHex) 2 ?/ Y$ P8 T2 P$ q$ H
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class : j: A# a8 Y8 \" [. d% K0 X* J9 m. G# ^
function Encryptstr(Message) 5 q5 K5 P( [5 e2 p
Dim LngKeyE ! |$ M1 B/ q' ?# N) K
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 7 Q$ K  T& h0 o7 }  O. M
Dim ObjRSA
LngKeyE = "32823" ' [1 O" K& r$ ~! X" y3 u& |' g
LngKeyD = "20643" ! B; F; D( [0 O& o
LngKeyN = "29893"
StrMessage = Message + H- ^1 D/ b! _4 m
Set ObjRSA = New clsRSA + q/ m3 h2 X: S% [" B
ObjRSA.PublicKey = LngKeyE 6 j4 Y3 f2 l( `; k' W/ l0 s
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 0 q9 g) m8 Y3 f
Set ObjRSA = Nothing
end function9 x  a# I7 \4 q2 s6 e7 @: {
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN / X: Z# ^3 K1 `+ W
Dim StrMessage 8 s# @# q' W+ F; S3 H# ~& H) r# j
Dim ObjRSA   O# |8 k. t4 p2 ?+ o- B
LngKeyE = "32823" 6 E6 U1 d3 I1 q
LngKeyD = "20643" : ?; A) r* u' c: z$ z
LngKeyN = "29893" 9 |( a) |  V+ T% o+ I
StrMessage = Message
Set ObjRSA = New clsRSA   j( p5 _6 g9 Q* k% p/ z
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ! y& w7 w8 |: u' ?
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing " |4 j5 f6 G& y  p
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 * [5 w/ T+ l' b" [5 k9 ^
<%
function Encryptstr(Message)
Dim LngKeyE ( b0 f9 V2 `" b7 A+ x
Dim LngKeyD 2 G3 T3 c* N7 p: _7 |$ e! n
Dim LngKeyN : I4 h" c% @( z: f7 T8 `" x& E
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 4 }6 y( v- j1 q! v5 F2 {
StrMessage = Message 2 R  a% m( P+ R  Q' `2 I! d
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE $ D5 R0 d; m% C. h+ K
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ) R4 U' P7 W4 f8 {' `: N
end function
function decryptstr(Message) % R4 S3 O+ Z, F4 w1 r1 e# n! Y- R
Dim LngKeyE
Dim LngKeyD ; O! M5 Q  Y, [$ T$ S0 p5 e
Dim LngKeyN
Dim StrMessage . y+ b; ]: c5 ~
Dim ObjRSA 6 p/ T- e1 P& F/ s
LngKeyE = "32823"
LngKeyD = "20643" ; X2 K  C1 {: h7 l
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA % v& S" F+ Q, H9 L5 m9 r
ObjRSA.PrivateKey =LngKeyD * x" f6 E4 o2 N* k7 L7 f* ]
ObjRSA.Modulus=LngKeyN ) p1 r, _; C% ^* ^$ n
decryptstr=ObjRSA.Decode(StrMessage) 7 T' m; H5 d5 a
Set ObjRSA = Nothing
end function " I- r& L) k; H9 x8 c: B! j
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first . T3 }/ m6 p- Q
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 3 H: n2 [4 x% w# W! N0 }: B! H
%> ==============================================& W6 Q4 p* ~8 Z+ Y' w" d9 d
剩下的就是字符的对照表了& m. K0 Z% T( M+ K- P1 V; F- d' s
===================字符集================
1_____6EBB( {, s0 X1 b; d3 Q. l- ~$ G" k
2_____5C1F
3_____4D75
4_____26CC) |" {3 `0 ?( f% |1 B
5_____4F88" ^5 R+ `  h# E# `( Y
6_____3F4E
7_____0A9D
8_____1A1C9 d/ c1 R  t% t7 l/ s
9_____6D20
0_____1089" n& Z8 E; M) K; H5 K
a_____0F3E
b_____3159
c_____35174 P& M; ~& r) Z
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C6 ?9 T" m3 i$ E- j2 I) L% p6 T
i_____00FA
j_____5A50. o' ?( ^4 M/ g' S. K3 v: b, u# N
k_____2850
l_____3E7B# C  a, P5 ]& l# S/ q  X& x5 {
m_____71C5
n_____1FC8
o_____74C1+ Z0 B, ^: C( K, T. v
p_____5FB89 D, ^: r; [7 j% E0 f
q_____6085- q7 Z* {0 z, }3 @7 _7 V3 w
r_____3AC4
s_____2F50
t_____36F85 X% e% j9 c/ R" Z; V2 a
u_____7010
v_____0B42; W# ]4 U; l  f& k
w_____1C7A% R, @9 G1 L0 l) P* ~7 j+ K
x_____16F86 {' w; s/ P2 L
y_____2EE70 ^( ?! }7 }) z" ^9 V6 ^1 X% S
z_____5CF3  l5 Y; M! m* H8 W7 B3 d$ |* i: Y
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9$ r* h5 [! R" x
^_____43EA
&_____62B9
*_____63013 b7 S3 m, K3 r
(_____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 分享给朋友]