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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
+ R' Q  L8 M( n! M/ S" ~* W
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
3 Z4 k$ o7 J3 a' V1 F: a# E/ n
============================================# l/ [3 h  ?2 G3 `
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件2 j1 V6 @* Q1 V* m9 m2 O

文件名RSA.ASP( w' g* L5 ]" _4 I/ M9 S& a: ~
===============================================7 O" ]9 ~5 O$ ?) e* J1 i
<% + R. \/ J$ K/ s- I2 O' w: {5 G
Class clsRSA + [1 H5 G$ O0 G- y2 v
Public PrivateKey
Public PublicKey
Public Modulus * `/ i* G$ N% H" d1 u( n! |
Public Function Crypt(pLngMessage, pLngKey) . C( H# z0 m8 N7 V5 y& {) r
On Error Resume Next - y+ g+ O0 S" Z$ d" r
Dim lLngMod
Dim lLngResult
Dim lLngIndex * B" Q( k! J0 o# f3 E, i# o
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ) U4 t( Z5 f" H' N7 Y( u2 u
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 0 I) ]0 |! \8 t; ]; P
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus : [7 [! T) V, `0 Q% u
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus , e/ P6 Y# h- X$ J0 s2 O5 W. U
If Err Then Exit Function 3 D4 i! e0 M9 w: X6 V7 y
Next
End If
Crypt = lLngResult
End Function% I* w. s0 G% Y1 H

Public Function Encode(ByVal pStrMessage) % H; M2 d! S+ |6 a7 e+ v
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function / C, [) a- P- Y$ t7 S  g1 q4 V, \
For lLngIndex = 1 To lLngMaxIndex 5 _& D5 J* M* |1 H8 r
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 G) k+ L( c6 R3 S3 {  M! }$ V5 h
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 9 v% u+ f5 d6 n/ T
Next 9 l+ f) }- B% o1 d- O/ D
End Function / p2 ^4 `2 w8 {+ H2 n" ~! `+ Z
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex % h3 g& r5 \) {0 b# z
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) . a* t3 v: L3 R, F: m
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 8 L- u/ O0 c: e$ Q- K
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)   c3 b$ ^. z5 {! {
Next & K! s, L6 ?/ d& B
End Function . W$ r; b& L7 j1 @
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 \/ M3 E$ q; z- c
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) & }' K2 M. p* ?) B9 H
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function % Y% g9 x, f; r7 U( ~' @
End Class ; g' E! C2 a+ Q) @
function Encryptstr(Message) 3 T) ?, ]& I4 C
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 9 x1 C. b* Q' r  a$ ]; N7 {! s& Q
Dim ObjRSA : |) K# `% ^, }
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 0 w; L3 Y4 @0 D- C0 i
Set ObjRSA = New clsRSA & }6 q# X. r+ v5 O) l3 \
ObjRSA.PublicKey = LngKeyE 4 i+ q  i' U* q+ Y" L& f
ObjRSA.Modulus = LngKeyN ( o9 ~3 ?4 V- G8 n- F8 L8 c
Encryptstr = ObjRSA.Encode(StrMessage) 3 @$ m# v- w2 {% C7 s5 {: H
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 3 `, w$ y; s+ B
Dim LngKeyE
Dim LngKeyD ; M  j& `0 e  n9 e$ ]
Dim LngKeyN ' V; j, P9 ^$ W1 [* A" s! p: M" ]
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 1 g5 f9 J) e9 K1 E  I
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 7 l. i" T2 Q2 g% ~% F' ^3 s9 }% j
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 B% y2 D# y8 e$ o+ ]
Set ObjRSA = Nothing
end function * G& i) ]: _, \8 A1 d
%>
===============================================( h4 H: `+ `) H

还有一个用于测试这段代码的test.asp9 x9 t* E7 J  r" G$ r# y3 o7 ~
有兴趣的自己搭建个IIS测试下

