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

算法, 大学, 研究

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

看不懂的直接绕过
加密前为:hwy123456* N4 E2 r8 r1 ^2 Y# a* D* {
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E. l3 c8 [! C/ D& }( ^
9 w9 S6 `3 I% W- r) `  V$ z
============================================) s6 }9 @: V/ l6 s4 _; e2 c- |
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法. v1 C* n% [8 J5 c4 a
以下是RSA算法文件7 T* |  i, [. q6 N( k' P& b' {
- G7 f/ i1 }- d( M& z
文件名RSA.ASP
===============================================' e" A1 l! Q- R' H* D
<%
Class clsRSA , a- `; r3 C0 u+ e
Public PrivateKey 8 K$ W, c' T( ^" l% I
Public PublicKey
Public Modulus 1 a$ F8 u( U  o3 k' g% M
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex , B& B0 J' T/ w! M
If pLngKey Mod 2 = 0 Then
lLngResult = 1 9 r8 n/ b* j, ]3 B
For lLngIndex = 1 To pLngKey / 2 2 }, T4 @/ F2 m0 x- j
lLngMod = (pLngMessage ^ 2) Mod Modulus 6 D0 `$ r7 b' a/ z* J" l( E$ s7 `
' Mod may error on key generation 7 b- A1 Z2 Q; I& G# X9 w6 W' h
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage : ]" {9 q, {6 q" ?) q% o; O& X6 J
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus * J. w5 `! ?* x
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function - `9 f$ w9 i/ j* E1 Y
Next
End If
Crypt = lLngResult
End Function
  }4 U1 S! P' `
Public Function Encode(ByVal pStrMessage) . n  {+ ?" Z+ y2 b& z  s8 U* D
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 7 R* m7 S; O8 {
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function / J7 q6 z1 H7 B$ \9 g
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) : T1 w! W& E+ ^5 B1 @+ C7 b: j
lLngEncrypted = Crypt(lBytAscii, PublicKey) ; |0 Z9 l+ P, e" r# I( }; c
Encode = Encode & NumberToHex(lLngEncrypted, 4) ) W! K; z1 x9 M; S
Next
End Function
Public Function Decode(ByVal pStrMessage) 4 D" p8 ~# A2 y
Dim lBytAscii ' F9 E- \9 s5 n' c5 c  \
Dim lLngIndex
Dim lLngMaxIndex 2 l; z* F7 K9 z* `
Dim lLngEncryptedData
Decode = "" , q0 k/ T, b, M7 C! y
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))   ]0 ~5 Q& r( {* }1 l5 T$ @
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ) I5 N5 O* g) i+ ]9 P
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ! O2 @4 {9 u7 U/ h
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function   m7 u9 Z$ [1 O7 q) o8 c  W
Private Function HexToNumber(ByRef pStrHex) + I# j" I; `4 r" Z
HexToNumber = CLng("&h" & pStrHex) - d" p. Q3 D! Q  Z/ u* z' r
End Function 8 W* I4 v7 J. @7 A
End Class
function Encryptstr(Message) ) O" F2 ~  N( y7 w; L
Dim LngKeyE " Y! i' Q5 C4 r2 x8 x
Dim LngKeyD ( |7 H7 B/ A: T2 G6 _
Dim LngKeyN 0 K# M% b7 V' x) R, d: g
Dim StrMessage * ]+ I$ @1 I0 t4 i) W
Dim ObjRSA # ?$ m( \0 {  R) m" v/ k' G& ~
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" / l3 V! ?3 a0 u6 R
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN : e  N$ z% n8 h0 {/ d
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 3 N) h7 r' M9 o5 P0 H3 T
Dim LngKeyE
Dim LngKeyD , U( B% K2 v1 E" v- o
Dim LngKeyN
Dim StrMessage + S2 Q# o% Z& Q/ q7 _
Dim ObjRSA
LngKeyE = "32823" " z# e! |3 D" W/ g5 }" ^  i
LngKeyD = "20643"
LngKeyN = "29893" 7 V; t! q1 c: L9 V: P" d9 n  |
StrMessage = Message 6 d5 M0 a, {: _2 a3 l5 t5 S# [
Set ObjRSA = New clsRSA , w5 k: c2 a# q# S2 P$ q
ObjRSA.PrivateKey =LngKeyD 6 N5 {! j) v9 s" j
ObjRSA.Modulus=LngKeyN . v; |5 t. b$ l/ V2 B& J
decryptstr=ObjRSA.Decode(StrMessage) " {7 D# M9 B' P* d. r
Set ObjRSA = Nothing 7 l4 w! T) _- Q/ u
end function 9 f' P% o( y, A: s
%>
===============================================. s2 T6 p, o+ a; y; S# Z( f* [
0 A. n8 m; o  H6 ~" W2 ^
还有一个用于测试这段代码的test.asp+ `1 t3 E5 [+ S2 n% }( g% G
有兴趣的自己搭建个IIS测试下
 ) H2 k$ W# u3 n, Q7 L( R7 q0 s
<%4 X0 b- H! ?! t) {* V& C0 F
function Encryptstr(Message)   e7 i& ^( k4 g( R# C1 _! M
Dim LngKeyE / }; h. M1 n* b. ^( w# `
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 3 k0 d, f9 d- h
LngKeyE = "32823"
LngKeyD = "20643" 6 p$ c  q+ {1 _' p. z1 R. |; Z$ e
LngKeyN = "29893" 4 z' @4 n+ S$ O0 m, n
StrMessage = Message 1 M. l* w4 \% r2 n. @  J
Set ObjRSA = New clsRSA ! c5 O/ R9 |) B7 u
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 3 O! J1 }0 I; T5 |0 f( P  p
Encryptstr = ObjRSA.Encode(StrMessage) 1 `6 _) V& h% W: O0 \* ]. o/ H
Set ObjRSA = Nothing / E, u3 b. I  `" a! E; `9 w8 ~
end function
function decryptstr(Message)
Dim LngKeyE , J0 {2 |# I9 g, r$ W( n# {: h
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 8 Q9 ?, X# S- \/ _- h* I( y
LngKeyN = "29893"
StrMessage = Message 7 l- M6 g$ W. J" r1 V/ A) p7 F- W
Set ObjRSA = New clsRSA 7 s9 r: r# [) E. p
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ' B+ }' J- s: t7 h7 j" b
end function 3 P$ k: P' L8 G& y) V( o
dim last,first 4 D1 m: ?% @! ^1 |# ^' L# ~5 y
first="!@#$%^&*()"
Response.Write "加密前为:"&first 9 \# \* {+ ?  X6 u
last=Encryptstr(first) & f1 w! _+ ~9 K1 a: x; _
Response.Write "加密后为"&last ( V' k4 ?! h: l
Response.Write "解密后为" &decryptstr(last)
%> ==============================================, P8 I8 [( b6 d3 x$ x4 g, D
剩下的就是字符的对照表了  p: B5 H3 o. o0 H6 p
===================字符集================8 Q2 x5 O2 a' Q# n& l
1_____6EBB
2_____5C1F
3_____4D75# o; X; P# Q! a3 ?3 Z9 E: u
4_____26CC* g  U4 H1 [1 E* c) s. y
5_____4F88# X3 C9 H5 g! `( X0 }
6_____3F4E% x- g3 Q, _  c; x9 `& P
7_____0A9D; [1 t: l. h- r% |. m; a& G
8_____1A1C' r2 U! W$ @& k( h4 C+ a
9_____6D20
0_____1089/ N' n1 O$ ?. Q  r# A
a_____0F3E9 I2 B. D& h' g) l# w6 ^+ f
b_____3159  Z: S( q8 O7 R2 L# [% |# O
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C: k+ i; W9 Q! u4 S2 A4 f
i_____00FA
j_____5A50% f& W/ X3 x( V6 c; }
k_____2850
l_____3E7B. K$ ]* e- `3 H! v: e4 e' \
m_____71C5
n_____1FC8
o_____74C12 Q/ s! |' U/ Z$ h- `7 _* f- W
p_____5FB8* H( _0 k) a/ `5 Q3 N& \/ a
q_____6085; ^; N$ z) B) P( E8 ?
r_____3AC4$ I+ z" ]7 {' y2 D. H& e
s_____2F50
t_____36F8
u_____7010
v_____0B42$ K2 l6 o- a2 z2 l% Z
w_____1C7A
x_____16F8' e( R2 @: V7 O* r1 o) `' G
y_____2EE7  ]" N* m! s* y  D) k6 K# ?4 Q
z_____5CF3
!_____6233
@_____3A454 p) f7 f0 B) i% v& Z# i
#_____22919 ?7 [) _' i/ @
$_____5D5C
%_____09B9
^_____43EA$ k% u  g( y' y: x0 l( B2 f
&_____62B9) V: M; x4 K# C7 G) Y
*_____6301
(_____4659, E6 j& r* V( O6 l/ w
)_____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 分享给朋友]