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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm8 f& O4 k' {) F4 F- h
" Y1 y' A+ q) E; v. J. L
看不懂的直接绕过+ n2 M1 F. z& S  o5 q
加密前为:hwy123456& u0 k6 U( |/ V  D9 @) o
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件8 B0 F1 r% u  b" `6 b9 C$ q

文件名RSA.ASP
===============================================9 {" t. o  E% J
<% ( h( o8 k8 G2 i( {8 G. @! D
Class clsRSA ! {( ^" u& D) k. b) m
Public PrivateKey 0 L. v+ Z1 D$ k
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod ) j7 e) U8 P9 i$ s2 t; k( \
Dim lLngResult + c+ R; U! M6 M4 l* h+ c3 K
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ; N: M+ s* Q! H& u8 Q3 _
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 : r# [+ X$ z9 R3 X" G
lLngMod = (pLngMessage ^ 2) Mod Modulus " i4 B. ~% \; S: R4 @
' Mod may error on key generation 9 o( \6 J4 p' v; t
lLngResult = (lLngMod * lLngResult) Mod Modulus ) O' ^) H* h  ^6 w- J8 I
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage & C, g" Y7 A) g, g7 @# A: k
For lLngIndex = 1 To pLngKey / 2   k5 R0 l' k) [5 F
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next & P1 ~" h9 }& l0 k+ [' g6 U. F
' Mod may error on key generation 5 s( d; N+ S6 @0 n: S; Z
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " j" t. i( I! i% D( r
Next . E) {7 f# A; r7 H# S
End If * E* w) ^/ j, {
Crypt = lLngResult
End Function7 H; q# e+ c5 V6 x, j; g+ x: s: \
. |! N$ H6 A0 s4 R
Public Function Encode(ByVal pStrMessage) 1 {' Q( |, h/ r* s" d# c9 R
Dim lLngIndex 8 y2 R# u* d! Q  D: {
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 0 {; A3 E$ g; V( A# Y# J( c
lLngMaxIndex = Len(pStrMessage) " u5 D# ^- E1 e, Z# Q1 Q. K3 m8 M
If lLngMaxIndex = 0 Then Exit Function 6 k) d& Q" I( ^& [1 F
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 ^: W0 `( Y) Q* A% v4 y
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 6 q/ J3 T/ S6 l: t; ~6 x& b' [0 ]
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 2 \  F/ N& @4 i
Dim lLngMaxIndex
Dim lLngEncryptedData . s/ E* [. Y0 ?8 _* k/ w; b1 a
Decode = "" 8 z- E" z2 R! p% V
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 5 {9 K- r; i7 p0 }: s
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) + [7 g& e, P" Y. R, J, o/ ^
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 6 }" u2 j) Z: `
Next & ^: |; I" d9 @! c( M8 k, E
End Function 2 j* t' V1 p" G6 q, P$ M
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) & _$ M6 V5 f9 U& b# y# H
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class . {' p$ d# g4 m( b$ r
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 7 u. r" H9 K0 M$ I
Dim StrMessage - h; H+ Z8 P2 C" w$ y; ^
Dim ObjRSA + }. S% f( h4 }+ i" n6 G3 G
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA $ E8 T3 ]4 v+ z3 G% `5 K3 |
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 4 g0 l. R3 A) a' W% i3 J9 W+ S7 v  F0 n
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing $ Y  G: A: Y6 g, v( b9 x( Q
end function
Function Decryptstr(Message)
Dim LngKeyE - \3 }& T$ U) X% V  b$ l5 R
Dim LngKeyD / ~) \+ S9 D- x& C
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 4 h1 g9 k7 ~- R/ |% u8 `" ~) u
LngKeyE = "32823" % b5 f! ~4 a9 U* V+ t0 G& [( A. [5 ?
LngKeyD = "20643" ! P  H3 i1 [( I! g! Y
LngKeyN = "29893"
StrMessage = Message 3 s- `  V- j3 r1 l
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD : L& W4 V( ?( L, [8 d
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) / ]8 R! o" i$ u: m
Set ObjRSA = Nothing
end function
%>
===============================================4 t6 b+ X8 c; t5 D, G! c
5 ?) j3 S+ C3 l4 F5 u. K! @
还有一个用于测试这段代码的test.asp+ h1 ~0 u9 \% }# ~+ h- V% f- l
有兴趣的自己搭建个IIS测试下" y" |6 m/ g1 i$ b# g; O( s1 U

<%8 [9 I9 f7 ~- i' ?- D# ^; R! \
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN . q3 T4 ?: l' d. {0 M( K5 o
Dim StrMessage
Dim ObjRSA 9 `- H7 a0 [1 {' H5 [% w
LngKeyE = "32823" 9 K! Y) Q: W4 B  k
LngKeyD = "20643" : J& P$ [7 h4 G4 D+ Y1 Z& G6 t
LngKeyN = "29893"
StrMessage = Message ; u7 R) u' i4 z6 _% @
Set ObjRSA = New clsRSA % f3 Q- _+ I7 i0 h# n- L, n
ObjRSA.PublicKey = LngKeyE   k0 A  f  K8 G. @4 c8 s9 X
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)   b# |9 }$ W0 D6 |/ k
Set ObjRSA = Nothing ' M/ R3 P. @; a3 ]. x
end function
function decryptstr(Message) " h% \( U2 {6 W2 c8 \, C$ n
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # W3 G" ]4 q  B; d1 \, ^8 |
LngKeyD = "20643" $ c- `5 E& W# U" B! l
LngKeyN = "29893"
StrMessage = Message 2 f% n8 M% j' k# Z8 ~
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , d0 e- z" I" J
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last ' [! w$ @- D  J
Response.Write "解密后为" &decryptstr(last) 0 L- J) r, U, |; Y* S- k
%> ==============================================3 x' O% P. c( X: k' G' t
剩下的就是字符的对照表了
===================字符集================6 i! ?8 i; G7 U- H; V3 C
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC; ?! }7 w* r  m4 C
5_____4F88$ o( N1 B  D# l$ K4 T" q
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E% V* E3 Z; T3 X1 }& s
b_____3159. w) m3 F# ?" G/ F0 U. A" F' }
c_____3517
d_____419C
e_____615C0 [* S4 O0 @7 T* O  T) p1 ?
f_____556F
g_____2B7F
h_____0F9C
i_____00FA0 i5 j' C, [0 j$ j! m
j_____5A50
k_____28503 k+ I& X; H* p- Q' N" r
l_____3E7B
m_____71C5. ?9 D& a. z5 T4 u3 s2 M
n_____1FC8
o_____74C1
p_____5FB8
q_____60855 P8 S4 C% R% Y; N& ]
r_____3AC4  v0 s% ^3 K! r$ v% G) j' s* _
s_____2F505 v" w) W8 Q: W6 P& h/ f$ J
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62338 C9 Q+ n5 w+ ]/ \2 z% Y
@_____3A45
#_____22914 u! A8 d3 _+ r5 R, f
$_____5D5C
%_____09B9+ |/ k4 {' E% v  f) A/ w% j( l
^_____43EA
&_____62B9- C, x- B* v/ J) d- |
*_____6301( W2 H! {2 y" f5 `
(_____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 分享给朋友]