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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm- V, ?5 M$ Q3 J: A" ~
原始出处：http://www.3ast.com.cm
8 m2 N, J' m  D( ^6 J4 c
看不懂的直接绕过, c- n3 R( W, d7 c+ B% \+ a7 P
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家5 w& G4 P5 i$ X' T5 n) E
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法9 m5 h6 K1 w% l% F1 p) g8 f
以下是RSA算法文件

文件名RSA.ASP
===============================================
<% $ B- c, r! g1 o3 G
Class clsRSA
Public PrivateKey : o9 v  \/ w) L6 X2 M6 @
Public PublicKey
Public Modulus / i3 o* f9 s. W$ ^* W# W. I# j
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next # Y+ h. u( q* q. c
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 % E9 `+ l! l% j- P! t. c( y
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ' Q* q* b3 K. @: l! c
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function & D5 D# g% O# M  N# X
Next - F- k. I9 v, @6 z4 V4 {, p
Else 1 y& j) J. T6 ]3 m. N; d7 _
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 4 F1 _: X  B- g/ L" ~: S4 e9 s. T
On Error Resume Next
' Mod may error on key generation 7 g6 x2 F0 t! G0 a6 k
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function # d+ S5 |0 }0 p
Next ! U$ w2 [$ A4 m0 z
End If $ `2 F  `8 {+ I- e6 ^
Crypt = lLngResult
End Function
" P% [% X; W5 K4 ~8 f& c4 _
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 9 F/ G. N0 E) {  B
If lLngMaxIndex = 0 Then Exit Function , R1 e3 _  x* {! O0 @; y1 Y5 q
For lLngIndex = 1 To lLngMaxIndex 9 d# h1 y: G/ q/ k! ]
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) . k: x" ]  H# _' ~6 J6 _+ `
lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 g3 J  W( s7 t6 J6 {: |2 y" |
Encode = Encode & NumberToHex(lLngEncrypted, 4) $ X) R" e7 Q6 n1 c5 I) U- k7 ^
Next + v9 ]3 T5 b( z: M* J, B& G4 w
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData ( D% @& f, L  P) y4 C- @
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # O3 E+ l) @4 K2 E  M
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 h6 D, {& ?  n( p4 k- \# o( L# D
Decode = Decode & Chr(lBytAscii) / H8 _$ A. e* a5 {: E
Next . o0 g: P1 x: \) u
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE / x; h: T. [  _/ D" n2 T/ k/ ~( a' m
Dim LngKeyD 0 }% ^6 Q3 r" e" F
Dim LngKeyN
Dim StrMessage % b1 i% q( \' j" C
Dim ObjRSA . D. A4 }. g8 |7 a/ f( q/ v" R
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 9 w. E1 Z0 h) v0 X  D. m
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ; t. X/ |2 R3 w/ ]" k
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE 5 m% E" z! \% s9 X$ D
Dim LngKeyD ; f: |# l0 j/ s) I6 C
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" " o% F: k- V& l4 O3 @
LngKeyN = "29893" 9 G3 \+ L& Q" ]2 y1 ^" r5 Y  ^
StrMessage = Message # s1 m" N$ F: `1 u- y: R3 D, C+ q. K
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ) N# b" q$ O1 g; C& }
decryptstr=ObjRSA.Decode(StrMessage) & N6 h6 X1 u: ?( }
Set ObjRSA = Nothing # C- }# p+ b0 `; s
end function
%>
===============================================
* Y4 U, y( ~; m
还有一个用于测试这段代码的test.asp3 w; F$ D$ P3 U2 V7 R4 T2 L
有兴趣的自己搭建个IIS测试下
 6 n3 E/ x2 a8 s: I* U- d. F! h: t
<%9 I2 i  d1 Y' Z) h
function Encryptstr(Message) 1 @: R9 j; U* J, J1 n' }
Dim LngKeyE ) j) e" c/ }& D0 \8 _
Dim LngKeyD
Dim LngKeyN + T7 l( w+ c/ W  C7 {
Dim StrMessage " y: C( S# M+ q( M- d( Z. J
Dim ObjRSA . j; e* ~" \0 q7 |" S
LngKeyE = "32823" 1 ]8 S5 T, d; @
LngKeyD = "20643" , F0 q7 ~( F! J2 `
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 9 t& h8 _2 Z2 E( h' B: n
ObjRSA.PublicKey = LngKeyE 6 f' a* X0 E( ]1 L; q
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) . X, h( e4 j7 w. F: ]4 G5 G+ }
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ' d$ a+ z5 \" A/ }! ^
Dim LngKeyN
Dim StrMessage 7 U/ y9 ?1 U8 ^2 L1 N
Dim ObjRSA
LngKeyE = "32823" / P& d! B* p9 m. m4 D! G+ \" ~1 i
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 y2 L3 g8 E/ f+ ^
Set ObjRSA = Nothing
end function + T- ]- J9 E9 F  t. o
dim last,first ) A4 P0 k" }& n
first="!@#$%^&*()" 0 F, H2 L4 J+ t, E; E
Response.Write "加密前为:"&first ( n! ]1 n2 f3 R& v9 W' T' U8 U
last=Encryptstr(first) 8 M! I9 i) [# d8 J
Response.Write "加密后为"&last & x6 r: T! w( O0 n+ @
Response.Write "解密后为" &decryptstr(last)
%> ==============================================( k& [; E& Y/ M; u7 r* @
剩下的就是字符的对照表了9 y& Z3 W' O( y1 Q3 u
===================字符集================
1_____6EBB; W6 B: n. L+ A+ r3 X) A0 J* g
2_____5C1F
3_____4D75! P9 L* a2 i0 N: }& T* d8 N
4_____26CC0 `! f! i. Y0 S  o4 V
5_____4F88  f# l& Q6 F* ~7 L3 F2 {  V6 h
6_____3F4E3 S7 ^* b# j3 d2 X( q' w
7_____0A9D0 E7 ]& q1 b! u' D' {. W1 |: e
8_____1A1C
9_____6D20
0_____10890 f2 E- n1 z, z2 V) V. Y9 z' {
a_____0F3E
b_____3159
c_____3517
d_____419C, |1 Q7 \, E' U) {4 k
e_____615C
f_____556F
g_____2B7F
h_____0F9C% \% H( `: v# t0 Z8 W  o
i_____00FA
j_____5A50
k_____28502 P! @+ q) ~: N3 k
l_____3E7B
m_____71C5& K& s) L0 m0 B8 I2 [
n_____1FC8
o_____74C1  m* ?2 \; s/ |7 R- ^
p_____5FB86 m7 Q" m- B3 F& d( k
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010! r) t  O1 x0 H) S
v_____0B427 ?- u3 `; _7 ^' G3 g1 @- h3 W
w_____1C7A1 ]" k9 p. w! A8 y
x_____16F8
y_____2EE7
z_____5CF3& g  V( E/ G# ^% L' Q
!_____62338 l2 ^6 I3 ^. ~2 Y% F
@_____3A454 f' \/ |1 E; u! w5 T
#_____2291& V4 w9 h% ]4 s% n- z, x
$_____5D5C
%_____09B9
^_____43EA) X. i! p1 F/ R8 o* |% y: ^
&_____62B9
*_____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 分享给朋友]