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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm1 Q! E; A8 s5 j3 s" L( t
原始出处：http://www.3ast.com.cm
. |5 j  ^# N3 t9 R  _: k
看不懂的直接绕过
加密前为:hwy123456% o& J4 L2 R; j: ]/ g' o
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 R* c3 n# w0 f

============================================# \: D" j  \- |1 Q( ^+ T9 k1 ?, b3 u
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 Q+ |& D" v2 u& f4 f
以下是RSA算法文件7 U" L2 I" m' Q! m# S$ N" a8 u
+ Y' a$ C9 p/ {: u6 _  @/ I, J$ I
文件名RSA.ASP5 a' k: i! |8 E+ j5 e
===============================================
<% 4 l! N4 b: w7 ~" U/ q! a
Class clsRSA $ d* z4 p4 \" I" n  V' x9 J
Public PrivateKey - [( Q* r- H5 y8 t* S  M3 |
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next ; K  @; S& h7 [. u( n4 h
Dim lLngMod
Dim lLngResult
Dim lLngIndex : w( Q8 e; ^; x0 o. f* W
If pLngKey Mod 2 = 0 Then $ I8 A$ F3 c5 X( @
lLngResult = 1 / D4 Y# O! d+ h
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ' T) O' A2 `( m: Y7 m/ y
' Mod may error on key generation 7 e. I5 }& K! U. G9 {; ~  @" i
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 s' z( f5 z# K
If Err Then Exit Function
Next
Else ) w: c- E% v+ G: o' G
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation , q6 m/ T9 H, C' T
lLngResult = (lLngMod * lLngResult) Mod Modulus " o+ ?5 u  M5 J( H/ i, Q' c" `4 F
If Err Then Exit Function
Next
End If
Crypt = lLngResult : ?5 j* z) K& W8 c4 S. H
End Function, A0 O0 i$ s9 u& E
9 v9 W6 J% p! K2 `: _7 i
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 5 I- X3 U$ u! @1 K/ H
Dim lLngMaxIndex # r' t4 D: }) ]1 G
Dim lBytAscii
Dim lLngEncrypted   x! d. ^) n8 [/ i
lLngMaxIndex = Len(pStrMessage) ! I3 E7 ^* P) s: R  a8 x
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) ! x0 M1 b- f# z" A. ?& b. Z8 Y5 a
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 8 N: ~/ d8 L4 P& j1 P
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 0 V1 s' \7 R7 Q) M6 @
Dim lLngIndex ; r& {9 N! U; s
Dim lLngMaxIndex 2 f1 B) R0 |# D4 z
Dim lLngEncryptedData $ k/ _) @+ v. Q+ ?" w! \
Decode = "" 9 q' _' R  S6 ~$ ^5 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) ) z) V1 @  R' F0 m6 u
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 0 ]  `8 `/ v, ]$ l- Z
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) . N* |/ f- ?2 W2 \
End Function 9 [9 w( ?) }( h- ]% q9 k% ~
Private Function HexToNumber(ByRef pStrHex) 4 ]  i; B' t; }* K3 g* o. `' z
HexToNumber = CLng("&h" & pStrHex) 9 V$ Z. O7 R4 c( }+ T: a- N1 c
End Function
End Class
function Encryptstr(Message) , I3 K0 Y1 S+ V; p
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN " u9 r$ ]& I/ o' g9 Q, q
Dim StrMessage
Dim ObjRSA , j0 J# x& G* X" L. D
LngKeyE = "32823" $ o- C  a6 D0 U8 {3 p' t# _
LngKeyD = "20643"   _1 H$ y9 W8 V- _
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE , a7 ^: E6 ?( Z0 d7 |$ K
ObjRSA.Modulus = LngKeyN , E, b1 v% O- a4 p: F2 u7 Y
Encryptstr = ObjRSA.Encode(StrMessage) ' y2 _8 j+ u! w# `: \9 X1 Z
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD , V' m( A- V5 L" U! W4 ~
Dim LngKeyN : x( B7 k# C2 Z2 |0 {9 w
Dim StrMessage
Dim ObjRSA / D6 d0 b9 p6 Z6 _
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" + V! s3 L9 ?* j4 B4 O8 E) C
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 8 c, j& ?2 K8 X0 j0 a
ObjRSA.Modulus=LngKeyN 5 c) e9 A! k3 X/ u! t! S9 Z
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function + s3 ?. K3 C& e) C
%>. {( v0 H1 |' j- R; ?; s# z
===============================================% j4 @4 F3 d+ n- d- }7 j; @. m# W

还有一个用于测试这段代码的test.asp3 A% i- @4 J. J: T" E& ~
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) / @, d! F, m' z
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage , d, s" r3 }( z8 [+ O
Dim ObjRSA
LngKeyE = "32823" $ `' R  p$ K1 f2 S+ d$ i
LngKeyD = "20643"
LngKeyN = "29893" " A" c4 k/ ]6 t5 A$ ]4 r
StrMessage = Message 1 x. e7 ]: z, i! i9 v, r/ j
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE : f; N0 i5 q$ `3 |
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ; ^7 K* Q  n1 c; ~! s5 h: m" d, Y
Dim LngKeyN 0 w5 d$ ^# @3 k, S9 o& A* c- z
Dim StrMessage 3 m0 e8 M) s: W$ W5 d
Dim ObjRSA 4 C# \: I7 X, O) B0 e3 B: i
LngKeyE = "32823" 8 P+ G/ ?* f! N6 v* d0 |
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 4 Z! V7 d6 n- p" ~
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN   ?( z% ^2 M$ X
decryptstr=ObjRSA.Decode(StrMessage)   }6 v8 c9 {2 S; w; h4 d
Set ObjRSA = Nothing 9 ~( j! X1 _8 u0 Z- o+ I$ a  f
end function : \. A5 s4 L+ a, c- L/ l7 q+ U
dim last,first & ?& U- `+ }  w5 \# C2 n! \
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================$ l* w% p, o. l" v+ N5 N
剩下的就是字符的对照表了
===================字符集================7 ~7 [5 c" U& t. C+ V. O( j5 Q' ~3 w
1_____6EBB
2_____5C1F( [* J$ C8 `/ A- `# q5 G
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20; R! V0 p2 _3 K/ g. ~3 A* i
0_____1089
a_____0F3E
b_____31595 j* v. z# U3 u) M7 p2 L$ m
c_____3517
d_____419C8 n# z+ w" `. ]5 O8 @! v8 o
e_____615C6 G5 E+ ?& A, R. r- h  H" b- B
f_____556F
g_____2B7F
h_____0F9C/ v5 i/ u! Z3 R( f& z
i_____00FA9 b9 u* q0 d/ _5 U( L4 u" D
j_____5A50- d; k' {5 I0 ]
k_____2850
l_____3E7B) R1 Y: d3 ?3 m0 D! i- A
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8' K( j# a! e7 e+ `) ?* f' e2 N
q_____6085
r_____3AC4
s_____2F50# @+ H  A, _5 ^' o1 o" J/ l: j
t_____36F89 J6 g* v) ~7 K( f6 e, ]) s% W$ \+ |
u_____7010
v_____0B42' j% Z: r6 r6 F8 E4 A# Q  _: j) y
w_____1C7A) W9 B" R  A) g" {. @, Y! m3 K' ^
x_____16F8
y_____2EE71 N3 e. J7 T1 v
z_____5CF3
!_____6233: _! B; r6 t7 `9 q; Y
@_____3A45
#_____2291
$_____5D5C8 d( B5 r6 I5 C" z+ }
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____46591 V: I: z4 S1 f3 }' K1 M. M& h7 ~( ?
)_____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 分享给朋友]