<%5 e/ A1 H9 M3 H1 D! B9 z3 a5 b
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN & V6 ^! a: F# l9 z' G" g; n
Dim StrMessage
Dim ObjRSA   f+ O1 e9 I% @1 i5 [
LngKeyE = "32823" . a9 p1 ^* a1 k, b7 c2 H
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message # z& f. ~" N+ R: {$ W' a5 K
Set ObjRSA = New clsRSA ; V4 M6 `# X) R
ObjRSA.PublicKey = LngKeyE 1 L$ O8 s; D) P6 J2 g
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 4 L5 E5 d$ j8 j# p1 r
Set ObjRSA = Nothing
end function ) _9 M! V. x# j, e
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD * O- B8 U4 {7 R
Dim LngKeyN # m) _. B# o/ P9 I% s+ t
Dim StrMessage
Dim ObjRSA % V- [3 f- x( H+ X: Y
LngKeyE = "32823"
LngKeyD = "20643" 5 d  j  p$ V% b/ ^9 U
LngKeyN = "29893"
StrMessage = Message 6 f7 o6 g2 W- F% R+ }% U
Set ObjRSA = New clsRSA ; M" t7 Q8 X8 k
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN $ T' c3 s' q: l; D! f5 C* C
decryptstr=ObjRSA.Decode(StrMessage) * O" j0 u2 H2 [& H8 T
Set ObjRSA = Nothing 8 x' Q5 g8 u) `* n0 R* ^+ B( a
end function 5 C' t8 G1 @. a! @
dim last,first 7 D8 `. Y2 y/ r3 r
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) $ b- Z: P0 n# ~8 z5 O
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================+ M! i4 V8 D* }' ?% }# i
剩下的就是字符的对照表了: p- p' \; i" T. c4 a
===================字符集================4 k; x( y( w3 C9 I
1_____6EBB
2_____5C1F
3_____4D75- `; S4 c: ]8 E# Q: C# I
4_____26CC
5_____4F88$ G" Y4 `3 U9 Y4 [& ?7 j
6_____3F4E
7_____0A9D. O8 E3 ^; l7 r# E0 G' W
8_____1A1C1 W$ a6 ]8 G5 j, r; s+ u0 {
9_____6D20, F# v% E% P3 U
0_____10893 m/ D9 F0 W6 f- C$ B, i* H6 L
a_____0F3E
b_____31599 O9 d; o. C5 S0 f5 k/ g5 k3 m
c_____35172 Z' U2 K' v; U( X1 i: E0 \) h5 C* ^
d_____419C" w9 o+ c. {3 Z' e% z! C( ~) N6 e
e_____615C$ o3 v- A- ^3 J! \4 B6 e
f_____556F
g_____2B7F
h_____0F9C! t1 G2 ^& B7 [. b5 |4 z' s
i_____00FA0 d) {3 a5 m: _6 v0 A8 j8 |7 s+ y) m
j_____5A50
k_____2850$ y$ n% z( `0 g0 L: Z! z! D0 J
l_____3E7B
m_____71C5
n_____1FC8- G- B: l/ `: t, d8 v
o_____74C1
p_____5FB8! A. {  ~: t( K% K: m/ }
q_____6085
r_____3AC4) n# `3 y' S3 ?8 u+ P/ @) N
s_____2F50% |% ]. X; v1 z1 H2 h
t_____36F8
u_____7010: ]* Y' t! G* c' A; i: O! h1 [
v_____0B42; y4 I" L, B4 T" A4 Z
w_____1C7A
x_____16F89 Y2 n. |* B1 f: L% {( u
y_____2EE7" [& W# B1 R8 f4 X% I
z_____5CF32 }# J! d7 U  k6 Y5 C% @
!_____6233
@_____3A45
#_____2291
$_____5D5C; `  C3 }$ W4 v9 w, _( u
%_____09B9, e( O9 |* q( M, d/ z
^_____43EA, B! q: R* T4 t) t/ M: i
&_____62B9
*_____6301" `1 a. c# k4 W# ]+ C* f8 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 分享给朋友]