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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 d. }# h# ~. u, Z* V% W
原始出处：http://www.3ast.com.cm
  E! @- ?( ?  ^$ z
看不懂的直接绕过
加密前为:hwy123456. j1 c' W& _* ]) u+ j
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E2 L9 D5 m' i' ^& F  |" i2 v8 i; M8 H6 r
+ L, F, i( s& }
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法( E- ]0 e" z4 f" t: }' }4 D2 N
以下是RSA算法文件) b. K9 T" c/ D# y9 _) t

文件名RSA.ASP
===============================================
<% * R7 `1 P, `6 {, F: }5 Y
Class clsRSA
Public PrivateKey " b. y) [+ u5 U8 s
Public PublicKey 5 p# W% F. |- p  c$ ~4 e
Public Modulus + V, ~& U$ G/ Z* N, ~5 [; F
Public Function Crypt(pLngMessage, pLngKey) 1 e/ P7 R" l% P) l
On Error Resume Next ; ^5 x  i) E- ]; E7 m
Dim lLngMod # O4 a4 u" j6 H1 M
Dim lLngResult ! [# A' @" H) o8 j  K* j4 m% |3 Q& V) U
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 9 x' X9 G) l# Q; {/ t7 ^+ p3 G4 S
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else & T2 Z" h+ q0 O+ F) u/ p$ T9 J1 z, `! \
lLngResult = pLngMessage . d6 G# v& S. g, d; B5 M- S
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus * F6 L) D, Q, V. u
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function
' ]  G) b! R  C
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex " H5 I, q( J! A: s
Dim lLngMaxIndex
Dim lBytAscii 7 A. k1 K* \# P& d9 \
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 8 I5 n7 K4 J+ w' i
lLngEncrypted = Crypt(lBytAscii, PublicKey) 6 y4 T+ e; q7 ?# _- _2 E, s
Encode = Encode & NumberToHex(lLngEncrypted, 4) : X8 R$ l8 f  t  r3 {
Next - k( N" `' L$ k9 S
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii . [3 h% h% h" S- _  r& Z( T
Dim lLngIndex ) S7 `1 q" f; {, G9 ]( D- H& [
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) " x* M+ Y8 O% x1 N! g( P
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' D3 j3 r$ q8 ~( W- K& S5 p& Q) A/ O
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 7 w0 }3 [4 N# u0 {
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 3 A/ U, i1 P1 F- W
Private Function HexToNumber(ByRef pStrHex) & C& Z* P8 ?9 G5 y0 G2 n
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) / }9 f- T/ G7 [/ v# T% V
Dim LngKeyE / y  R! _; @+ [" g! P. x
Dim LngKeyD
Dim LngKeyN " A  G' o/ Z# |$ R) G& Z" }" [2 j
Dim StrMessage
Dim ObjRSA 2 T0 y8 i4 x. b3 _
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ) a6 c; [0 N) d' d
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ( U* Y4 Q& g* V7 p7 ^
ObjRSA.Modulus = LngKeyN ; K4 r2 R# G/ n! {8 d
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 5 ?$ m5 D; P' c2 Y9 i0 A
end function' t8 j" Q! }- X2 C3 I
Function Decryptstr(Message) 4 Y4 U7 \! B: v9 B3 H+ {9 q
Dim LngKeyE
Dim LngKeyD # L7 u8 T0 S/ @& j* A/ \  n
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 6 l+ w2 l6 [0 T9 y, C8 W; T' `4 K
LngKeyN = "29893" ' f( v: J3 C$ ]0 O' W7 H
StrMessage = Message : j/ C+ z) X; I/ S! m
Set ObjRSA = New clsRSA 6 M! ]' b: G/ H* v8 ~0 a" v
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 8 [" {1 h+ q7 I
%>
===============================================: f1 m2 x$ k/ u% k& F

还有一个用于测试这段代码的test.asp( F6 M8 p* B' a$ U
有兴趣的自己搭建个IIS测试下
 3 M; E% @9 G, P
<%4 E0 P0 O, \% \0 K6 c# }
function Encryptstr(Message)
Dim LngKeyE " e5 x# w2 d6 _" K0 ?- C3 s, A
Dim LngKeyD ! |, M6 V0 R' p3 o& _
Dim LngKeyN 1 F. g. \# S# f1 q
Dim StrMessage
Dim ObjRSA 3 z1 u( b- o4 `. W3 I% d0 f
LngKeyE = "32823"
LngKeyD = "20643" 2 D5 y" G) R+ A- W& _) S- z
LngKeyN = "29893" : c9 K# \- A( V4 C: @
StrMessage = Message . d5 e2 Z! j# q/ g( p/ a! {
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 5 o# O- m8 R) {$ ^% W( A* z. h
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 7 I3 x' m1 A- `2 q" b! e
end function
function decryptstr(Message)
Dim LngKeyE / S# X4 j- e" i* U' R" ^: K- p' u
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ( l3 Z8 U4 i& y
LngKeyD = "20643"
LngKeyN = "29893" 2 B0 U( Z  {& @
StrMessage = Message
Set ObjRSA = New clsRSA 1 I4 r: R7 B: K5 @' b
ObjRSA.PrivateKey =LngKeyD 7 Y" z4 Z& i2 E) g/ }" B0 ^, v5 N7 S
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ! x: y& B8 |2 O, r: f- l  c% o! a
end function
dim last,first
first="!@#$%^&*()" 9 V' w" L3 D2 k; \
Response.Write "加密前为:"&first ! y- a" J% D, m, V# h5 R% P
last=Encryptstr(first)   G$ e2 O4 D6 J/ x& c
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了5 z" a& F- S. d- C3 _
===================字符集================; s& v9 Q# m% c) E2 d
1_____6EBB& R  Y# u' A- f) h
2_____5C1F8 M3 J. Z0 B% f( s" y9 I, X
3_____4D758 P  g, A) ~3 y, k
4_____26CC
5_____4F88$ \/ \: g7 [% I1 g- \
6_____3F4E
7_____0A9D
8_____1A1C; L7 _  S! `. q6 m$ W
9_____6D20
0_____10890 S7 H. v+ x# Y8 `3 K1 M1 V
a_____0F3E
b_____31598 |" C  @& w$ O; X) a
c_____3517' |8 N2 W: R8 W9 ?
d_____419C
e_____615C& d' H2 `2 t/ z
f_____556F; D7 p2 f5 {. t6 V* {* N* h. M# a
g_____2B7F
h_____0F9C% H: S/ _) \* j# T8 C
i_____00FA
j_____5A500 f- i1 X+ m7 Q& u' k
k_____2850
l_____3E7B9 ^+ I( d3 v! D7 C& N/ J
m_____71C51 @$ Y$ U, Q; u, W8 a+ ?
n_____1FC8
o_____74C19 v% b$ Y* E) |* \3 e
p_____5FB8
q_____6085
r_____3AC4" H1 @! ~+ g$ k( Y" T+ k7 ^2 y. T
s_____2F50
t_____36F8: E7 l3 R' D& Z" N; M
u_____7010
v_____0B42
w_____1C7A' J, u* }* J6 C) h7 a; n( V/ z
x_____16F8
y_____2EE7; e- x. K( m9 w8 E/ Q
z_____5CF3. p3 c9 w- [% ?. c3 U+ V5 g
!_____6233# U6 {5 z8 N* C/ \$ I% ?' ~
@_____3A45+ L2 I' o0 T4 S. D, `- r; n
#_____2291
$_____5D5C
%_____09B9
^_____43EA, d/ g& I( N% W2 F+ F  C' e
&_____62B9( F6 L7 Z3 ?4 X" _- N; ]
*_____6301
(_____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 分享给朋友]