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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm/ m# ]9 r& b; Z9 v$ H# c: @+ p) x
原始出处：http://www.3ast.com.cm
8 i* O' Y5 ?% k) s1 o9 a9 U
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================( R- T' y" j; o% j+ }
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法1 A4 y4 k( }/ U% v- w  W- N
以下是RSA算法文件
/ h  U$ w; L. M& l! ~
文件名RSA.ASP
===============================================
<%
Class clsRSA 0 k8 i# [0 _" ?
Public PrivateKey
Public PublicKey
Public Modulus 8 S! }# E  k1 [4 e5 C0 X
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod / K# o, Q3 P0 I1 e/ P- O. s) u
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 & C+ }  b3 z8 O3 r6 T
For lLngIndex = 1 To pLngKey / 2 . i& Q0 D0 \" e) I) ]4 V7 m
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 q) n& I& o5 m) g8 L- u  Q
' Mod may error on key generation " Q% q8 Z! d2 y
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function . e- {! t' b# X1 n$ A' X
Next 6 Z4 S- r1 Q3 c$ u  y- ~) g
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ; D' U/ j. L! M+ i
On Error Resume Next ; C: X4 a; R, y  J2 w
' Mod may error on key generation ; Q& b& l- c5 S1 U& a: X
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 {" k: W' W" J; M1 D% c5 w
If Err Then Exit Function
Next + }( o1 q$ _0 G9 e) p" [
End If
Crypt = lLngResult - a0 p3 `' n) L' ]: u
End Function
6 J$ w5 v+ f8 k6 w6 e, g
Public Function Encode(ByVal pStrMessage) ' h# D: d2 S& J. v
Dim lLngIndex   K* [; \0 L: w
Dim lLngMaxIndex % b1 K! p7 I" m% D$ }5 v
Dim lBytAscii % E5 u: K' E+ S5 B" w
Dim lLngEncrypted 7 H- J9 a9 }, U: @3 [: @( ^, a) O" y6 C
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function " c0 y6 X% z  Y" e* i! x- W9 j7 s
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 2 j! J& g, q0 y( ^
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ) @* {$ D7 D6 P( j4 L2 m: |
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) / l4 {' v" m, c* x/ K
For lLngIndex = 1 To lLngMaxIndex Step 4   r$ B4 i& W% @# D9 C* H- H( U9 U
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) - \7 |  \/ n  ]4 C
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ' k8 l# `: ^. i& w3 Y
End Function & T& y0 x5 n1 E- L" v$ X
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 6 Z! H% Q* a& ^
function Encryptstr(Message) * Q: \3 v" W. t8 Y
Dim LngKeyE 5 i* }, \$ Z  U4 }  F6 `
Dim LngKeyD / k  T' h' z& B8 x- _7 `, }
Dim LngKeyN 9 c4 \2 s2 N" i. A
Dim StrMessage ' w8 k2 i+ Z- G: |
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" : p# w4 {/ X' X5 K0 V: e
LngKeyN = "29893" ! }( p' x+ U, ]& Q; c. z+ U
StrMessage = Message " R% v0 ^- h; w
Set ObjRSA = New clsRSA - }% z/ p- Z  r( C
ObjRSA.PublicKey = LngKeyE & v; ^' x2 p7 _) ?& y. S
ObjRSA.Modulus = LngKeyN + X4 N) v' @4 k
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function9 n, ]( g" }7 \! U+ c0 C
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message   o7 T0 ?1 Y' Z
Set ObjRSA = New clsRSA : B% |% G6 S2 m% d
ObjRSA.PrivateKey =LngKeyD ( y; N# A1 b! g
ObjRSA.Modulus=LngKeyN * ~" Y8 S1 t/ G5 H( G
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing & M* Z9 k; d, w' a; P) ]
end function - a+ w( F5 D/ X
%>/ Z( r/ _$ `- S! w$ S& _/ e
===============================================
# u0 i& i) s  y9 v
还有一个用于测试这段代码的test.asp6 o+ J3 u" S" w7 G
有兴趣的自己搭建个IIS测试下- e  I4 a" F  O

<%5 _  F1 ]! s+ U' L$ W- Q3 c2 m) }/ H3 R
function Encryptstr(Message) 8 M7 `$ I% M) g. t( ]; O( N: j/ `
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   {- y. ~& H/ }% j% |. e
LngKeyE = "32823" 9 r% N$ o) W# D4 A
LngKeyD = "20643" & h1 p; l( M' W
LngKeyN = "29893" ! R' `- I; f$ L' M+ u' L
StrMessage = Message 0 {- @1 ]+ c  a9 M- F+ K1 [2 z
Set ObjRSA = New clsRSA $ L$ y* g0 |* Z3 Q6 C. m7 W- y
ObjRSA.PublicKey = LngKeyE / \6 x9 Q: I0 ^% f7 c
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 4 x0 W- N0 q/ V* O9 x0 O0 u2 G
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD - {  G* q; l% Y/ x! |5 V
Dim LngKeyN
Dim StrMessage 5 m. W* W  m) L
Dim ObjRSA 3 }: C4 [$ ^% Q/ `2 y
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ) {* K7 Q; D/ o( a5 w* x) F" t+ i7 y# d
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 3 B' j7 ?- m: m# ~" p2 |% o# i; w. M
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function " d& ^2 a/ w* @# t: O! P; n# h
dim last,first
first="!@#$%^&*()" / H* l1 m& j8 H, Q" o. ]2 F+ }/ p2 k: Z
Response.Write "加密前为:"&first 6 d) |- |1 r2 L- w
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了# ~- A! ~* Z( b
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E: }0 j! x6 ~' `) o
7_____0A9D
8_____1A1C, i- p! N$ ~+ P
9_____6D20. t/ h% T- h6 d, L+ \0 I
0_____1089, j/ Y2 Q! [) W9 U6 [- o9 F9 @
a_____0F3E
b_____3159
c_____35177 v! Q% _* @1 o; X  _# s0 k
d_____419C$ k' c8 t7 h! f
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA8 J4 w8 c" T  K7 W, }
j_____5A50
k_____2850  @( C/ H8 Y( a/ e+ k
l_____3E7B8 w& @' [. r" \2 j/ n0 C% E
m_____71C53 J  I7 h% u1 r; D
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50# \6 j7 _. O" D/ U$ L# S
t_____36F8& M7 o7 B- |' v$ E. s
u_____7010, B& }6 p0 d* N
v_____0B422 r0 C$ v; Q$ Y( T9 E
w_____1C7A: s% q" H3 T" E& V
x_____16F8
y_____2EE7$ {4 V$ P. f+ \5 I1 v7 G9 ?
z_____5CF32 q* e" f4 q# o# s: j
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA& n) Q+ E3 }2 W" }2 r# B
&_____62B97 [. ?* z$ b. S
*_____63012 b& [/ I( b5 u
(_____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 分享给朋友]