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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm8 N4 J* L, z+ _1 ^$ p
原始出处：http://www.3ast.com.cm  S8 |/ n3 |$ ]1 ?* |: p
1 g$ G' L0 V4 a
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E# H+ B; @9 R( m. }8 F+ I0 `% v5 r

============================================+ D) _; @4 F5 \% W" }$ U& B0 I
上面是当时自己校内的心情。现在已经解破出来了，分享给大家+ r. `6 B& `/ U. j, p! q
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法- G1 v: j3 G% B
以下是RSA算法文件

文件名RSA.ASP# E4 l- b! v$ r+ ?
===============================================1 u: r$ [( I+ w; }6 y% S4 P4 O& U. O. J
<% 3 u. S/ f8 E: \  ]* m9 c
Class clsRSA / Q  X; w: m" g2 v& L
Public PrivateKey / o" p# Q/ P9 u9 ]
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult - n: L0 Y' `2 ?" t( z+ D" ~. q" \
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 % g7 [3 p" L' {" K0 A
For lLngIndex = 1 To pLngKey / 2 . `- B4 ?- ^  \' s( t$ b: e
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ' e  d: V% Q7 O9 Q
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else + I1 q. f* \! i* N
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ( R; P3 l; }7 o( ]! k, V
lLngMod = (pLngMessage ^ 2) Mod Modulus ! g% n$ h" Q5 l
On Error Resume Next
' Mod may error on key generation % n) X" p! |$ ^) ^7 n
lLngResult = (lLngMod * lLngResult) Mod Modulus ) j& C1 c4 Z/ S5 ?5 v0 J* ^8 O5 g& W
If Err Then Exit Function
Next
End If
Crypt = lLngResult ! F% C  r( x6 g# k, \+ N* I
End Function
. c3 g1 z, U5 ]* F3 q
Public Function Encode(ByVal pStrMessage) 8 o9 O3 K+ {0 }; c- W
Dim lLngIndex , A2 M% m% d* F/ O' t
Dim lLngMaxIndex 3 |3 ]) x9 {9 ~
Dim lBytAscii
Dim lLngEncrypted $ V. i2 Z0 V6 L4 e0 L% |9 [
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function " g+ r" I9 A! n+ J' N% t+ U
For lLngIndex = 1 To lLngMaxIndex ' E' I4 ?$ t! B7 [
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) ! S% O; O6 X+ T& N) m
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 J/ P! q% a8 Q& _0 _3 x( j
Next % @( s  d6 t1 Y# @9 B
End Function
Public Function Decode(ByVal pStrMessage) 5 g9 p/ _9 U, F% D9 f5 |9 O  U  U
Dim lBytAscii
Dim lLngIndex : Q. r: y" s3 h& T* n
Dim lLngMaxIndex 5 l7 M: |0 Y: _1 C/ l/ p0 G
Dim lLngEncryptedData
Decode = "" + T: W! G. x7 n6 M  `
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) & x5 Z  Z0 \- C) R
Next ! A' S  H% P4 ?. c+ H/ f8 C
End Function 5 [5 L. h# W6 x7 X! ?7 }- n2 L
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function ! A5 Q' R- m5 A- E
End Class " N5 ~( ~9 C6 N+ X
function Encryptstr(Message) 9 a+ p9 S, x: P2 c
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 6 _1 e: f3 T) |! q2 q! x; m% _. `
Dim StrMessage / Z9 K" C* a0 F( b
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" * t6 ~6 V" D5 e# M5 U7 P" a
LngKeyN = "29893" $ ?9 L" q1 A  t& {9 {+ j& p  }5 H
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 4 {" Y" i# d' J4 x
Encryptstr = ObjRSA.Encode(StrMessage) ' E, S; l9 o7 i0 k; U3 M: A$ V
Set ObjRSA = Nothing 6 h; s6 {! T; J" I0 |1 o
end function0 z8 {" l4 s# h+ }* m  V
Function Decryptstr(Message) 4 S( c+ ]" v$ f* ^8 O: d, l
Dim LngKeyE + J9 x4 X3 x/ }
Dim LngKeyD % Z. b6 h& A7 e( C1 r( j1 A
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 9 s5 {9 k. g+ Y# `
LngKeyD = "20643"
LngKeyN = "29893" ! c3 C$ T' f8 Q3 H* a3 f4 o8 r6 n
StrMessage = Message ; a0 u5 H* b+ G1 C' F
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 X3 H4 T+ f! y/ k' S; a& n8 A, o
ObjRSA.Modulus=LngKeyN 3 k/ [. a5 s5 f/ p4 w" |
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp5 k; u# `0 ~. b, U
有兴趣的自己搭建个IIS测试下+ J- x' q  P6 s! _9 a( x

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD * i, m7 C* N+ |. w  @4 ~4 W
Dim LngKeyN ) N/ [) L: ~" x5 C' e1 U6 [
Dim StrMessage
Dim ObjRSA / t# g, k6 P4 G# i  b
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ( L' O; A$ k& `, d/ z9 F5 v
Encryptstr = ObjRSA.Encode(StrMessage) & z  [- n1 N' X+ _' Y1 D2 B  C
Set ObjRSA = Nothing
end function + ?" c7 q; q2 I( Q6 L
function decryptstr(Message) # ^3 A+ y$ x) e1 M; B! K% e& L5 c
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 8 @! q" g% q# N. R
Dim StrMessage
Dim ObjRSA $ R* K5 M8 ^! b6 k' S' N
LngKeyE = "32823"
LngKeyD = "20643" 0 X5 ?' `$ _  C- w/ r# |
LngKeyN = "29893" 6 ]8 B6 y) I6 P6 `2 f
StrMessage = Message
Set ObjRSA = New clsRSA ) @& ^# k* R0 s; A% {2 S# N. g4 W
ObjRSA.PrivateKey =LngKeyD 0 O8 }; \- d2 }" a' l
ObjRSA.Modulus=LngKeyN 1 u" H& g! m2 Z7 H# A
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first ' I6 }2 G4 Y# U& x& c0 h; e6 @7 Q, }
first="!@#$%^&*()" 7 ^$ ~) n7 \% {% m# M7 @, y
Response.Write "加密前为:"&first
last=Encryptstr(first) 8 x  Y' x' s1 X
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ) y! i8 ]' x% M( M9 C* G( I
%> ==============================================7 o" P2 \" d. z! d1 k4 e
剩下的就是字符的对照表了# L% Y, }( M. z3 [& _6 \& g6 t
===================字符集================" T/ c! e# D) \6 C# j9 j" [% ~( `
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88* {2 [1 `. W: ~! j4 O+ o
6_____3F4E6 Q; i9 D, H4 u5 |
7_____0A9D; M8 U8 C8 h) u- K6 P# U
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159! n, X1 @+ i! u4 G- o1 K
c_____3517" M! X. [( U8 A
d_____419C* c" P2 n* Z3 t! j. C( K3 h, ?
e_____615C
f_____556F) g4 |& }  Z6 \' u! }
g_____2B7F
h_____0F9C3 J2 q0 ]4 T& Y1 B1 ]; v* F* c
i_____00FA
j_____5A50( [0 B+ @3 t$ a- C  R8 O( k5 P8 t
k_____2850
l_____3E7B
m_____71C5
n_____1FC8. E, q5 `3 ~9 c2 g: Z2 @
o_____74C1
p_____5FB8# S; m, V# ?5 s4 j8 v
q_____60853 U. c% _8 Z" x
r_____3AC4; i9 i3 J3 G. j/ A6 v; h, h/ Z
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F84 @( ?1 [% ]  J. R! `
y_____2EE7
z_____5CF36 E! p7 }- b% u) n8 o  e8 m
!_____6233, l* r4 m% x' B' X# s
@_____3A45
#_____22919 r- a! B4 m: n$ L, A
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____63012 H' V3 s7 p0 b5 o0 a6 c
(_____4659  [1 N3 D9 U+ D1 H- G8 t4 O
)_____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 分享给朋友]