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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm7 d8 W" i- v0 z9 a
原始出处：http://www.3ast.com.cm

看不懂的直接绕过7 B4 N4 {* Y' b7 x8 {+ B7 ?! r1 A
加密前为:hwy123456) m4 K0 R8 _4 o3 t( L, z
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E/ [) `) ]0 a3 m; o: \' A

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件) s( R7 v; y' B% R

文件名RSA.ASP
===============================================: W: P8 F9 t: f$ ]7 {2 y
<%
Class clsRSA
Public PrivateKey , n* C( j  a  [* `$ c( @; n
Public PublicKey 2 A+ R+ [3 I+ f* z% q) `
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 4 F+ H; r. Q8 M- b" W: [% M! h
On Error Resume Next
Dim lLngMod ) j0 ?" F  ~8 a; Z
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation % A. M7 N$ U( \$ f" |- O
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else 5 z+ D# D1 P; g. [& r- Q. p
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus $ Q+ \: E! f+ [- t/ q* S6 ~
If Err Then Exit Function ' Z( i" H6 _7 x8 W& f* ?
Next
End If
Crypt = lLngResult % f) L9 j) z4 q* ?8 ?
End Function! u" E; r% e  d0 f

Public Function Encode(ByVal pStrMessage) $ P6 k7 q+ X" L3 Q* s& z; v, c  N; _
Dim lLngIndex % L7 R" J1 B( h% f2 v# I
Dim lLngMaxIndex
Dim lBytAscii - s- G" Z; b' n) `) f/ ?+ u
Dim lLngEncrypted 6 v* [/ n0 C0 }- [% ?3 ]
lLngMaxIndex = Len(pStrMessage) " r. s+ b9 B" Y$ V+ `( e
If lLngMaxIndex = 0 Then Exit Function & w8 ?# M) ]: i) j' Z% i
For lLngIndex = 1 To lLngMaxIndex & {; J. T, n: |( a; T  h6 ?
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # W- h) R2 l. J. h) `) r
lLngEncrypted = Crypt(lBytAscii, PublicKey) 4 p+ y) K+ a$ Z2 O% L- _, e8 B
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 3 o8 K5 z, Y/ L: k! Q4 d
Dim lLngIndex
Dim lLngMaxIndex & t2 s3 x5 D* f) O
Dim lLngEncryptedData ' s2 z) X8 r% y( f
Decode = "" 6 S1 u0 p( m! u1 J, Y* a: _" W! }/ w
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 6 i* c$ L4 p1 v3 z* W$ A
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 1 z8 {) A: u# J# W/ k& N8 C9 d) V3 N) ^
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function 1 T, F) Z* r+ ?
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 1 B! s6 R0 p4 e. k7 s% M( x
HexToNumber = CLng("&h" & pStrHex) % H$ q/ d2 I- g3 q
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE 5 Q0 K  }4 j( e
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 s: J: ?1 h4 a; G
Dim ObjRSA
LngKeyE = "32823" 5 u4 o& s$ O1 B" B- l, b$ I8 ~
LngKeyD = "20643"
LngKeyN = "29893" " Z8 [$ @1 x& F" P' y3 F1 s
StrMessage = Message 3 K7 o2 @" B# Q5 @! s* W7 }  c
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 0 I! Y/ {; _* e$ E3 z' W+ M
Encryptstr = ObjRSA.Encode(StrMessage) 6 t+ x; H! o7 y8 o' B- K0 x+ s3 t% U
Set ObjRSA = Nothing % P9 E) v/ a/ H7 E' L3 Y* P+ [
end function2 o. T( t; @$ W) m- Q/ l. F! X& c
Function Decryptstr(Message)
Dim LngKeyE   a) G" s: s. n9 h4 w. v
Dim LngKeyD
Dim LngKeyN
Dim StrMessage - F! u4 M" r3 i4 R
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 0 ^/ f+ \8 Z  ?* G$ `
LngKeyN = "29893" 8 P* ^- N, v- k/ S7 }9 c$ B1 g
StrMessage = Message 9 ]$ E6 @, _: [
Set ObjRSA = New clsRSA 2 u9 E5 a& o' j
ObjRSA.PrivateKey =LngKeyD / r( O3 k6 ^0 Q  P# c8 H0 p
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing / _9 g$ l, H( b
end function 5 Q( e7 @7 Q0 \
%>
===============================================
7 Q# H- r% `* A" {4 p3 e- b
还有一个用于测试这段代码的test.asp( x& ?% u  ?3 u) Q4 ^# S, o4 S4 a9 h
有兴趣的自己搭建个IIS测试下5 ]& l$ l+ t9 V# M0 q0 j9 o

