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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) T& h6 N% ^7 s2 X0 Q  v
原始出处：http://www.3ast.com.cm2 D* |( K& x# {

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================. A7 {8 ~7 A2 q  f3 b, U3 {6 v9 r& l
上面是当时自己校内的心情。现在已经解破出来了，分享给大家) Z7 L! u4 y  ^  P. {
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件+ p- x" g6 \& ^4 a7 v7 u0 E8 ^, E) Y
# o8 l' f" J& W8 @2 A
文件名RSA.ASP: H2 c3 \7 }+ Q! D1 A
===============================================
<% 4 w0 V  \1 V# n
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ) ]" H0 ^* @; g
On Error Resume Next # I! M+ R3 h5 q  ^2 x8 A
Dim lLngMod 5 L2 A& {4 e; b) }3 b/ [/ r: S
Dim lLngResult   Y' f7 t8 J) B
Dim lLngIndex 1 N# k$ i2 `0 P1 H# n$ S/ `8 ^
If pLngKey Mod 2 = 0 Then
lLngResult = 1 2 {" a1 v/ j* b$ v2 T
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 ~1 H: j, L7 M1 |9 k) L/ A/ Y+ ~: P
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ' G8 A& g( N& f/ {. W7 S  _3 ?6 z
If Err Then Exit Function ) M8 q0 e3 v+ z  d; f+ f
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 Y/ O! S. ?% d& v0 l7 W
On Error Resume Next
' Mod may error on key generation ) Z4 u4 E# ?1 ]! ?, T3 A
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 a1 G4 o# y6 i( u' r# T9 x
If Err Then Exit Function / N; r" M8 B3 o# R  B
Next
End If 4 _$ @- F2 R/ h& D8 P
Crypt = lLngResult , |) X1 {) b+ b1 N+ j1 Y3 P
End Function
, ?  o9 s2 L- k) F9 _
Public Function Encode(ByVal pStrMessage) 0 a+ X5 \5 w  y' Y- ~0 k
Dim lLngIndex
Dim lLngMaxIndex / R# {+ j  b" N3 ^  N
Dim lBytAscii
Dim lLngEncrypted 9 ]! ?) l; A& h7 j) ~
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ) d4 d' z. M: p$ [+ G; ~! v
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) : u+ L, G  k( c- B* |) c  \
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex   ~5 t4 J/ H9 e8 d# t- \$ X8 e1 v
Dim lLngEncryptedData ; _9 u6 r, O( ?0 ?
Decode = "" . L  j# s/ ]/ j
lLngMaxIndex = Len(pStrMessage)   Q4 w% t' q$ }/ U. p2 r
For lLngIndex = 1 To lLngMaxIndex Step 4 & J  s0 j- v( H
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 4 _" ]4 x0 B( x7 K, A9 O3 ^
Next
End Function ( \" _! Y2 j1 B) K8 i" t$ T: e7 b. M0 O; _
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ; a! ~  l* t/ S$ ?
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 3 `- c' d; J, t, ]$ f
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 3 c( X) Y6 j0 ^$ G9 N8 h
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ; B5 k/ S6 u' g+ t  |! S
Set ObjRSA = New clsRSA & y+ q' t& z1 C
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ) B4 l7 M7 X1 U4 h0 Q
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 7 P, @6 R/ g+ C
Dim LngKeyE # o0 f. }+ w& T% i
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 6 w9 [5 V( `2 ^% D
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA + g6 H0 r5 X/ z5 B) f! B
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 1 e( l1 S1 t+ a! y# c/ r
Set ObjRSA = Nothing . L1 s6 A% ^" L7 _) d
end function % E. Y- s7 q6 ]. r
%>( r7 g6 z1 y; F* \4 W2 }1 l7 I9 x
===============================================' Z$ N# _) w& J: W$ Z' T# A

还有一个用于测试这段代码的test.asp& J( m4 r1 U% |2 w. Q0 D  ~
有兴趣的自己搭建个IIS测试下5 C# ^3 ~; \% D% e! ^$ Z" T
 $ t- S' }# b( I" b8 H
<%2 I: c# ?$ a& E' w* i5 J
function Encryptstr(Message)
Dim LngKeyE # Z' K+ [1 z  _
Dim LngKeyD : N: f+ a3 l( X  P
Dim LngKeyN * B$ U8 I, o9 g, g3 a, n
Dim StrMessage 1 u( y! P6 Z7 O* L7 ~
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 3 Q- ~. [' ]) D0 b5 S* j
LngKeyN = "29893"
StrMessage = Message 6 l6 A" X/ s9 x0 j9 B* w5 Z
Set ObjRSA = New clsRSA 4 k: J1 X) f4 ~* u& J
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN % P# D- z# q5 L2 t
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function $ ^$ u( e% k+ a8 M3 t+ Q
function decryptstr(Message)
Dim LngKeyE 3 ~' o/ S7 a3 `( i7 h' U
Dim LngKeyD % q1 t# _" }! J1 o. \( E& U
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 1 D4 w; I2 o1 V6 @$ l
LngKeyE = "32823"
LngKeyD = "20643" 6 B5 ~9 ]4 K& _! ?
LngKeyN = "29893" 8 m& ?# [, U0 M
StrMessage = Message 9 W4 s" i, z8 G1 M4 `
Set ObjRSA = New clsRSA * R( R6 z) s8 |4 T6 [- V
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ' {1 N( p& a% Q4 K0 y5 K- M
decryptstr=ObjRSA.Decode(StrMessage) . C4 @. o/ u$ j( e9 b3 \
Set ObjRSA = Nothing
end function
dim last,first 2 N. Z+ t( f$ ^
first="!@#$%^&*()"
Response.Write "加密前为:"&first " Z; V% G8 k) _7 p& m
last=Encryptstr(first)
Response.Write "加密后为"&last , @, B- {  s6 F& t3 {
Response.Write "解密后为" &decryptstr(last) ; X5 I. T6 ?! D' |7 B- L2 r
%> ==============================================
剩下的就是字符的对照表了& y/ M/ q! G1 G# o
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75% }; i6 E; Y8 Y/ h
4_____26CC  i- j1 V3 V- _" t$ Y6 c8 |
5_____4F88! f0 G, K4 C3 C' d  N( p
6_____3F4E
7_____0A9D* }/ P- T* H3 h, H% l% }) @$ T+ o1 N9 R/ o
8_____1A1C
9_____6D20+ S8 V; _! w5 {6 _* J4 F
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F! _9 }  a5 `/ p4 f# V" ]3 B' C5 J
g_____2B7F
h_____0F9C
i_____00FA3 Y/ B+ _8 M) Z8 n$ f
j_____5A50& P  [6 a9 D8 w* |, O, E  M& X
k_____28508 U! t; ]! D% W0 m& z4 |. O5 ~
l_____3E7B& y/ y- T+ `. d* Q2 a/ O3 ]3 S
m_____71C5# R" S3 \( ?9 Z2 z$ n
n_____1FC8
o_____74C1: f1 o/ h4 |( G  n& T9 C* u" `
p_____5FB8
q_____60854 J9 `, v7 \4 a0 v) O4 r3 n/ n
r_____3AC4
s_____2F508 b$ r- ]7 I, b" T
t_____36F8
u_____7010$ B6 x9 E3 G2 c
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3# ~1 \% T1 Q0 Y1 I  Q
!_____6233& g' W0 C( M, s/ T
@_____3A45
#_____2291
$_____5D5C9 ]6 c# V8 t1 L- u& @& t' V* v
%_____09B90 g, j' Y' R# G% J/ g, S( w$ g
^_____43EA
&_____62B9/ @( G" o% c5 @5 `3 x+ \
*_____6301
(_____4659% h- K6 _. [. g9 H5 t
)_____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 分享给朋友]