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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
" \- g0 {6 H4 u3 \8 C  |
看不懂的直接绕过
加密前为:hwy123456" i9 j5 [) @$ b5 u, l: v
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E+ {) ]( c! r; ]
1 S' f3 m# E* M' G) Z; h
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey + W* L+ c2 w, z7 T6 b
Public PublicKey 5 d1 }% L. [7 g1 j" a
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult 7 P: A7 d3 V  j" _
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus , Z$ a) i/ W$ C2 Y7 e/ Z
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 c4 \( S6 Z2 c& G# J8 U- Z
If Err Then Exit Function 7 f# i0 V# J: {! J
Next
Else
lLngResult = pLngMessage " _1 J6 p# k* Y, a* E! {3 W
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next ( x( \" o  |  p
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ! S% g! F8 L/ Q+ i8 X) h
If Err Then Exit Function
Next # P5 C2 k/ N8 ^7 A5 ^. e
End If % d8 o( e  f& A# k( j4 x# {8 O
Crypt = lLngResult   L) C  E9 P& A- t
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex / D6 `3 L8 H) G% q8 b
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted / `1 {! G7 I0 [4 n0 k! t
lLngMaxIndex = Len(pStrMessage) 5 l1 |7 A7 f6 X( @  i8 X
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex . ]7 y' v, u3 w
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # r& m8 C  w1 S4 N: C+ E' V9 N
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) * ]. u4 k, z+ r; Z6 c  q* B
Dim lBytAscii 3 j3 A* c: V" \% C4 N
Dim lLngIndex * @. X, w8 m. U+ O7 \( ^( d
Dim lLngMaxIndex 2 L* L) c7 k. n" w* D& _8 B
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 1 M6 R0 }$ s" N
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))   m- l7 B' c* j" W6 i
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 3 ?. A& x  W, w
Decode = Decode & Chr(lBytAscii)
Next 0 h- f; `# i- c. ^. C
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) / ~" _( v- I! j% C
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) " m0 T  ~) K- w+ I2 \
HexToNumber = CLng("&h" & pStrHex) ; p1 a9 Z9 Q% @
End Function . |0 F3 }+ y" r% O; f: [5 Q
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ( W! }" j. @: u4 J) Q+ j% p
Dim LngKeyN / k' M! f3 {# V0 z: l' e( l! |
Dim StrMessage . g, Y/ x1 m2 r) q; u; a1 H
Dim ObjRSA
LngKeyE = "32823" & `( Y) `" d. Q& O& P( @2 h
LngKeyD = "20643" + J0 E7 G0 |$ v
LngKeyN = "29893" 5 m0 y8 N% T3 r
StrMessage = Message " r+ H& r! W$ G9 c  @4 m
Set ObjRSA = New clsRSA 0 T) c! v  e( J! q
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 1 o; t% u1 M! h' o  K! i
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 4 i4 N& _% a3 @( I+ S( h
Dim LngKeyE ; U0 a& i8 i" v% t  G& p
Dim LngKeyD ) a; |8 g3 L. ?$ V
Dim LngKeyN
Dim StrMessage ' l7 ^1 W7 T" z' Q& A
Dim ObjRSA
LngKeyE = "32823" + l3 E* w( s6 e2 R  k+ F' [
LngKeyD = "20643" 2 N" \2 W' n7 v* l3 H- F0 I
LngKeyN = "29893"
StrMessage = Message 0 a5 {8 O+ q- {7 w& }: ^( h0 d) l
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN * ^. a0 J$ ?3 x& c
decryptstr=ObjRSA.Decode(StrMessage)   \' L* c2 k3 p  O: }3 i" B: Q
Set ObjRSA = Nothing
end function
%>
===============================================9 n  R+ ~3 I, U/ o9 n
- m+ ^; r' c2 n3 ]1 _6 t
还有一个用于测试这段代码的test.asp0 I3 u" m; G4 s- c0 }5 _
有兴趣的自己搭建个IIS测试下
 0 ~# `2 _; w6 F  v! d9 C
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 2 r4 f: _* o1 b' W4 N) Y9 g9 ^
Dim StrMessage
Dim ObjRSA 0 q$ U- N. d; }! |
LngKeyE = "32823" $ ?& B9 g4 J- }$ B1 J
LngKeyD = "20643" 9 E5 w. n# @6 B4 ?
LngKeyN = "29893"
StrMessage = Message # ?, b; k5 m- M! K
Set ObjRSA = New clsRSA : S% q* U" {9 B* S2 Z1 z( W
ObjRSA.PublicKey = LngKeyE 6 C1 b" y/ u  [1 v, P$ `
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) % _. c6 R, w; w% X" z
Dim LngKeyE
Dim LngKeyD $ f$ _0 K. i% u: ]6 Q
Dim LngKeyN
Dim StrMessage 2 P3 R- y; J' e) d% X% g! L, r( X8 [
Dim ObjRSA ; Q* {2 k5 a( |
LngKeyE = "32823" 8 c4 r& Q4 o+ B7 R
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   B4 Y7 l8 c; N8 |, s
ObjRSA.PrivateKey =LngKeyD % T& E) v2 f4 Z9 N# X: ]! m
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . @; W$ Q# W7 j% W6 e& i
Set ObjRSA = Nothing
end function
dim last,first % G# h3 _5 Z; i1 M0 X
first="!@#$%^&*()" ! p. |, K0 {+ h( v
Response.Write "加密前为:"&first & g# M% ~3 P2 I! @7 W' C  M) q' K
last=Encryptstr(first) % U# ]6 D3 E6 p; A
Response.Write "加密后为"&last ( {- B9 U! C; ^
Response.Write "解密后为" &decryptstr(last) # F4 L$ E& q$ ~- t0 H. {# L
%> ==============================================2 I2 |9 X/ `6 U7 y2 b
剩下的就是字符的对照表了
===================字符集================5 p7 f. N. X$ r% d' N
1_____6EBB
2_____5C1F
3_____4D75& X6 o, Y( J, T$ {& @
4_____26CC* {$ ^9 ?4 z5 W2 j$ ~$ Z6 R
5_____4F88
6_____3F4E) a( G& o+ ]8 {1 s
7_____0A9D
8_____1A1C( K1 F) c( V$ U, M  D! D: ^
9_____6D208 E) o) }( Z7 N
0_____1089- G7 S% V, g6 s$ F1 h: ^" ^6 Q
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C& t/ Y5 g/ R7 O* v6 N3 j# o
f_____556F
g_____2B7F! i# `% j$ F9 J6 k' c! T- J! r0 e
h_____0F9C
i_____00FA
j_____5A50  ~0 ]. q: ~' {) N% l4 f" |! {
k_____2850! @% p; k% \  z1 r
l_____3E7B
m_____71C5
n_____1FC8
o_____74C17 E2 b4 c' H& Z5 J
p_____5FB8
q_____60858 ^$ \7 P" P& \5 W- @3 B+ c" S# s/ r
r_____3AC4. }# V( M/ t/ J
s_____2F50! T* J$ E# I& p& Q
t_____36F82 W7 W7 v- a. c  m& i* C2 x. o
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF31 f% g6 H9 i2 |
!_____6233) D+ e' X% j7 V5 ]  v
@_____3A458 I+ X2 B" a6 a& u) A. n# T
#_____2291
$_____5D5C
%_____09B9
^_____43EA0 H% L; g) j* g8 D4 M+ i
&_____62B9
*_____63014 H: m6 A% B/ J+ W" E# e8 N
(_____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 分享给朋友]