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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) |7 a8 j: b2 m
原始出处：http://www.3ast.com.cm
, a4 U/ R- H& }9 u, r. }/ n
看不懂的直接绕过; h& o( T! J$ w( H
加密前为:hwy123456& {. ]' L0 r+ Z6 ~/ N2 q
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
" j! D* x, a: h
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件) l& E! w; N' t" ]9 u8 L

文件名RSA.ASP+ F6 G. x' Z/ C. j* M$ v) u% u
===============================================1 O( |' O! T. O5 b9 G" z
<%
Class clsRSA
Public PrivateKey 3 j; ^/ l& {1 l3 }% X
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)   Z9 d9 `6 g$ G8 C
On Error Resume Next # e% N$ z4 y+ `7 M' Z
Dim lLngMod 1 R& h3 N3 n  g
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 4 j# p1 f% N7 k/ y
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 3 P7 o. m" C$ m- J4 E8 s
If Err Then Exit Function & M- E. l, v$ c2 H& @6 N6 J0 B
Next 3 r; A, E4 h. T  Q3 J& _2 d' }! f
Else 1 Y: P" c5 m7 e6 H/ i
lLngResult = pLngMessage 5 }' X# _; a. m
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation . A' @8 A; ~! S9 F# A0 H
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 j' L- H8 a8 ]  p# {% E# f
If Err Then Exit Function & }0 H1 P7 ]2 v4 N0 i
Next
End If 2 O% \: C% T+ c8 n1 ]4 I5 X# g
Crypt = lLngResult ( I# o5 @, M, x9 I1 E1 @/ P
End Function( \8 D; ~) [1 Q" T
! i8 e4 q, E% ^6 C' S
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ' D- k. W- P/ o' n" ]
Dim lLngMaxIndex . w5 R. {. k; v% `2 q" P4 L
Dim lBytAscii 9 B7 D: b& R+ N4 X
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 6 s3 {3 n* j* |2 N- Z: n
If lLngMaxIndex = 0 Then Exit Function : Y: [" }1 x. k3 W
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) & D2 h1 W/ \* n1 U  n5 n5 k8 |2 q
lLngEncrypted = Crypt(lBytAscii, PublicKey) 4 U% b  D. X2 f5 Q' n
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next % e: w1 H% M- ]
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 4 X6 a9 w9 I8 e* h" W/ K6 @( F
Dim lLngMaxIndex ' L( h6 Z$ s, z: z3 d" H
Dim lLngEncryptedData ; c3 E7 }' H4 w; y, j
Decode = ""
lLngMaxIndex = Len(pStrMessage) 9 {& y$ u9 [$ b/ j3 |+ I6 D5 v
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)   }- d1 B1 s) n3 w- A- @3 c
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # D5 Y& s) D+ Q
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   Q0 G" u: Z. Z% ^0 ]; X
End Function
Private Function HexToNumber(ByRef pStrHex) ) }( U$ P: w0 B3 _
HexToNumber = CLng("&h" & pStrHex)
End Function , n3 F6 I5 s2 A' _1 e" g3 q% J) ]
End Class ' g. D# P$ T7 I6 t
function Encryptstr(Message)
Dim LngKeyE . n' k, \/ A8 ]7 e1 a
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 6 P/ E+ `* i5 m3 A; S
LngKeyE = "32823"
LngKeyD = "20643" , h4 X$ B( G1 o4 g
LngKeyN = "29893"
StrMessage = Message 7 q! n8 @4 L/ U  ]) V+ k$ B" P
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 3 y% F0 N+ G/ D: X
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) . k. h$ p5 \& u8 Y/ r# n8 \8 i5 H
Dim LngKeyE % h9 g; G. s1 p% M
Dim LngKeyD - `4 \( e: t. O# t- [5 J
Dim LngKeyN # D& L" u5 H, `
Dim StrMessage , b) H+ O8 T; _- a
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 2 I7 K* s/ m. x6 O5 u8 X
LngKeyN = "29893" 9 @$ Q; Y1 Z- S
StrMessage = Message & O! i0 j* h; o. z
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN / K6 p5 ^9 H# ~% G* T
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================
* L+ [" B7 Z5 ]4 }
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下' Y/ D) V3 P* Y! H2 r3 r
 . `/ h3 ]" ~! `0 E8 o# L6 m
<%0 g& p* y& s2 E
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN % X+ d: x  x/ n0 l4 p; a6 }
Dim StrMessage   U" }2 |" h0 u" s+ t4 R9 W. E
Dim ObjRSA 7 w1 Y6 w/ _& d( |
LngKeyE = "32823"
LngKeyD = "20643" # q* j5 Q! P/ ~/ n2 Y
LngKeyN = "29893"
StrMessage = Message . B/ [5 _3 a  Y& {' g" @( t; z5 r
Set ObjRSA = New clsRSA 1 W- \, U, @& h% {
ObjRSA.PublicKey = LngKeyE $ S# U; S' k8 K. ^: t3 H
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 4 I) u; E! [7 s( f( a# P
end function ) |( |, s. k4 C/ n# v: f7 U
function decryptstr(Message) + K8 z! O( t; A4 ^) C
Dim LngKeyE 5 r  w3 ]! S9 U) S9 f! z: Q
Dim LngKeyD
Dim LngKeyN
Dim StrMessage " \0 J) q- a7 r  b3 w1 ]0 N
Dim ObjRSA
LngKeyE = "32823" , j6 y  }" C1 Q1 f1 ?8 L# K  I
LngKeyD = "20643" % M0 Y6 Y# D1 R2 v" d3 X( p8 u/ Q
LngKeyN = "29893"
StrMessage = Message 8 I! m$ {0 T; }" }, u' \
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN & N( R! N+ }* _% A
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" # F+ R0 o; _$ k8 o+ r
Response.Write "加密前为:"&first & ~4 R0 v/ D' G+ n) A% C% ~- W
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================/ N3 e+ l4 s* K4 z& \6 [7 [  T
剩下的就是字符的对照表了4 _4 t! T) S# J8 \
===================字符集================7 e4 p6 H3 Y) ], C" S" c
1_____6EBB
2_____5C1F( N& J% q' [2 D2 u1 G1 [* q
3_____4D75
4_____26CC# }' f2 p0 X3 R1 _+ n
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20$ {0 `0 N. p8 ?8 g$ W7 G- X( L( J
0_____1089
a_____0F3E( [! [; k+ J+ y. R$ U4 o
b_____3159
c_____35172 `5 X1 E0 L0 W
d_____419C, k0 ?- |9 T. a6 ^
e_____615C
f_____556F
g_____2B7F5 b$ c+ r! r. T, R7 A
h_____0F9C8 {* E( }. J8 X$ m
i_____00FA! V  ^" a& p# R* G& E, Z5 }
j_____5A50' D$ V/ |+ h  e- E* v! J- u. d- c
k_____2850/ g: G& P6 [8 m: C: k
l_____3E7B9 ~' c  ]- }: p# \( T1 B' Z
m_____71C5
n_____1FC8
o_____74C1/ x# f0 I% O" `
p_____5FB8
q_____60853 B. ^* _4 e1 Z9 R" P! U
r_____3AC4- k6 x# o1 F" d
s_____2F50# Z- C2 W! P9 i* P+ @
t_____36F8( H% X- d. I0 S1 }# M: P/ \
u_____7010" U. D% P4 b) ?5 Q8 G; g
v_____0B429 `3 O# D$ h! w: O
w_____1C7A: y6 ?) p/ H$ {  F+ S  l
x_____16F87 A: c' k  u" R, A5 P
y_____2EE7
z_____5CF3
!_____6233
@_____3A45, Q* C" T& V2 t$ O# H- i
#_____22916 }8 M8 Z1 s0 ]
$_____5D5C* ^3 n0 H! @  ^; U% n( M& k
%_____09B9
^_____43EA
&_____62B9* r! |, ^% t* J" B/ Y
*_____6301
(_____4659% h+ ~* D* J$ M& o6 _
)_____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 分享给朋友]