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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过6 g% ^# u1 S; U1 [# B- k' _$ B
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
7 L' ]1 I. X6 S
文件名RSA.ASP
===============================================% V  @2 H  ?0 j9 O$ y6 t8 p: T
<%
Class clsRSA 7 G) J: L7 w9 @; ~
Public PrivateKey
Public PublicKey . h4 J8 s5 A, p; {
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) / t8 q  w5 R+ q- _
On Error Resume Next 3 f; |& k# U$ @) r; d0 M3 n1 p
Dim lLngMod 5 C3 g! H( n% B* T  _4 l
Dim lLngResult " j; b: n5 {7 c- c3 t
Dim lLngIndex ( n3 @& a; z6 L
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 # y- q' H* r; O: X
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 m: y. y+ l3 J* h. K
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function $ J! [. V; J6 c0 `  N  z
Next " J+ K" k: l% [& ]" d* N4 m
Else & G2 L5 b# I- U8 `7 n2 [8 K# S1 z
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 : ]: q/ J8 T2 A: z/ K$ i
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 3 t' s3 f3 A5 v9 g: y
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 0 @, ^% U* D4 K. ]7 Y
Next
End If
Crypt = lLngResult 0 T1 O* N/ A" c0 k% S: v
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex . M- K) U! a! E" i8 Y1 b9 F
Dim lLngMaxIndex
Dim lBytAscii : [( s3 d* P9 s# R0 Q% @6 U
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ( ^9 i' }8 Z7 J2 h1 |$ b! J
If lLngMaxIndex = 0 Then Exit Function ' e$ q) \3 e$ W* |1 X- ?; ?- H3 P
For lLngIndex = 1 To lLngMaxIndex ! P3 ~+ K  M7 ~- b2 }4 q
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) * T" f* Z0 {. u0 K
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 ^7 x! c3 E6 P1 z* {: G
Next
End Function " X; w* Q4 y) j- A( b- q% P5 P4 M
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 6 a- F; b0 s6 o
Dim lLngIndex 8 I/ y( k& `) N4 q9 q
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) % q( R; T3 A+ x& L* |: P2 N' g- r
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * U" h& V$ [- F5 K' O8 M/ P( ?
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) & Y& q" s( J% g1 v
Decode = Decode & Chr(lBytAscii) 0 q2 Y. q4 K. u4 A: M" G
Next 1 `9 \  ]$ {$ Q5 D7 \
End Function & K9 Z" O, ~% D3 j
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ! f6 t1 w! f3 Z' e' u' X0 v' o! [
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 5 W% x* x- [- |" d" P) \, D) D& l
End Function & }8 r3 k( U0 d* {# h
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class " F. T) C7 ^/ m/ t+ y% j8 F8 U* J
function Encryptstr(Message)
Dim LngKeyE ' t, k! t  X! t! J/ c" {
Dim LngKeyD
Dim LngKeyN " K, C4 M8 O4 U2 u
Dim StrMessage
Dim ObjRSA # C) v# E+ D7 Y2 j2 ^/ p, B$ m2 T
LngKeyE = "32823" ' }3 N; E. z4 }
LngKeyD = "20643" - i5 u, A  I9 [# g% x& B
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 y; b' n; q% a1 S" Q1 }/ Q
end function
Function Decryptstr(Message) ) L% n" h3 ?. q% D
Dim LngKeyE . }6 Y8 z4 P+ A: f# ^
Dim LngKeyD
Dim LngKeyN 6 Q8 L* J0 B+ z8 @
Dim StrMessage 1 o0 o; @: J) u6 }/ j2 V; B- i" N5 `
Dim ObjRSA
LngKeyE = "32823" " g% E' C# H7 T; {/ r  J
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message - w2 a4 |6 v. F2 V. J8 w# h- a2 ^) \
Set ObjRSA = New clsRSA 5 T8 q3 q5 S0 m% j$ g( W) T
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 3 {$ d' \$ w! S  o9 R
end function ! @4 d# ^, k" ^1 s+ M; {
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 / Y# A7 f: B( ]  _, c! T  c; h
<%" M& N' Z1 a3 Y# ?- Y0 O
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 7 s- b2 V0 E7 ^7 s$ m7 E0 f6 s) E
Dim ObjRSA
LngKeyE = "32823" % I2 ?2 R3 |4 A
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : a9 l" j' x* t0 t& M
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ( Q7 I. N0 U$ d3 s, r% J$ ^
ObjRSA.Modulus = LngKeyN - c* ^5 K  J  u) {0 ?. k
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function $ y. T6 k- U: K
function decryptstr(Message) ( |5 ~: Z6 w- p% o7 N3 R# l
Dim LngKeyE
Dim LngKeyD 7 b* r. f* o: d* P7 s* l% {8 n
Dim LngKeyN & {$ B, D9 l' y. J) L
Dim StrMessage
Dim ObjRSA $ Q) f& Q4 W0 z3 s' ?
LngKeyE = "32823"
LngKeyD = "20643" . S! P+ w, y4 n
LngKeyN = "29893" " p9 x9 E% `4 M2 S9 B' b
StrMessage = Message 1 c% k6 P/ Y' M4 y9 t: @
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD # p% \& X( ~6 X5 \/ b% I4 C. o
ObjRSA.Modulus=LngKeyN ! d7 T1 Y- p1 F, ]: t) m
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function $ s/ d2 i7 {5 `
dim last,first
first="!@#$%^&*()" 7 g  J" B( u3 l. j* D
Response.Write "加密前为:"&first 2 @3 |5 E: [. K- Z: M
last=Encryptstr(first)
Response.Write "加密后为"&last ( d0 E% D0 {- u$ _, w% U, a: z3 E
Response.Write "解密后为" &decryptstr(last) ; f8 S2 X6 ^: W7 s" a  I3 V9 w
%> ==============================================8 V, H2 g, q% V$ g" n+ h
剩下的就是字符的对照表了
===================字符集================) I; C/ H# D( x. I+ J9 ]+ B2 C2 O# K
1_____6EBB+ ^2 g! B7 r, j" C) O
2_____5C1F
3_____4D75- Y& a# p: _; H* ]
4_____26CC! X8 G4 O6 O; [1 h/ b
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D200 n: {, X8 l- `. \& A9 d# M
0_____1089
a_____0F3E
b_____3159) F* X, O8 n/ b% k5 e
c_____3517% L( R" h$ ^$ Z* h/ m
d_____419C7 e% W9 A) L+ u% s( k
e_____615C
f_____556F1 L) a/ S2 z8 l$ M2 ?# b
g_____2B7F
h_____0F9C: ]: Q7 H& c# L  H) ]# ]+ M7 ?) Q
i_____00FA9 j/ T9 ]# G( @/ v' O/ J& u* r6 @
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C17 b$ L) p7 O! T
p_____5FB8
q_____6085% ^& w' M' X& M
r_____3AC47 d/ D7 ?: d( T5 E* [2 r: s) s
s_____2F50
t_____36F8
u_____7010
v_____0B422 P- x: ~5 Z. D% S
w_____1C7A% F4 D  S1 j: @4 `' ?
x_____16F8" u! Y5 V& v! F, {( B6 u" \
y_____2EE76 Y& A1 T6 H  ?  [% w% N: Z. u. F
z_____5CF36 c+ J9 D* @( Z  s: s$ R
!_____6233
@_____3A45) Y2 B7 e& B" h7 h8 b
#_____2291. }* F3 u+ m9 W& P$ n; b6 H
$_____5D5C6 m5 ^8 d  b' P" t
%_____09B9
^_____43EA
&_____62B9
*_____63015 _6 ]% |- X) p3 M/ I9 H: p7 I& j
(_____4659$ Q' [6 s7 A4 q( p/ D+ _* E
)_____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 分享给朋友]