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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm: P) f$ C: w& f# `' ^) _& Z! r
原始出处：http://www.3ast.com.cm5 y0 u( d+ K& j

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

============================================, D4 h+ x0 [- ]1 K, X- {6 w
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件4 `8 D* `4 @* a& y8 e4 \

文件名RSA.ASP
===============================================+ c7 _' O3 u+ m$ |' P( q
<% $ U# v! L4 N3 f; h# |1 l( s! p
Class clsRSA ( s. C2 Q' ]& R% J5 o+ f+ M
Public PrivateKey
Public PublicKey $ I* n' f. t1 R6 ^' ]( l
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult   G: U& l, q; w, z& n6 n# I: j
Dim lLngIndex ( d- K! g' Y. w' g# l7 }  I
If pLngKey Mod 2 = 0 Then : P! g$ Y5 p: ]( n
lLngResult = 1 8 E' T' D* p5 _  S! I0 p/ R. @, _7 _! ~+ j
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus   b1 m  A0 b" t- ?
If Err Then Exit Function : o3 O- X5 p+ O
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 4 \$ l" }, j+ ~1 G  ?  w. B
lLngMod = (pLngMessage ^ 2) Mod Modulus - n- t! v8 ?3 [! `1 l( n
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function + l+ J) W" X+ u/ }+ q! K+ S
Next ! |0 Z9 R+ s) r, Y: [
End If : Q% s# k/ T. c' `
Crypt = lLngResult 1 ^0 O4 z# \. ]2 X2 K4 p& B1 W
End Function* d' R& Z2 u& l: j& E

Public Function Encode(ByVal pStrMessage) 2 z7 f/ q: C1 R* L. o( R& D6 g
Dim lLngIndex 7 Y+ t- P) @) i. |9 G
Dim lLngMaxIndex
Dim lBytAscii - x( v" A1 h" o3 i4 p' `' B
Dim lLngEncrypted 6 q( y$ n5 U5 ?% W& D; c: s/ |
lLngMaxIndex = Len(pStrMessage) : n7 w) C. U& @' J+ k3 `
If lLngMaxIndex = 0 Then Exit Function : D0 E" x! u: ]) r5 e: P5 Q% X
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) " R7 u; I) A0 [9 }8 s
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ( [% T, I% V+ E1 ]
End Function
Public Function Decode(ByVal pStrMessage)   ^0 [! A4 ]& |( H$ _9 u, A4 e" `, Z
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex ; C' k) O0 n3 V) E/ W8 q6 s! @' R
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 2 B0 ^3 i3 E! t; m' r+ Q) [* `
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) + P- s# A/ k6 A
Next 4 m$ `) e( a# V% ?/ F
End Function 3 b  v* M( e: ^4 }3 n4 F: u
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) - o5 A% j" Z/ {. g: e
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) " C4 U6 d% m: h( n* _
End Function 7 M6 N$ f% R, P6 @* d
Private Function HexToNumber(ByRef pStrHex) 8 w& y% F  j* k: O5 n& o
HexToNumber = CLng("&h" & pStrHex) % M+ `% k1 W& v- S0 N. ^
End Function 3 y' ~4 N! D' q/ Y" w2 n
End Class 3 K! w% c! {: {$ ^5 l; {
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 1 O' m5 K  V0 j6 q" v, p
Dim StrMessage
Dim ObjRSA 8 ]5 l1 ]* j) p9 }! g- T, e7 R
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ; [0 y8 U5 a. i3 h. L6 U" u4 e
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 3 r, ?: j: k, N) l$ }! z
ObjRSA.Modulus = LngKeyN / f, T- q+ ]( ], f2 i$ L
Encryptstr = ObjRSA.Encode(StrMessage) 7 X+ L; x4 v! ~3 n: e- f: C
Set ObjRSA = Nothing ) E6 h0 n9 }! D4 o8 i4 y6 \# k0 T/ h
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD : e' w& B; t- z5 J5 h
Dim LngKeyN
Dim StrMessage
Dim ObjRSA & ^+ o) k- X6 W3 c* j- ]& O4 p. f
LngKeyE = "32823" ( a7 K$ U4 M+ e- B" [8 }
LngKeyD = "20643" ; S  b& o+ d$ P6 `) q
LngKeyN = "29893" $ t- {) O3 {% k
StrMessage = Message / \' U4 u+ M% C8 S
Set ObjRSA = New clsRSA ( k+ ]6 x" y( R/ z. o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 4 k- t- N9 H$ T" {5 u; N
%>: t! a  b) n3 a8 u$ e  F6 E# ]
===============================================
) [7 N. `% Y+ n! i0 ?, y7 l1 T: A
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%7 }/ b! J' @: ^& M$ Z: Y
function Encryptstr(Message) 4 W7 ~/ o( e( g+ O! P0 T- b
Dim LngKeyE   v/ Q; V9 J# h
Dim LngKeyD / B" C  q4 Q6 H9 D+ y5 \& n
Dim LngKeyN 6 P* d8 s" ]& A
Dim StrMessage " x0 B* X) f1 G: t$ P( T
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE : C3 v) Q9 Q4 U9 X: N
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function ! {/ C6 \6 f: q2 `! b5 H
function decryptstr(Message)
Dim LngKeyE # k5 u& }1 i9 y. p
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ' P1 @* e/ i5 \' \# ^( W2 e
LngKeyE = "32823" & \  i7 Q) n7 |( P5 ^' e3 i0 g% {
LngKeyD = "20643" " w& }/ b) X" K3 k% k: X  _' J2 K
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD * Q( }! m" v3 l, D2 a4 a- k% @
ObjRSA.Modulus=LngKeyN " w" ^' y$ S; h  R* f2 I
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing $ i* ^/ P, g3 Z7 q6 i: o& T( y# }
end function
dim last,first 5 y; Z( {$ r( @$ Q3 z
first="!@#$%^&*()" # E& i" y% M! a% N3 g( W
Response.Write "加密前为:"&first 0 x8 G& x8 u$ w. q# B
last=Encryptstr(first) ( ^' @! v5 I% D: p
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 4 U3 c- M  U- b0 w
%> ==============================================$ d7 {  K1 m2 v* m# P
剩下的就是字符的对照表了. o/ t8 l- \' U* [4 H, f9 `/ A
===================字符集================8 y8 Y2 r: P3 a! J* F
1_____6EBB
2_____5C1F/ h) K0 d# R4 P+ G& `( l- ?& M) X9 a8 c
3_____4D75
4_____26CC, i; {$ g; T+ y$ G$ k4 x9 q
5_____4F88
6_____3F4E
7_____0A9D+ S8 t+ M  M( A3 q
8_____1A1C! L  b/ k. _, b
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F2 ^) I( H4 X* A3 C/ B
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50' \; [/ ~7 Z1 |
k_____28505 I. k7 }0 z: e4 a$ v( d5 G3 B) o
l_____3E7B
m_____71C5
n_____1FC85 Z8 t& _9 k6 D. o
o_____74C1/ y( I# i* y3 Z+ h5 Q
p_____5FB8* x7 i' A( ^, X) {9 D
q_____6085
r_____3AC4
s_____2F50
t_____36F8- i, {5 S) I+ x( J' z# e# A; T
u_____70104 A2 A# g, L; C8 K2 G
v_____0B42
w_____1C7A- f- S" s, F/ }2 s$ H
x_____16F84 B! s" {) d% N# P
y_____2EE7
z_____5CF31 B1 A. \9 X' x1 |  x
!_____6233
@_____3A45& J/ L8 T! d! q) a7 `
#_____2291
$_____5D5C
%_____09B9( V& i2 Q5 c% ~0 }) k1 r  R
^_____43EA, T: P/ T% H' F
&_____62B9
*_____6301# s2 I: f6 w  I
(_____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 分享给朋友]