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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm9 C3 K& f$ |3 \' K2 G4 V6 n

看不懂的直接绕过* ^4 j% w( n. t+ @* R. D
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) O$ S9 `" C' g3 I

============================================2 s  g" n$ i- F3 A
上面是当时自己校内的心情。现在已经解破出来了，分享给大家/ V$ M+ q! J& ?) x, F- c
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
& E7 q5 _4 @5 O  X& J( ]& w5 e9 n/ H
文件名RSA.ASP% {7 ~* l/ N5 {( Y
===============================================
<% 4 n" L: y+ M) }: B- O; j
Class clsRSA " R3 r( _9 Z. P9 L) d
Public PrivateKey - r  T1 f) L5 J( G9 f5 Y; T# |
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod 3 g( A- b5 t1 h4 E
Dim lLngResult % r0 e- {4 b' I4 s  Y
Dim lLngIndex , \0 Q& c/ a) `2 k: V, u$ w  d
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 . n- R8 ]+ j' o& B
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 N4 s( b6 {7 ?+ c
' Mod may error on key generation 8 s4 f0 n4 ?% I" V' e
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ) V; a2 v: }% y( K; d8 V/ `
Else ( y+ B/ v# {9 }0 B0 }3 ]4 P
lLngResult = pLngMessage + L; K6 p0 d8 s# y8 |: {0 ]
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 4 i, I4 o! F# N; `- {* Q
End If
Crypt = lLngResult
End Function, i0 O5 }: E) e$ Y; c( J& w' z
" i1 T) @! ~  Z9 ?" y6 E
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex ' h2 \9 I! Y) t
Dim lBytAscii
Dim lLngEncrypted + n4 m+ f8 m, A+ u& {1 `
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ) I9 b; Q( x: W- e
lLngEncrypted = Crypt(lBytAscii, PublicKey) ( i7 U  ~( C, t/ m9 q
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ! B  A+ ?! o0 E$ x
Public Function Decode(ByVal pStrMessage) . X' Z, {7 N+ C, V: F' c* e. \
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 0 i/ |9 V8 G7 i9 y
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) , _+ r1 Q0 b( g8 e: f9 L1 e
For lLngIndex = 1 To lLngMaxIndex Step 4 5 W0 \9 g' F& W/ x
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 9 Y7 Y2 }6 ]" i; _+ R4 c6 v9 z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 G3 P4 X( G! W% a! J4 i+ N
Decode = Decode & Chr(lBytAscii) ; B( l9 d+ u2 n" L. ?( U2 C7 Y
Next
End Function ! j) h% _# V( ]5 L
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) / N6 [# M* R  \  u2 L; C
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function * J8 o( ?' R) a; x7 W, U2 h) P
Private Function HexToNumber(ByRef pStrHex) * ?0 q2 }9 \3 N
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) 5 L, c0 f0 o4 X: Z
Dim LngKeyE ( d8 e: n; s: N; Y3 U
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 1 p7 p! B3 o% s2 @  O) O3 X. o/ r4 A
LngKeyE = "32823" 3 T. s, n3 \- v; H# \) H1 Q
LngKeyD = "20643"
LngKeyN = "29893" # O9 U: r$ h" O
StrMessage = Message 7 q* T$ l3 n# W' \& C% M
Set ObjRSA = New clsRSA $ Q  v1 K5 o/ T2 i5 d
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN % Q( j  w6 I) |9 V
Encryptstr = ObjRSA.Encode(StrMessage) + F+ g% @& F- Y9 m2 R$ P7 U. u
Set ObjRSA = Nothing / W; T1 l1 [/ N3 b# r% ~  {
end function
Function Decryptstr(Message)
Dim LngKeyE " w4 U: }* `: E* e/ |0 p$ a, O$ j
Dim LngKeyD
Dim LngKeyN
Dim StrMessage / u) {- |' N& I( `& D
Dim ObjRSA
LngKeyE = "32823" 2 i8 I5 F/ z  @& K  n
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message , o$ |- o7 _2 g# d' f# _3 N
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) $ U( p" k- k8 s& g* ~/ ?3 w& C
Set ObjRSA = Nothing
end function : R8 l' g* G/ d( ?0 O2 {, O
%>
===============================================9 v" B: v' N2 r0 C$ Y

还有一个用于测试这段代码的test.asp' n. w* Y2 \' m
有兴趣的自己搭建个IIS测试下
 - d5 V1 D' |2 E, U' W6 J
<%. w- n& ?) x1 z# z5 t) n
function Encryptstr(Message) 7 \& D* Q6 n; ]0 [( N
Dim LngKeyE 7 {( v& f: d3 c
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 0 ?" ~/ C0 X  e
LngKeyD = "20643"
LngKeyN = "29893" + Y  R4 \7 }- m# H* h& S8 a
StrMessage = Message - ]: h  L( C6 k; x
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 9 u" i2 \2 N7 [
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) , }4 Y8 H  M- b
Set ObjRSA = Nothing " ^" D( `) b3 b, W$ Z8 A$ ^5 y$ @* b. H$ G
end function 5 a% z/ Z( o" P7 M5 U
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 6 k, E+ C, t# C6 Q; R& O
Dim LngKeyN # _/ c# r2 d% M: d4 v/ S: j( w
Dim StrMessage
Dim ObjRSA 4 P5 [0 ^5 [4 A  O4 P! j# u
LngKeyE = "32823" 8 z7 C4 }0 {- [8 s' |
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message + \- R% @/ D& [* U. _& @
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD . ~9 P! C6 E! V# u- P. L; x
ObjRSA.Modulus=LngKeyN ) n( t9 h2 {1 f
decryptstr=ObjRSA.Decode(StrMessage) + J7 r( [# S# F5 D
Set ObjRSA = Nothing . m6 U0 Q# h! K% L) h! Y
end function
dim last,first ) F' x' _. |0 ?5 |' ?
first="!@#$%^&*()" ) Y/ n6 o. V8 t; D4 i4 W* M* O# G) r' ]
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last : t0 G* W" W& N! }; X
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================5 `1 C! l3 {: Y
1_____6EBB0 t* ]4 F3 d5 R0 d5 ]$ R8 ]9 G; v4 |
2_____5C1F
3_____4D75
4_____26CC" `8 K& c0 g0 M* `7 E) Q. T
5_____4F88
6_____3F4E! O8 N/ c; c' V/ [8 w4 w
7_____0A9D( f2 W" W% s1 u% Q" X
8_____1A1C
9_____6D206 ?9 j, Y9 j3 b* [% b# G2 D( h
0_____1089% ~. a, w4 t; G
a_____0F3E$ X4 c- ^& E! k0 L9 p0 k2 {
b_____3159
c_____3517
d_____419C* v/ a/ a9 u& Y; t# k* k; J8 s
e_____615C* E0 e0 i6 a1 j0 C% |
f_____556F- Z! t/ }3 I6 f, H7 w' G! f2 t
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8* {' |; b" D( x7 m+ o* R" K
q_____6085
r_____3AC4' ]. X. `8 j( p4 i
s_____2F500 Q) K' ~* j1 S. [  }! V
t_____36F8/ N1 v" X# l, E7 a: G6 |) o
u_____7010
v_____0B42
w_____1C7A2 k/ |; o: w- E5 K1 w+ N
x_____16F8
y_____2EE7
z_____5CF3# k$ P7 i$ U' E4 o3 S+ G
!_____6233$ I  R2 s5 P+ X3 o4 G6 J
@_____3A45
#_____2291
$_____5D5C$ _7 u  \$ y! S. E* |
%_____09B98 ^1 ]" e* Y. n2 |
^_____43EA4 C9 ^, N( D7 o( ~
&_____62B9
*_____6301
(_____4659% K, G& g2 J  M/ ^+ o
)_____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 分享给朋友]