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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
1 T( E) k/ `0 p8 |/ t- B$ u. b# G' p
看不懂的直接绕过# x" t( Q+ L) ~9 H8 t  |/ m
加密前为:hwy1234563 ~& c& m6 O) Z
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E' s7 V4 I/ P. q, X* H, p
/ _0 m$ P. g/ \8 V. ^5 j
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家" F: u8 |8 ~! d  v
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法/ n3 `  T6 F# H2 V! v
以下是RSA算法文件

文件名RSA.ASP
===============================================; X" A/ u, I- g+ `' p( X
<%   a% T' U8 |. g( t3 \. v; ^$ k# [
Class clsRSA 1 `% k$ F7 Q# G/ F/ D
Public PrivateKey
Public PublicKey 2 a5 `$ f$ A( N+ |" b
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex 7 b0 d& R: K6 m% w5 y+ m9 v- d& Z
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 # L: k% \" V2 {/ y
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function , Z* z. l$ `9 z3 @3 g6 {  m
Next
Else
lLngResult = pLngMessage " U: y: Z( g6 o: }/ R4 ]
For lLngIndex = 1 To pLngKey / 2 8 [. d5 z# Q& ]( U: a5 U: |
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 2 d" A% X( R+ f1 n, K( I
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next - Q7 ^; I+ N" S
End If ( T( h( e5 V' u2 `! \( `
Crypt = lLngResult
End Function
. G7 ?* d( E! [0 @) X
Public Function Encode(ByVal pStrMessage) * @9 H: Q) z" m7 m2 k+ ~
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii : o* K/ M8 j  r& r2 Y7 b' F
Dim lLngEncrypted & {% u+ T9 V. @( T; C! b, _
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function   q( T) m9 O& o# P& _7 u" r) q
For lLngIndex = 1 To lLngMaxIndex ( u7 ]" h1 ~* ~8 K- c$ m
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)   N  ?$ F# Y) p9 {6 ~1 e
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 1 s( M9 M" }2 E5 i  Z
Decode = ""
lLngMaxIndex = Len(pStrMessage) 4 ]; y1 ^$ B/ _$ D$ n7 N
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) + f0 V: b+ \0 l6 _2 ^6 `6 l
Next 4 K5 d. Z/ \, R9 `* n* j! w! r
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ) W# m/ Z9 e/ O! K6 j1 Z0 i: E
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 5 \- y5 K, q  a% }! k4 A
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) ) k. [6 }8 W5 k' a
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 9 g$ W7 S1 T$ Y. c
Dim StrMessage . i2 |( n3 o% p: v
Dim ObjRSA
LngKeyE = "32823" . ?6 r; h- j. T1 h4 t1 U; z- C( G
LngKeyD = "20643"
LngKeyN = "29893" 3 V# S/ Q6 e5 s0 j! p# Z$ h% m
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   F( a4 q3 M" k! H. i
ObjRSA.Modulus = LngKeyN 2 [0 L; R8 r; v! v! Z* K
Encryptstr = ObjRSA.Encode(StrMessage) 4 b9 W' M  m. L: l) [3 Y
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE ( L) W' a8 |. e+ ]: _5 t
Dim LngKeyD 1 @/ d$ n! b: r+ ]
Dim LngKeyN
Dim StrMessage
Dim ObjRSA # N* @4 I; Q3 D
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 2 F; \# s: x5 t5 m% b- w7 o5 W2 B
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 6 k9 f/ n7 q# H+ v, d6 g
Set ObjRSA = Nothing
end function , ]% s$ S7 {& I( ~* O
%>* s) F: G2 k( Z
===============================================; e( Q2 T8 }7 J4 u$ B) c3 N0 O
0 L+ C/ W3 c" F! g% C$ u+ i2 z
还有一个用于测试这段代码的test.asp; C! q- ?3 b0 L4 Z
有兴趣的自己搭建个IIS测试下) B$ E" k5 g# A. u$ f7 m( G/ ?: W. T
   J) _) f8 A. l$ [" c
<%: s. l( x  K' y8 k  E5 M! l5 E* D) a
function Encryptstr(Message) 2 k- {2 B5 |+ m0 S
Dim LngKeyE 9 |2 _+ z3 i. H3 M' E# B  p
Dim LngKeyD 1 H2 ~) o0 N: j# a6 Q, w
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" % j5 i: H' Y) K, y% c
LngKeyN = "29893" 7 v/ z- S$ `. K) ~
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 1 M, y  f* d* i9 ]! @/ a% }
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD % X- s7 N/ z2 U# x, C7 q4 M2 F
Dim LngKeyN + i* j: [3 K9 T# n7 E# S
Dim StrMessage
Dim ObjRSA " }1 v  {& G; y, g5 d- g$ H
LngKeyE = "32823"
LngKeyD = "20643" % v4 j" Z5 E& f+ n3 [# j
LngKeyN = "29893" / l. U+ \" ^) m" h0 s) M4 |/ w; g" J  j
StrMessage = Message
Set ObjRSA = New clsRSA 7 a* |  H, [) r  m3 z
ObjRSA.PrivateKey =LngKeyD 9 H8 F2 s8 O% e8 g
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" ; h9 p: C+ R0 u: Z) G
Response.Write "加密前为:"&first 8 `' b( W7 a$ t6 o
last=Encryptstr(first) 7 |" v/ P* j3 Y3 k% j  o
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了3 w4 [0 B& `8 M. |% ?
===================字符集================
1_____6EBB% l. e8 b( \8 U1 C! m
2_____5C1F
3_____4D753 c2 B  g3 O0 F) Y% p/ I
4_____26CC) i* L& ]" h  K/ z: D
5_____4F88
6_____3F4E
7_____0A9D9 q& z: v* @, i4 K- ~4 [6 K
8_____1A1C
9_____6D20
0_____1089
a_____0F3E! M/ ^, M' ~8 P, h: z( n5 X
b_____3159
c_____3517) h2 l; d, E  {5 k$ \. q0 \% K/ }
d_____419C
e_____615C
f_____556F
g_____2B7F$ _& y$ S: D3 Z/ B
h_____0F9C
i_____00FA5 V) K" u; F% n( n! m& K" {" w
j_____5A50
k_____28506 F4 W: s- ^7 l" |5 j
l_____3E7B8 e# Z' S6 F" j( x4 w+ l
m_____71C5# G5 R! r+ F4 g
n_____1FC86 x5 m6 R5 d6 u- l7 S  J- }5 a
o_____74C1  p- b  O; s: V9 y9 c' `' W' Z
p_____5FB83 J, I5 R4 b7 G7 Y2 Q4 U) m$ V3 f
q_____6085
r_____3AC4
s_____2F504 F' V- _  ?0 R1 U' a% e/ Z" h
t_____36F8
u_____7010! a2 P  c+ Z# s
v_____0B42
w_____1C7A' N2 f: N+ ]6 K: M7 g6 F% D+ c2 J
x_____16F8
y_____2EE7' ]* \  M6 z: J. ~0 ^8 Z
z_____5CF3
!_____6233
@_____3A45
#_____2291+ w  U+ x; Q+ ^; M$ K5 T
$_____5D5C
%_____09B9+ M2 _, C* }2 A0 O
^_____43EA) y- X6 r+ |6 Z$ L! T6 D- H
&_____62B9
*_____63012 }9 f, G/ L) W# v6 P* {; i( f/ [
(_____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 分享给朋友]