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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm" i, \& ?/ D, Y) {  _3 e; V2 i6 T
原始出处：http://www.3ast.com.cm8 _3 y0 j) [$ a7 O3 L; d' D! p
! x/ s) w  g" b+ T- k
看不懂的直接绕过
加密前为:hwy123456- R9 U% }( G0 i" w: Y+ h( ^/ d
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家$ }+ \( w/ o5 t! y- m& a* Y
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件0 H" [9 _1 Z$ Y0 Q. z- w1 a4 R
5 w$ J; x: x* O& k% [  v
文件名RSA.ASP
===============================================
<%
Class clsRSA & p3 b# G' r* ~2 o2 ?0 x
Public PrivateKey
Public PublicKey 3 C; P0 R2 p1 e, n' X. F
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 0 u  H+ ]1 n' Z" ~8 \! v  D
On Error Resume Next
Dim lLngMod ( R- k& ?% K+ A7 h5 m- d
Dim lLngResult
Dim lLngIndex ( L" Y5 u$ Y( w8 Q# V) \# D* @
If pLngKey Mod 2 = 0 Then
lLngResult = 1 1 |# d) J' G. `4 L$ X0 I
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 D  U8 J( i. M
' Mod may error on key generation 1 ~4 @8 L, ~6 K3 j0 V. [& @3 u
lLngResult = (lLngMod * lLngResult) Mod Modulus - J8 l6 y/ P' s9 }( d
If Err Then Exit Function
Next / V- r# B" C8 w6 Z
Else 8 j3 H. m! m% p9 W6 ^
lLngResult = pLngMessage 0 y) G3 j/ R: m9 m' x) x
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 2 M$ D2 K: {5 M+ \% Q
lLngResult = (lLngMod * lLngResult) Mod Modulus + V7 t8 \, }( w6 I& A, m
If Err Then Exit Function 7 U7 [' b4 Z# i0 [$ o/ Y( P
Next 6 i: n/ k0 V5 c; {4 I" x: F
End If
Crypt = lLngResult : ?1 s, n! r. j" e4 t) Y6 f0 c1 m8 r
End Function3 E, f0 k" Y2 `' P% K/ ~

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex / u$ B/ @# V8 `5 y
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted   q& v1 R* p, y  C
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function + |9 v$ D, ~0 U& R1 p2 J8 a0 i
For lLngIndex = 1 To lLngMaxIndex 8 u0 ~2 p: p$ |
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 M) b* x- J" [  ?* A3 t
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 0 k! Z2 S$ ]) H+ J
End Function
Public Function Decode(ByVal pStrMessage) + Y8 u5 v, W' R  w( [: S
Dim lBytAscii ! S$ T8 @6 Y% M
Dim lLngIndex & a$ ]4 C  Y! }7 W
Dim lLngMaxIndex
Dim lLngEncryptedData 8 |- z) h; M2 W9 e3 {# Y3 Z) g- ]( Y0 O
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 7 M6 Q  z4 d5 z6 H- _8 {
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * a& P9 T  m/ t% E" D; s9 F( C; u
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 2 i9 W/ Q! R) ?. |6 \3 |* p" \" V  Q
End Function 0 T( L& H: _5 {* L; S
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) - D( V( z- e( g) R: ^! @) ^4 m+ P
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function / @4 j( Q0 D$ i  F+ U* @
Private Function HexToNumber(ByRef pStrHex) 7 ]2 }- R* j4 L1 l+ M8 i
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ' w4 c. H3 Y4 K: s7 ~1 o
function Encryptstr(Message)
Dim LngKeyE 8 z, D8 P2 |2 f6 b
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 5 g2 r9 F/ h; h1 x
LngKeyE = "32823"
LngKeyD = "20643" ( G4 C5 K, P! N' _2 f
LngKeyN = "29893"
StrMessage = Message 4 G) u- t3 n# \: B8 b* A' O9 U6 `
Set ObjRSA = New clsRSA   P2 J- {- E% |" x! C
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) . I+ `0 W, H6 l+ Q( I8 M; u: }
Set ObjRSA = Nothing 6 X7 u2 @1 C0 h% t( N1 z& i: b
end function/ P7 [! Q- w# e3 _. g1 U
Function Decryptstr(Message)
Dim LngKeyE 5 @% H5 ?3 i: f3 x
Dim LngKeyD - o" r1 e. |7 _, T
Dim LngKeyN 5 A; o, C( i9 B+ g" D: O
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" . a! P" k, {, [/ u9 W# K# S
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA / i& z# M; p. n$ ~5 A: h
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN - u2 _. G# |3 h) n; \
decryptstr=ObjRSA.Decode(StrMessage) . i  C1 @0 J& D. {( `: P9 P: W
Set ObjRSA = Nothing 4 W1 `  G1 m4 U# f2 ^$ i1 W" {9 u8 V
end function
%>' A: S# h: j7 h0 V) H
===============================================7 K) j5 P- I: g' s$ K: A/ W5 z

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 7 i# Q- W3 a4 d; n6 Q. Y' j) }
<%# J4 b3 D+ t# O, A
function Encryptstr(Message) 4 Q/ |- l8 p$ h5 |
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage " e1 y& f' M+ W; ?5 C6 b& I
Dim ObjRSA 9 h. s: |" {, j) S
LngKeyE = "32823" 8 |" X# M* X: Z/ o' z  _
LngKeyD = "20643"
LngKeyN = "29893" 3 V4 A7 B( j2 ^1 T
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) $ s! C% F; }9 C# ^
Set ObjRSA = Nothing
end function ! _8 m$ A! P/ D. E4 t" M# \
function decryptstr(Message) ! N1 J0 z% E& ?0 t: f+ D8 m
Dim LngKeyE
Dim LngKeyD + [% D7 e: W8 J3 A. \
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" - b0 A- f0 N" `; Y0 y( y
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 6 B2 ?: z4 k: `% i7 J
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) + g/ _+ m  ]% F
%> ==============================================
剩下的就是字符的对照表了) E4 c* i! g. B4 {' P6 l
===================字符集================
1_____6EBB
2_____5C1F; J2 b# I/ F5 j& \) P2 c& e! D) L
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D7 X7 V0 ]: [& N+ W, f% w% f9 }
8_____1A1C( W7 m8 l  L3 ~7 z- `4 y
9_____6D20
0_____1089* j% d' {0 P; K" G. j9 g5 l: o
a_____0F3E
b_____3159
c_____3517) ]4 `3 x5 ?! {+ ?+ E* {' L; O
d_____419C3 |6 I, J9 U7 e8 o& O- v1 U+ }
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B% f" u4 ^) y8 _# D! z  J
m_____71C5- {3 v0 y' s4 q, F2 G5 X
n_____1FC8
o_____74C1% B( A9 s& Q, h2 x2 r( _4 }9 f& @
p_____5FB8, C3 j1 Z1 _, t% w! T
q_____6085
r_____3AC4! D+ o0 R! t# p' _5 {6 v3 ~
s_____2F50% |8 v1 Z- t% ]' C2 _1 F
t_____36F8
u_____70101 J1 h' S* H/ G7 Z+ Q4 b* n
v_____0B42
w_____1C7A
x_____16F81 ]( `" Z! z' Y6 W7 h
y_____2EE7
z_____5CF3) Z/ K) L. R5 j8 V) R" x
!_____6233) C! [7 P5 H) Q
@_____3A45' L" `  Z# a* ^1 T! \5 B8 ]
#_____22917 b' X$ b# z6 @
$_____5D5C& W* K) G3 g2 w. l6 g
%_____09B9
^_____43EA
&_____62B9  Q5 S3 a2 m: ~0 h
*_____6301$ f- U+ ~5 @* B9 U' t' t
(_____46592 v8 c9 N+ p' u$ Z% a1 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 分享给朋友]