<%3 g6 ]: y' x& g/ U. f" Q4 D0 W
function Encryptstr(Message) " X; l  v# o* S9 r6 X6 F
Dim LngKeyE 5 \8 J6 }% X4 y, L
Dim LngKeyD ; \) d7 c2 i& g) k% ?
Dim LngKeyN
Dim StrMessage ! Q1 o. [. Z7 ^2 A
Dim ObjRSA
LngKeyE = "32823" - _$ C4 P: [+ Q) U
LngKeyD = "20643" : F# P7 q) A- J! N
LngKeyN = "29893"
StrMessage = Message 7 S- f1 ]2 `3 m- U& w  S0 b2 N# `
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 9 }  X/ _. g$ D4 o
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 7 N: ~; ?3 A- t$ C% f
Dim LngKeyN
Dim StrMessage ( c1 s3 T& \# l
Dim ObjRSA
LngKeyE = "32823" 7 [: ~, C) z6 i4 {* j
LngKeyD = "20643" ' U0 A: Q- G% K/ e& }3 [
LngKeyN = "29893" 5 c8 Q. M, G7 \& X* M1 P9 q
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 3 U$ R+ }5 U3 j  x+ y
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing # \7 n2 K  U+ |0 o3 _
end function & q: p% ~1 {- c3 X
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了8 X5 w; T7 w$ d: @* u0 M
===================字符集================% g% W9 m- D0 D
1_____6EBB
2_____5C1F( i$ S9 g  e1 S6 M
3_____4D75
4_____26CC
5_____4F88
6_____3F4E7 C: M$ i& N+ ?/ }9 a
7_____0A9D
8_____1A1C/ ?. m- S) T5 Y! v
9_____6D20- O- C' l. Y- B, W; t
0_____1089
a_____0F3E  o1 g* w, `. Z' O. A5 d" @
b_____3159- K' V" I/ W! k/ `
c_____3517
d_____419C4 u& U5 Z7 m( E8 g& b$ b! ?* |
e_____615C5 x4 @, L; V  x* J# C2 v: v
f_____556F6 y8 v  Y) O* u1 Y5 o( C
g_____2B7F6 ~. C" r& z8 Y8 g/ x
h_____0F9C. y( ?: x9 r# F$ e7 i* z
i_____00FA
j_____5A50$ H( e9 `6 _! I/ I
k_____2850
l_____3E7B
m_____71C5
n_____1FC8. ^% g/ D/ v2 ^: i( D" \4 U  q( z
o_____74C1
p_____5FB8) j% x2 i8 P4 m3 d$ ~! g6 z
q_____6085
r_____3AC43 K1 f% q( z2 o
s_____2F50
t_____36F8
u_____7010# F6 J. f: H! n( T. p$ i' x
v_____0B42* |8 q* O& w0 n* D  g2 R
w_____1C7A
x_____16F88 U' |4 g1 M, U5 i- S! r. i
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____22911 J- O; _2 k8 A3 i# R! V. ]/ J! C
$_____5D5C7 }5 ?, K3 x' l9 J+ B6 g
%_____09B9
^_____43EA/ Q$ O& M# A' V/ t: p
&_____62B9
*_____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 分享给朋友]