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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家: l7 }+ v5 Y5 \( r7 ~
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件  B6 Z  ^, f/ @0 s, q2 e. b0 E

文件名RSA.ASP  @1 h2 ^3 [4 J( [: M4 x$ V& W
===============================================3 I( @$ Q* a9 ]+ d; I
<% " I+ Q4 I1 Y$ h) N# r1 m5 `2 e
Class clsRSA / F; G% V" Y" v; [7 M1 Z* x8 i' M
Public PrivateKey $ @) Y3 B9 h. Z# i0 e, C
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ( G% r$ E9 b* @, K0 D
On Error Resume Next
Dim lLngMod ( {" T2 b$ l! x. a% k
Dim lLngResult * t3 b" {7 K$ J4 U
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 2 ]- i# T6 B" G, q" _
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 0 ~. V: i/ @0 f$ L: G( W! W
If Err Then Exit Function & `/ M; A4 ?8 B8 Z0 n. ?& _
Next # k- g! n0 d' c( r1 c& T
Else
lLngResult = pLngMessage % B+ H# Q% W$ g2 T7 ^/ H
For lLngIndex = 1 To pLngKey / 2 2 x2 X/ T- d, v- [
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 2 ]* \! X. j, V1 w6 K, O% Y
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 1 b6 A2 k% t2 B2 \0 v
End If
Crypt = lLngResult 5 c( m# Q$ c! V; p! J4 E$ ?/ ~
End Function' y: v. i; u7 {

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex ( n: b2 _) d4 Z3 z
Dim lBytAscii : i& [; o/ Y, D& D
Dim lLngEncrypted ! y# Z7 k1 R/ l* M# u
lLngMaxIndex = Len(pStrMessage) 3 R4 @6 n. H9 R% _
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) # ]! g) A0 U! x1 v
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) 9 q$ B% H, j) X8 J; Z
Dim lBytAscii
Dim lLngIndex 8 D8 F( ~$ M9 T5 R6 E0 M
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) * p9 |" N4 T& _7 W" S: Q! b+ Y
Next
End Function / Z3 Q5 w1 {- L: }# U
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 U1 v' J: X( _  y, g
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)   w& j; r/ Y& N$ H2 b$ \
HexToNumber = CLng("&h" & pStrHex)
End Function * M4 L7 J0 L8 S) b
End Class
function Encryptstr(Message) 4 q0 v5 k# h2 l4 Q7 ?1 [
Dim LngKeyE
Dim LngKeyD - w* B0 H6 d( c) w
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ; U' j; a  Y  B7 N
LngKeyD = "20643" 9 k: ?( c/ I/ O% b( F7 t' b
LngKeyN = "29893" - o) j% B' S* u' O" v% i8 a- y( s
StrMessage = Message ! i) \+ @8 L0 T
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ; ~0 `) m3 b) K0 T$ Q, m' l7 R
Encryptstr = ObjRSA.Encode(StrMessage) 7 ?+ T8 j5 J1 r: d* P9 w: d+ Y
Set ObjRSA = Nothing ) X/ k3 Q/ `" b
end function/ |) z' D+ H7 F$ V. i6 Y( J
Function Decryptstr(Message)
Dim LngKeyE 5 p3 f1 s; }+ g+ q- F5 A
Dim LngKeyD 6 y* \% G* k. o. r4 _( N* I
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 0 w: R* e8 {+ W( Z; u
LngKeyD = "20643"
LngKeyN = "29893" ; f( {* p- s6 t8 M7 `
StrMessage = Message
Set ObjRSA = New clsRSA ; I7 F/ H* F# c. a) B
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , J& A* K" j: X5 H2 k
Set ObjRSA = Nothing $ c& ]9 O3 l9 l* e1 y9 h: c8 G: Q; X
end function
%>6 s& c  o2 q+ U7 W) h
===============================================" e  b, f9 d+ g4 Z4 _% Y' M3 w
: F, g* ]& N1 H6 g+ z, W0 }$ g
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 7 y9 X- {5 u2 r1 ~( I
<%9 Z& B7 c( i/ r; d/ g1 `( f6 U, \
function Encryptstr(Message)
Dim LngKeyE 0 p5 K- X! n. F4 ]; e$ q4 B
Dim LngKeyD 4 x% ]! p8 G0 l+ n" o
Dim LngKeyN * w: |% a2 w4 G/ i
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 6 v3 F+ V/ Y5 C
LngKeyD = "20643"
LngKeyN = "29893" - Z& _" e4 K& A; t3 i$ ^' J
StrMessage = Message
Set ObjRSA = New clsRSA / ]3 `% v/ A2 h5 G! F( X1 }
ObjRSA.PublicKey = LngKeyE 4 e# ?  R: z( E' D5 P- i
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 0 L' v5 c; F1 u6 |
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ! a. C$ g& a* J  [1 x
Dim StrMessage 0 B: v8 D: z+ t/ n* u6 W
Dim ObjRSA 2 w- _$ J; h6 ~2 M" n
LngKeyE = "32823" 5 E3 H% n$ S# y% @3 N/ E5 Q5 w
LngKeyD = "20643"
LngKeyN = "29893" ( `, M0 d: r8 ^  l. ?% G
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first 0 H; `  n! k1 A' h3 z+ s7 V3 e; n4 J
first="!@#$%^&*()" 9 C. n& u% W) o! `
Response.Write "加密前为:"&first
last=Encryptstr(first) + k* u1 U* r  H2 g  `$ f
Response.Write "加密后为"&last 2 @+ k) _6 _" g( t" h5 O0 `
Response.Write "解密后为" &decryptstr(last) ( J! R$ q' j0 O' J- v3 o
%> ==============================================
剩下的就是字符的对照表了% ]" v4 H+ A) m9 |1 G3 {
===================字符集================6 H& u# S) J; Q: L
1_____6EBB! V% s% D5 q9 b' V
2_____5C1F
3_____4D75! M* e' Y" _& ^% m, U! S
4_____26CC1 a. L7 E8 |8 `  z+ U
5_____4F88& W( V: s2 n. ?0 s, ~
6_____3F4E
7_____0A9D( c% i2 b* y" J4 F0 m6 O, v7 [: }: d
8_____1A1C. t( M( }. P- z
9_____6D20) `* P: ~! A2 z, O
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C6 X9 S0 `- D! N# k- [
e_____615C
f_____556F
g_____2B7F; I4 V6 |: d" R1 K3 a
h_____0F9C; k/ e; N- U0 {5 p- E
i_____00FA1 C& z- z. _1 z0 f! Q' a
j_____5A50
k_____2850
l_____3E7B9 ^! C7 [6 B; D9 X2 i  Q
m_____71C5
n_____1FC8- o6 N, [  r. {' x& f8 t$ d
o_____74C1( }. V+ ~$ p5 ~4 r% ~
p_____5FB8
q_____6085
r_____3AC4
s_____2F505 ^2 b. i4 j3 }9 [! A
t_____36F88 P" N& }1 M+ d. V- A
u_____7010
v_____0B42% k. m5 h  [' y" d3 l9 g8 [, W
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA% Q+ J. f" M; w, w. O! H% }2 A
&_____62B9
*_____6301
(_____4659# ^1 R' X" d5 a' ~, s. _
)_____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 分享给朋友]