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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm8 Z3 G( t, ^# j3 z7 S( Z
原始出处：http://www.3ast.com.cm3 |+ x: E( N5 |

看不懂的直接绕过( Z+ S. O7 v# b2 z, s( B
加密前为:hwy123456; S* Y9 w5 t" d
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 z' H# C& G. d
+ x9 Q4 O! k5 i+ u* k* g
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================" V5 g5 V/ |! I! n
<% : P/ d  {2 I* w4 |5 L* Y, c8 S" ]( G
Class clsRSA   M% l$ Z" t8 e( C" e- ~% }- c
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next % O& E, T% H7 C8 q' o7 l& l  s
Dim lLngMod - n0 ]  [" r! p; L5 h4 s
Dim lLngResult . q$ o+ {  @& R* D; h
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ; L7 k" A9 o$ {) I. B5 r
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 1 q+ N: E7 \5 _( w# k- S6 r: H
Next 5 M; Q% U* i; }0 L8 {" S' {
Else / K* ^- ^- o5 l3 b2 [% o0 @
lLngResult = pLngMessage 1 j, l4 l; [# |
For lLngIndex = 1 To pLngKey / 2 ; l. g( F* |, J' W8 P& ]4 ?
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 0 c, n9 s1 j+ y# ]
' Mod may error on key generation 8 t. H/ d8 Y+ v3 z
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If 5 c- K$ \; u* S, u) z$ ~# v
Crypt = lLngResult   c" A3 L3 L4 Y9 I' M8 S
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ' x* ~4 `5 s- Y& A
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ' _8 M1 ?/ Q2 M0 h% f" @+ {
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # V( `7 q( Y$ V  h
lLngEncrypted = Crypt(lBytAscii, PublicKey) 6 [1 ?7 }% R5 O/ ~8 x. T% r
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 8 a+ v8 A% ~2 z( g7 e+ K
Dim lLngIndex : P* T& G2 K5 x% A# k2 E
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) # A! t! r. Z2 |" {, F6 Z7 p4 h: N
For lLngIndex = 1 To lLngMaxIndex Step 4 ) v" P! u7 s4 Z, C- {
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 9 x' e( ~- h$ z  d; d- |
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function % r7 y+ O+ L3 w
Private Function HexToNumber(ByRef pStrHex) * A, n" g& i) k! P
HexToNumber = CLng("&h" & pStrHex)
End Function 5 }% a+ B) b( l9 o' t
End Class 2 M0 @9 U* d, f+ b% \! z
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 9 }7 i& R0 f9 K% s1 [% Q) o9 I
Dim StrMessage , S- z3 c3 ~3 u( @$ r% m% [
Dim ObjRSA
LngKeyE = "32823"   ?) O/ Y- U" x
LngKeyD = "20643" . A% b9 m5 i8 A. Q
LngKeyN = "29893" ; h+ m: n4 X. G& q
StrMessage = Message . V. g" D' Z8 _0 G4 L0 L
Set ObjRSA = New clsRSA 5 @4 i  {5 [' }3 n: G. d0 P
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 9 i9 ~% d# }) G* g/ @$ Y0 h3 A4 F
Encryptstr = ObjRSA.Encode(StrMessage) 9 X- R0 \& Y8 M; G+ S  o  A( q
Set ObjRSA = Nothing % [( G: B2 D  u/ @( u8 L
end function5 e2 h! \6 A& c! P, I# P0 B
Function Decryptstr(Message) 9 ~. r7 Z% @4 K, b; v8 [5 v
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 9 x" G1 M: U$ M5 }% P7 D- C
LngKeyD = "20643" ; y& H: E4 N; b! a
LngKeyN = "29893" $ D: |0 D7 M$ @1 A  _1 J
StrMessage = Message ' V% n4 u+ X" h& y/ f
Set ObjRSA = New clsRSA - r1 S2 n: V9 {$ @5 R" {/ o# X
ObjRSA.PrivateKey =LngKeyD , T: J% C! Q8 ?& ]# h  ?
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . r- N9 B) Y7 z, Q* G" \
Set ObjRSA = Nothing 4 T3 s+ a) `" ?
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) 0 m1 |* N7 b- b7 Q
Dim LngKeyE 4 o. \8 a4 e1 J& D' A- M$ ^
Dim LngKeyD
Dim LngKeyN 2 w1 h. G# N1 }1 g
Dim StrMessage 2 {% O7 L6 w7 z8 ]. A
Dim ObjRSA ! v. M$ a. S: }
LngKeyE = "32823"
LngKeyD = "20643" ) L  C4 m4 F6 ^. K& y9 L; n
LngKeyN = "29893" 7 A% r6 M" p3 O6 s- I- Y" n- o
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   _- U. N" o$ F9 U
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)   P9 Q! T& x) `" N+ O0 ?) l
Dim LngKeyE
Dim LngKeyD 2 E3 y0 P. R, _, [/ d
Dim LngKeyN 7 g& t$ a# z- J6 C' v' C& ^
Dim StrMessage
Dim ObjRSA 0 ~0 u# n! ]5 v; B% D' |/ I3 L! ?: R
LngKeyE = "32823"
LngKeyD = "20643" + }) A+ |7 t& F' y0 B, C1 S
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN . ]8 x4 k" k0 |5 ~
decryptstr=ObjRSA.Decode(StrMessage) & O) Z- u3 w# W0 J
Set ObjRSA = Nothing
end function ) T! V; W# A( W# j5 x5 q
dim last,first - r4 q' o# y2 B
first="!@#$%^&*()" ; V% R- f* Z3 B  ]% p, |
Response.Write "加密前为:"&first
last=Encryptstr(first) 7 [, L8 m% U  C4 c: H
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================# h; U$ v' O0 j( H/ S/ U* X
剩下的就是字符的对照表了
===================字符集================- z) P5 o3 S: k- Y8 B! F  A
1_____6EBB
2_____5C1F- @/ `, ~# i/ {6 c
3_____4D755 C4 e  I2 u/ }0 l
4_____26CC$ C! D% u' E; M: U+ M' v5 C
5_____4F881 m. `6 A+ t' x
6_____3F4E* c$ {! i/ A* k% V. j: a
7_____0A9D
8_____1A1C
9_____6D20
0_____10892 h$ }  d9 _1 ~( j6 E- G
a_____0F3E2 q6 w5 S6 h9 T& h" P% e
b_____3159
c_____3517
d_____419C5 h( @4 {+ _% W; k& v/ n
e_____615C
f_____556F# t8 U3 @3 T8 d
g_____2B7F
h_____0F9C+ i; @( y0 M# d0 p3 {
i_____00FA( A' k' Y7 j9 ?5 |+ |3 j" U
j_____5A50
k_____2850! v& o( I' }7 A4 `
l_____3E7B! f$ |! j3 U" B6 U) x+ T" h* y
m_____71C5
n_____1FC85 ?' G. d$ [" f
o_____74C1
p_____5FB8# L% j4 u" Q$ [5 M7 E+ u3 E, B# B
q_____6085
r_____3AC4
s_____2F501 e9 x$ Y$ Y9 e  [+ \  J- Y
t_____36F8! z- R- M1 E" V5 Z; j7 c
u_____70106 X) G. ]  F( [) Y+ ~% B" B
v_____0B42* C( d) N. A  [
w_____1C7A( L) ~) c. T( W# F
x_____16F8' u; s1 r* Z7 z2 l7 y
y_____2EE7# |6 U6 A$ F; h, Q( R: |
z_____5CF37 i/ N* \9 C7 r" K
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____4659" P: k7 o5 i3 d; j) O
)_____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 分享给朋友]