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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm. V' p: ?/ Z1 p* g5 ]/ u8 u
原始出处：http://www.3ast.com.cm0 I$ ^$ x. ^1 J) i

看不懂的直接绕过" _$ X! ]2 M/ E1 J: l
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
, q1 l6 e) i7 p3 _# H# u4 _8 t
============================================: r/ }4 n! z% G' ?% S/ K6 {( ]1 F6 \
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法8 {' U* f/ G0 b# a& z
以下是RSA算法文件
6 L% d' X$ F( _# Y) y1 v
文件名RSA.ASP
===============================================2 ~& s4 d' r& x8 |
<%
Class clsRSA
Public PrivateKey ( h: l) u2 i6 R, g, _
Public PublicKey % V/ z0 \/ E, ]3 o- M1 h
Public Modulus " s3 N; |! k% d2 U: L9 k
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 0 s- n  J1 D' u- b' Q' r9 ^
Dim lLngMod
Dim lLngResult & ?" j2 K  L3 n6 p" |) I* E/ o
Dim lLngIndex " {; t  @& H3 X$ A/ N
If pLngKey Mod 2 = 0 Then . a; p2 t% ~1 I. N
lLngResult = 1 8 U, Z4 ~& X0 F5 y( V; n3 R. C
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus - b+ C  s: m& h) }3 {5 f% I. z
' Mod may error on key generation " a% _7 m2 x/ m- s
lLngResult = (lLngMod * lLngResult) Mod Modulus + ]: q+ k0 u$ `9 g; V
If Err Then Exit Function
Next 8 `2 B/ D& l) j# d5 P* U6 m
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation   E7 ~" S, ?% ?: q9 t$ S' M2 i
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 r$ {+ k7 y( M
If Err Then Exit Function
Next ' _& k8 R( H( F& q
End If
Crypt = lLngResult
End Function
  X2 b2 \  W# ?$ Z% }6 Z$ j
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex $ Y- H9 K- Q8 F" E: ^  Y8 {
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 6 Z/ G2 ], I0 I, o: S  R, T
If lLngMaxIndex = 0 Then Exit Function : D) T$ ~) k# a; O
For lLngIndex = 1 To lLngMaxIndex ( x4 P- l/ K2 M8 `& [( |
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) ) W4 d6 K" O. ]: {# o% j8 |4 @
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 y1 ]9 R5 b4 d8 D7 W, W. d' ]7 g
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" ' K& `1 B4 M: t4 D
lLngMaxIndex = Len(pStrMessage) + D- M7 Z) s& W7 d' h
For lLngIndex = 1 To lLngMaxIndex Step 4 ; E% m* f8 i: o0 o6 L; V2 B+ \/ B" {
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ' G; t. r9 V; ^6 |* z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) & p1 `: p3 B3 ^; h
Decode = Decode & Chr(lBytAscii) ! m  ]- K) y. G0 w. }
Next 7 G1 O% t' k) G4 b
End Function * k. D+ C9 ~0 u' f( a4 q
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 5 L9 R" I% N* B7 r
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) ( c9 b0 H4 C9 r. A
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage % T# A" a( {7 @0 K
Dim ObjRSA
LngKeyE = "32823" / {( @% x( i7 Q9 V0 a! p6 m- U
LngKeyD = "20643"
LngKeyN = "29893" + q8 ^2 y1 M% ], N2 C
StrMessage = Message % G4 r$ Q2 r9 Y, I
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ! H6 X& Y- x8 p* @% b8 u, ^3 }
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ; a. e, N. t+ {% l$ \/ U* P6 m
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 7 p  A* k$ J; D+ `. U% F
Dim LngKeyN
Dim StrMessage 3 O/ {2 j6 `& ^! o' j! L- M
Dim ObjRSA , Y5 g' c" q3 F6 J; }  W
LngKeyE = "32823" . C0 U+ x9 T- k1 C: i
LngKeyD = "20643"
LngKeyN = "29893" ) F8 b# T" L8 p' W& Y0 U7 }
StrMessage = Message * L/ R1 A- p8 g; |  I# w6 S! o
Set ObjRSA = New clsRSA . {. S" F) q  c9 Z! l9 W1 y7 a
ObjRSA.PrivateKey =LngKeyD & b- Y" A5 p9 u( S$ P' g
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . M0 Y3 q  D9 E1 B
Set ObjRSA = Nothing 9 B: u7 z" q9 E$ h; a- V
end function 6 @" _# Q: M8 {7 z" A1 d% ]
%>3 S4 w* ~3 c7 c; M
===============================================

还有一个用于测试这段代码的test.asp% Y/ S; c: t, W9 s
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE + z% f& b* H# O& B4 h
Dim LngKeyD
Dim LngKeyN 2 }; R8 o4 }$ [' m
Dim StrMessage 2 Z& _+ L& V* H8 [9 x$ i, g/ u' w
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 2 v& y9 R: I; P- E' Q
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) : @: @. W( v6 A" ?  p% c/ \
Set ObjRSA = Nothing
end function
function decryptstr(Message) " Y- y, z9 u2 J0 u0 a3 G& Q
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" + l$ b8 W0 k* k
LngKeyD = "20643" % y  W  Y9 }" q. C6 G
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ' w, p6 ^# Y* G/ E: m7 Z
ObjRSA.PrivateKey =LngKeyD 4 z6 A$ F, u; \  \7 a
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) $ r3 W; ~6 Y3 S2 f. `
Set ObjRSA = Nothing
end function ' m$ g. ]) i5 N8 u# B. J& ]
dim last,first 8 m7 }5 h  M+ t% b2 q
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last ! z$ o; ]2 \3 o; E: k+ [
Response.Write "解密后为" &decryptstr(last)
%> ==============================================: d4 p1 C. v! e' Y6 Q/ u2 g# ?
剩下的就是字符的对照表了, b' T* }+ ?- a) f9 q5 ~$ j
===================字符集================) u6 @4 K+ ~2 q7 I! Z
1_____6EBB$ E; M- H7 y3 o. @9 p( u0 s3 {4 b
2_____5C1F# h3 K# z! Q1 [7 v
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20" H, Z8 W; R: p2 k
0_____1089
a_____0F3E) I1 z- q6 \+ L/ {% I3 w
b_____3159
c_____3517$ P6 t" u/ a/ a! T- \5 e) j$ ]2 ~# L
d_____419C: `7 Q6 @4 C* x" F  |) f$ L
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA3 F/ Q7 W/ y% o0 Z$ n* h9 H
j_____5A501 K; }$ t% m% m7 [
k_____2850
l_____3E7B
m_____71C5
n_____1FC85 U  h/ F; ?9 b2 h& W) G" c, D
o_____74C1( F4 L5 |$ C* `$ K
p_____5FB8
q_____60857 y5 p- C+ Q/ _/ K- b
r_____3AC4# J6 m) o9 t  \: ~
s_____2F50
t_____36F83 I+ b3 k6 e8 }7 L
u_____7010
v_____0B42
w_____1C7A
x_____16F8  E3 O$ V6 `4 y' H0 ^" [
y_____2EE7
z_____5CF3
!_____6233$ X- r9 K7 m8 B8 J$ i4 V
@_____3A45
#_____22915 N' [- l) w7 A  v2 V
$_____5D5C' W* }3 P1 O' J% j3 J0 Y
%_____09B98 a  c  x" J; R0 D4 j8 l( B1 ^- V  r
^_____43EA
&_____62B9* R' p1 o9 ^% v! ?  ~, m
*_____6301( _3 U( m# w/ G9 Z; ~8 ~( }* Q
(_____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 分享给朋友]