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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm$ y$ r' _+ g2 n2 ^2 T
原始出处：http://www.3ast.com.cm/ _* X* l) T: w

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
2 P0 R% V; T4 u' I' G
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件' K  |7 t8 J7 Z8 T5 b

文件名RSA.ASP, h8 M0 U& h5 c0 Z' L- N
===============================================
<% $ ~: _6 |, Z* K9 w0 k; v6 Z: f
Class clsRSA
Public PrivateKey 5 ~" X9 r2 n; _6 U0 p5 D
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next   ]/ x; L/ c1 V1 f! `- C
Dim lLngMod
Dim lLngResult 7 B) v( r) c' o7 Y  I: ^2 e$ h
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 7 D% }: r2 \2 [0 [1 y
lLngResult = 1 6 C& d: o9 J4 a& R% v
For lLngIndex = 1 To pLngKey / 2 ! |' T% X  t& W; }! ^5 w/ H, r
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 N% @/ F# [% z+ T- H' K$ m
' Mod may error on key generation 2 A# a+ |6 t! P" ?
lLngResult = (lLngMod * lLngResult) Mod Modulus 7 B; l7 Y1 K* l( @5 C$ E* i  Z+ Z
If Err Then Exit Function
Next
Else   v1 g& K+ p7 e- D; j! M+ N" _
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 4 t# u) D8 c* t
On Error Resume Next
' Mod may error on key generation 6 M9 M, b# S) x5 h4 p
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ! B: W' a  m# S
End If - a3 O# s1 y0 h( x' b( i
Crypt = lLngResult
End Function1 S" D% F# Y& @  R
: @- v! x1 q+ n
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex ' \7 `2 @  D) Y3 a
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex & Q' S9 \" U8 V: x9 L; T9 c
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) : u, g4 |/ }4 z! `* R
Next
End Function   X+ Q, F3 k9 c/ X0 d- y5 U0 Q; C
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 0 i4 @4 V8 p5 _9 _' p, ]
Dim lLngIndex   @; ?# w2 ^- M
Dim lLngMaxIndex
Dim lLngEncryptedData 4 y) ?! T. b/ z
Decode = ""
lLngMaxIndex = Len(pStrMessage) . S! `' h6 `/ u- ~/ B% {
For lLngIndex = 1 To lLngMaxIndex Step 4 8 @2 g0 q7 ^( l* s9 u0 _
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) % k$ F2 o% d. ]4 P5 [+ R& Z
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - Y7 j( F! L; N9 ]
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)   d; u3 ?6 P  K# w1 w
End Function ) U1 [9 T' J1 u6 L! e5 o
End Class - k* m  h, i: }- D
function Encryptstr(Message)   o- o4 B) S, d  D4 S+ t* m3 [
Dim LngKeyE
Dim LngKeyD 5 l* M  E2 M% a; a9 P
Dim LngKeyN 5 F* n; J+ L3 V0 M; s+ e
Dim StrMessage
Dim ObjRSA : E' ?3 L. W1 A, `% [, B- K! B
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ! T- @1 F0 u8 Z
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN : _: L  z% L. K: b, m  j/ i2 p
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing * F. z1 v' ^2 f7 w
end function( R! Q* u- c3 S9 |  t" f: |+ i: r
Function Decryptstr(Message)
Dim LngKeyE % d, s- a9 q2 U% }
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA # S1 x3 P/ @0 z1 Z8 [* ~
LngKeyE = "32823" . g* P& n; {2 A7 Q# w- ~3 p' o
LngKeyD = "20643" 6 D$ g3 ]6 o' _1 Z  w
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD + {$ Q0 c  I9 O% C( l: B1 V
ObjRSA.Modulus=LngKeyN 5 n- f, I, J+ _
decryptstr=ObjRSA.Decode(StrMessage) ; h6 T4 b) e' w
Set ObjRSA = Nothing . L, z- w8 v+ Q4 p" [7 ~
end function
%>
===============================================  I  z" P+ B% P' a! w
/ P# b6 n: q; p( V! i
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) 6 T, B1 P. m6 s6 [2 @
Dim LngKeyE   C  [5 @* B: g: [1 n( n+ i- `
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 }% K1 h  l9 c8 `
Dim ObjRSA & U- J1 B" j! d9 A/ _, |
LngKeyE = "32823" , a, m( i. u" ^" d. [" ?9 G
LngKeyD = "20643"
LngKeyN = "29893" 2 h, e' _' ]# a0 [0 i: ]* N
StrMessage = Message 1 t% e: L7 ?9 h+ z' b
Set ObjRSA = New clsRSA : t8 B! w2 |$ ~9 E
ObjRSA.PublicKey = LngKeyE 0 C+ L3 `* ]; r9 d1 N# u0 n
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ) w- t# Z) X& i$ F
Set ObjRSA = Nothing
end function
function decryptstr(Message) * ]5 |4 |% l/ h9 G- j9 `
Dim LngKeyE 1 p3 J( \2 m4 Y
Dim LngKeyD
Dim LngKeyN
Dim StrMessage $ t! a" i1 L" a% r$ _+ r' a/ ?
Dim ObjRSA   b. N9 \1 d8 x$ a" W' n  v2 h
LngKeyE = "32823" 0 c7 ?- m$ G' {5 ]7 U- C2 e
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ( X5 M5 w' B$ z% @6 w% B' `- N' P
Set ObjRSA = New clsRSA ! h0 Q  B( c, w, Y+ J
ObjRSA.PrivateKey =LngKeyD , Z( a" H3 f+ u
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function + F3 h7 ~7 t# G
dim last,first - S. d7 K3 l2 p+ E  E# \+ g: B
first="!@#$%^&*()"
Response.Write "加密前为:"&first / Y- H% c6 Z( H3 H; r$ {$ `
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 7 D3 `5 O. R" N8 l
%> ==============================================5 ~  \, Y. x0 L: U. v' m5 j) h
剩下的就是字符的对照表了6 r# q3 ^4 S' [* j
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75' b, u& F" J. _  U7 N' O' p
4_____26CC
5_____4F88: U) O! O, r1 k9 V
6_____3F4E8 Z. R" T3 Y- @0 R9 i
7_____0A9D, X+ @* W( z% D: ]4 h
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159$ f, x* q) E4 r- t" G
c_____3517% |" J/ F% G7 w" j* |
d_____419C* M- T& `1 }: ?9 c$ j
e_____615C0 @% Z6 c* w  j' D: J3 z& Z
f_____556F. B6 ]# j/ \% D  w
g_____2B7F% m. Z- ^' O5 ?/ J; ~# u
h_____0F9C1 F! B1 i" ~4 R7 S; O% ~' [
i_____00FA
j_____5A50
k_____28503 g5 n: S: F* f; @6 ^7 L0 b8 [! n7 S
l_____3E7B
m_____71C5  q* p; u: Q  ?2 F
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4* y' o7 h- X! Z# k* ^1 k% g8 G8 E9 y
s_____2F50
t_____36F8% ?2 O( l+ T" X- ^2 H7 u3 r
u_____7010
v_____0B42
w_____1C7A
x_____16F8' Z* o- B' D4 |+ R+ }/ c3 R& I
y_____2EE7
z_____5CF31 b2 N; t2 |* l; i$ s
!_____6233
@_____3A45, m0 Z! C; `. s! A
#_____22914 x+ R0 v8 P/ ]2 R/ H* R% u
$_____5D5C
%_____09B9! ^, k+ w* R/ c
^_____43EA1 c" k& o. O9 }6 W6 p, h
&_____62B9
*_____63015 c6 `/ L" b  N, R% g! T. o
(_____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 分享给朋友]