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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm) G3 `# X: @4 @+ `5 g% \
  g8 k& D" b4 J% |, w7 `6 |. H
看不懂的直接绕过/ C5 N! O4 K. A$ e5 h: H! \
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E$ j; |  C7 K  @/ s3 \) K

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件% w0 R) V  p) R: U, V
: x# d5 z' o4 h4 v6 d# b! S1 `9 }
文件名RSA.ASP
===============================================7 u5 K3 L* j$ l/ w( L
<% 6 ^! [) B/ g& Y# |
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus 5 P5 Z: h) X& F6 `8 K
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next " g) H+ d+ {8 H8 |! P% S
Dim lLngMod # U0 K- u3 |$ Q2 |
Dim lLngResult ; k, u! S, t& t/ r/ ^
Dim lLngIndex - f3 z( r6 t+ \5 v
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 8 N$ i6 _/ z, w8 j$ E: P; L0 H1 _
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 2 i* M; T2 t" I' e5 E
lLngResult = (lLngMod * lLngResult) Mod Modulus $ x. c) E; f; \* o  o, T
If Err Then Exit Function 7 G0 C7 j" q0 K3 m% ~4 }# y6 u/ j
Next ' _0 e% k& l# S$ q( U) [, X
Else : U5 r" w8 d, A% y& S. y
lLngResult = pLngMessage , ~* n0 C8 f" x& t
For lLngIndex = 1 To pLngKey / 2 * a8 f+ ~( o: I5 q) ~: z! I
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next % V' R- Z3 [. u$ J! I5 s8 V# _
' Mod may error on key generation 2 k+ N. I1 `/ O7 N1 {: V
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 5 f7 G$ S+ E' s" g  c
Next
End If
Crypt = lLngResult % i/ _  I0 ?3 u# i* k$ u5 H
End Function$ C- ]2 Y7 S+ _  v, O' j7 s
& G5 g9 w3 m4 N; p8 y1 m
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 3 e8 ?+ _) a2 u) q  H& V0 P5 M
If lLngMaxIndex = 0 Then Exit Function ! x5 ]$ f. H; k+ L. D% R; B3 j
For lLngIndex = 1 To lLngMaxIndex 2 z) L% [% G0 u7 V
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # z  o% w2 w- p! I# _
lLngEncrypted = Crypt(lBytAscii, PublicKey) ( h- h3 J; E% U
Encode = Encode & NumberToHex(lLngEncrypted, 4) & K  _4 K; j) W0 ]! m- k, W
Next - U0 y" A* k$ [6 i0 @
End Function 5 H/ p: P# |# y  K' M# N
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 6 b2 [4 e' j3 h# q" @
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 - P# u9 u: j* y
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; T. T6 A0 Y) M6 b" w' [
Decode = Decode & Chr(lBytAscii)
Next : W' T: f( Z4 S* C" B- u7 G
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 1 C$ I' G4 I  h) O& Z
End Function ( d; A  R, {$ c& V; B: `" H
Private Function HexToNumber(ByRef pStrHex) 3 ^. Z1 ^: d$ [5 `4 r: M
HexToNumber = CLng("&h" & pStrHex) 6 n% b0 A# C; Z. [: z9 O
End Function ! g1 Y9 N& H: T
End Class
function Encryptstr(Message) + j* ^$ V- m1 o2 E' \
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 6 z  K- D; }- m4 l+ R& ~
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA - v3 f( Z5 v; N5 ^) ?8 Y& z6 L: O
ObjRSA.PublicKey = LngKeyE : t2 m- v: L7 t. B- o1 F% D* T
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing . s$ _. P9 U1 I7 l. V$ ^9 `
end function
Function Decryptstr(Message)
Dim LngKeyE ; w; m: r" N' n4 Y
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA $ a7 C5 y5 ?1 X. ]" ]# \; s$ |
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message - s; l( L! A& \
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD / D2 v6 o; E- V6 m: D& M% H; K
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)   l) f7 p5 t1 s' f. H0 Z1 B, N
Set ObjRSA = Nothing
end function 9 `1 a6 ~7 q1 `) a' o
%>
===============================================
/ |. e  @& j; K/ b
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 1 i) F% _* P% g5 g' \
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 7 W: Y- ]3 ?/ w1 j! G$ z9 F
LngKeyD = "20643"
LngKeyN = "29893" : R' C: A% V* g  L1 G- t
StrMessage = Message
Set ObjRSA = New clsRSA * X2 ^, T* {8 Q& }9 O% c1 {
ObjRSA.PublicKey = LngKeyE " V: P+ ?9 T8 g$ {
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ' [  T4 u  K' d% ]/ g6 b: x
Set ObjRSA = Nothing
end function - a9 {6 i: W( a" }$ c
function decryptstr(Message) 1 m: C7 Q* r& s
Dim LngKeyE ) X) w+ p1 t6 Y3 M2 J0 K3 _* J6 e
Dim LngKeyD 0 @/ |* @8 `" F/ u5 I( |+ _
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ; A! W- j) ^  u- A' j
LngKeyE = "32823" 6 S2 L9 G4 r7 F% `& K% U6 [0 j+ {, o
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 7 y) Q% g2 |$ S3 J- D3 r& z( X( y
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD + f' [7 Y7 o% a* e( l8 B
ObjRSA.Modulus=LngKeyN 2 {8 Z* u# k8 g+ d; z' Q/ x
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" ) e$ C: J0 |- U$ m& A: O8 E6 I
Response.Write "加密前为:"&first # @7 r! e' |# m$ k) @
last=Encryptstr(first)   t' m" b  Z  V1 {& R) A3 J# B
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) : X" i8 c8 J6 ?# M2 J4 u
%> ==============================================7 `9 i) v/ }- [5 L, I! p* O' L1 ~( f$ y
剩下的就是字符的对照表了
===================字符集================2 b7 O# ~1 a0 v& {
1_____6EBB
2_____5C1F* F7 o/ B* X5 @9 }; \- ]
3_____4D751 V5 P- O2 q6 B$ H; a4 y% C9 x
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20$ B$ }8 S- s; |/ ?
0_____1089
a_____0F3E
b_____3159
c_____3517! D' X2 w0 H; ^
d_____419C
e_____615C: ~+ P2 m1 S% w! z/ R0 V4 E
f_____556F; F1 J$ J5 }& Q+ @3 `. E9 k
g_____2B7F, m! t& \7 T% w  t# \. N" X0 ^
h_____0F9C
i_____00FA
j_____5A50! k7 ]- w0 P7 [
k_____2850/ j0 g( K3 E- V) I6 p
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB88 [0 K3 B* x; f% C  J/ s
q_____6085$ h4 D% r. k2 s. m9 N- H; L, G
r_____3AC4* K; u7 c" A6 S# [4 n
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8/ P0 S) |. f% n9 ]% I0 y
y_____2EE7: s, S' Q/ @% V; D, y# q5 s6 f9 U
z_____5CF3" r! w) T" }" L# E
!_____6233& s4 K0 k, S% i$ C5 |
@_____3A45
#_____2291- D. t3 }1 ^( N, Q: |, H9 j1 n% B* I
$_____5D5C, l6 n. X5 W/ O1 u
%_____09B93 q! f( s3 k, i- ]1 v$ H3 U
^_____43EA" m7 J, l5 i: C, g1 ?0 F
&_____62B9) ~7 J' N6 d, V# M3 c
*_____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 分享给朋友]