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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm" E* \3 b# \  x$ X2 g7 x
" x2 p, E- r( T3 [8 F
看不懂的直接绕过8 y4 ~9 J3 G, k  Q9 E
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* }* S- F% ?7 W# _% F5 y0 w2 X1 {
以下是RSA算法文件) B$ p1 i7 O9 T

文件名RSA.ASP
===============================================/ r; B5 ?) |' a1 p5 D* b
<%
Class clsRSA 3 q2 m7 i- B+ w$ P
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next : f% `; @7 f# c
Dim lLngMod + ^: D* ^$ Y: a6 e* x  N, D. K% U
Dim lLngResult 9 l- Q5 ^" ^. g' }; d
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 8 Y% Q+ W3 X/ T" X* K- v
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus * a8 h& b' U( ^' K
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ( p5 f0 [% O. ]/ P
If Err Then Exit Function : q& s* U/ W5 E; O) e+ I3 S- i& ]
Next
Else
lLngResult = pLngMessage 3 L7 h' `7 J: S: Y; F5 {
For lLngIndex = 1 To pLngKey / 2 ! k8 v8 N+ v8 ~0 X7 d
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 R* I5 {* |1 L2 a$ Y
On Error Resume Next
' Mod may error on key generation 2 [6 ?( }9 G6 S# j8 e& r/ E
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function & f: Q( Q7 E* U! f
Next . o/ k* t& D6 R/ B% P+ u
End If $ c& ], r/ Q& y5 Y* a9 l2 Q6 e. s
Crypt = lLngResult $ w2 z4 u" t4 H- e$ @
End Function
" d' [; [$ m: A' b2 Z' y) W
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii 2 c7 l' m& _1 n( ?* J- Y% X
Dim lLngEncrypted   C1 `5 D( V' T! J! O
lLngMaxIndex = Len(pStrMessage) : B0 C" |2 X1 Q' m( |' b9 O
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 4 @2 M$ H( _0 |2 V, O
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # b9 {2 d" s9 u- D9 H% E+ T2 Y
lLngEncrypted = Crypt(lBytAscii, PublicKey) # q" }0 s7 X8 R" P, d
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next # g' U- G1 ]: T+ W4 j
End Function
Public Function Decode(ByVal pStrMessage) / r7 l: |7 y2 ]. K# A
Dim lBytAscii
Dim lLngIndex + I/ F! D: F7 U. L
Dim lLngMaxIndex ( U+ G3 C% m3 f+ y7 K* M
Dim lLngEncryptedData
Decode = "" ( j1 o9 V4 `; Y
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ; P9 P. j, |, G2 H2 p
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & A, H. W7 s" p# K0 K% k/ e2 [
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) " _$ |6 p0 ^8 b. _( R" f
Next
End Function 5 H% a& H5 O0 j
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 3 n: n- s7 l. Q: r& }
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ( h/ R- |$ L# k1 m, Z" K# l
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function 4 G9 x. g- ?4 I# u' V7 a1 \6 @
End Class
function Encryptstr(Message) 3 Y$ s) D7 S/ i/ j7 I% r8 m
Dim LngKeyE 5 F7 H5 B% O3 \1 I- a
Dim LngKeyD
Dim LngKeyN ( z# A+ U2 D$ H
Dim StrMessage 6 H6 B! t" A  }3 J2 y6 m
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" * \# ^1 V$ e* @* u
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 G3 U) o8 C" i$ }* Z
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 5 _. R- H- l, T
Set ObjRSA = Nothing * U) ~8 p! `' l6 \
end function! A9 U+ N' n# q" }) j1 X
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD   B& E/ H# V1 d/ C; S  y
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 4 O8 X5 S# ^% q, ]7 Q2 H0 M
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   Y+ Q, A0 l( y; ]" Y- V5 ]
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) - Y- G5 Z: ^# ]6 Y* ~
Set ObjRSA = Nothing
end function + m! `  h0 L) u! H1 s$ ^" ]
%>
===============================================; c) H+ `2 h! t# f) Q: \
9 b! Q6 W+ n- y, Q' Y% h
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下3 Z1 m  w' i8 J; B' i$ b+ a" t! R
 , C" f; Z0 k. c' y
<%: H/ o6 m: C4 f: p) z& `- c' X
function Encryptstr(Message) 1 v4 D$ p1 D( \! |9 T; d
Dim LngKeyE 0 w, v0 w- M( F  M: \$ Q6 {' Y2 t1 p
Dim LngKeyD * {5 {! Y4 O; S
Dim LngKeyN , X* _' @; a% }! i- W+ L
Dim StrMessage - C$ z( N: m0 r: H9 h/ F
Dim ObjRSA
LngKeyE = "32823"   z' V  _4 t0 n6 `+ T* }- |3 |5 v( {
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message # k1 C' m$ E& j- G, N2 I
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 1 P% \2 {. q" Y6 D8 ]1 p
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing % ?! U% l! s: \# A$ @0 g
end function
function decryptstr(Message) ; y! ?; s5 L! l- o( i
Dim LngKeyE & P; `9 A4 F$ a) p! P" A0 Y4 k/ G
Dim LngKeyD 0 z% `! W$ }2 u& E! H- p) Z
Dim LngKeyN 3 D4 j: C9 [+ S2 |+ V. t
Dim StrMessage 4 \7 Q9 U& e% e$ v8 b! D- r
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 0 y5 D+ `# o/ J2 Z: o
LngKeyN = "29893" / g; H$ U1 e( e4 n# J% D) m* [- Y
StrMessage = Message
Set ObjRSA = New clsRSA : x. O' M  \9 x" P7 c4 _" ^
ObjRSA.PrivateKey =LngKeyD ( s8 z8 [. V( K% v: Y1 @) m# v9 U
ObjRSA.Modulus=LngKeyN 4 u3 i% _& s8 p3 X0 i7 N. Y
decryptstr=ObjRSA.Decode(StrMessage) ) S6 z, Y" I3 G6 f2 ]+ V
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 4 e+ ?( `7 r* `; d. u6 Y* O
Response.Write "解密后为" &decryptstr(last)
%> ==============================================2 q. ?$ Q2 u8 P
剩下的就是字符的对照表了
===================字符集================+ s3 ~2 r% R4 D( }2 P; c) O
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC2 |. H& \( M8 q: Y! F- E
5_____4F88
6_____3F4E
7_____0A9D5 ?2 M7 c4 E5 t" X
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____35171 L- I1 R5 G' Z/ Z( d8 n
d_____419C! Q# t% P. c1 h! g6 P" c0 T
e_____615C8 d/ E5 j! E! u1 p8 d4 I
f_____556F5 x$ j% D! Y- Y* F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50; f* `6 |! E4 ^3 C1 y% Y
k_____2850% Y0 H' T8 c# Q* ]! @9 _# b
l_____3E7B
m_____71C54 X: e' K) X4 Z
n_____1FC8- _% C5 E7 `! A8 h9 L4 @
o_____74C1; N( w" K/ g" [; A* |0 D2 Y$ u# X
p_____5FB8  N4 ]8 n- O! E6 |
q_____6085$ K; u. A/ a: U
r_____3AC4) Y: W9 E. T- i% H3 R/ n
s_____2F50
t_____36F82 P' f: p6 Z( b+ Z# P  Q
u_____7010
v_____0B42
w_____1C7A# {# ?  P& u0 f  g7 c5 ]! R
x_____16F89 _$ k' I, T7 \( o5 G3 m
y_____2EE7
z_____5CF38 `( L. i! A7 `1 v
!_____6233, S) w: T6 b6 c+ y
@_____3A45, O7 l: [: X. X
#_____2291
$_____5D5C* D$ ]0 v' z: ]8 E4 Z
%_____09B95 S  L' v# t! A4 U0 n5 E& G  I
^_____43EA6 R3 v- M4 O7 c3 |; Q% a- `3 A
&_____62B9. [, V, @' T8 h6 ~0 a
*_____6301
(_____4659
)_____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 分享给朋友]