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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm3 u# U/ G6 F& t
: s1 `' P6 s) T2 \
看不懂的直接绕过8 p8 F. D5 H, R1 [% x5 t
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E6 Y7 ]0 b: ~7 b/ B% d# t" {

============================================, X0 X& _* M) w( ^! _7 W: N: L
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件2 j, Z" R" ^7 u, Z9 ?

文件名RSA.ASP
===============================================
<% 9 }" t3 S6 q, ~! W( J6 v
Class clsRSA
Public PrivateKey , Q* K9 Z! X7 d! x( u$ ?
Public PublicKey . ?; f" M0 b6 P1 C
Public Modulus * k4 y; ?. \1 `# r' {( u
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 4 k* P  d' v8 }7 U! B
Dim lLngMod * K% `6 T" s' p, l3 B9 }
Dim lLngResult 9 r  ^9 T  Y0 H" v$ L  e7 r
Dim lLngIndex   x, @0 D7 Y$ P0 N  E
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 % `: v' _. i  {2 i
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else . `" b" J* p, J, B! f. W, U
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus " J9 q8 G2 P/ P& s* S& ]& ]
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 l' L( K2 T9 f( L2 ]3 X2 d, s- K
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 1 H. G. w; H. t6 f# c6 p
Dim lLngMaxIndex 6 |6 W, p  f7 L5 _2 W3 V$ h
Dim lBytAscii * [& p8 o0 ?& ?( u+ r5 J
Dim lLngEncrypted 2 ]' `/ S( w" E
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ! i; ^) n( {; u% Y$ y
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ) R2 ~8 }4 z; g. z: x  N' D0 N
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next , i# B: ~3 y+ F3 I+ y5 I- u/ g! D
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 2 X% {- U9 T- w, U0 C1 [5 U: b; g# e
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 5 h$ P' i+ f* b+ l' C. H( J
lLngMaxIndex = Len(pStrMessage)   z+ W& l* V6 x$ Q* W1 r
For lLngIndex = 1 To lLngMaxIndex Step 4 ! E4 U; ~8 |1 R: s. t; {
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 0 {/ n& \& l# {) s! A
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 E# d# O& v4 b
Decode = Decode & Chr(lBytAscii) 0 Y* p; K0 r* N( o( w
Next
End Function   j) N9 i6 F" {- T3 K/ b. F! R9 F
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! r" U# ]$ Q& I( t8 |  f/ ?8 g
End Function
Private Function HexToNumber(ByRef pStrHex) 9 Q0 `/ ]/ Q6 f0 o7 q' f5 h
HexToNumber = CLng("&h" & pStrHex)
End Function / z, M; [( p" G: W; l
End Class * J& d% l' z, z1 x+ W) P- N& j6 B
function Encryptstr(Message) 8 b' y0 ]9 S6 \& e$ a9 M
Dim LngKeyE " s6 ?7 k5 B0 g' a. t" ^
Dim LngKeyD
Dim LngKeyN 2 K  P6 x$ \/ h# U" L5 _. n( |
Dim StrMessage 2 _: q7 A# I  T8 y/ r; F" A. T
Dim ObjRSA
LngKeyE = "32823" ( d5 o  w& X. E6 Y2 V3 v
LngKeyD = "20643"
LngKeyN = "29893" 9 F" a- r+ [. b+ j' m
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 9 u" M, f+ d; p( l2 v3 p. v/ k
Set ObjRSA = Nothing - p! D" Z; D: A( @  r8 t
end function. K' d1 ^/ b& C
Function Decryptstr(Message) 8 ]" T% Q: P* J" C* s, n
Dim LngKeyE
Dim LngKeyD 6 a# w2 Y% {8 c4 {4 j% c% D) O
Dim LngKeyN
Dim StrMessage
Dim ObjRSA + P( l7 O) f. Z0 L
LngKeyE = "32823" 0 a: d2 K; s/ u* _: G
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message   M) P" U( _2 o
Set ObjRSA = New clsRSA 9 }  L7 b; l6 O1 C
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN , i, r6 i2 `7 A! b  s
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 3 k( D  n' l% z
%>
===============================================3 E6 G  {7 w! x5 P
3 b; S/ R! D6 I6 v0 e" o, Z: x3 ~
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下4 k! E! W- e! O+ c$ H

<%- x. f) \6 v) u+ c
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 1 ?# O1 S' K. g1 k5 B. s
Dim LngKeyN 4 U! ?. R* W( K" f4 l1 Y$ C3 [
Dim StrMessage
Dim ObjRSA % B3 r- g# n" `1 K& R
LngKeyE = "32823"
LngKeyD = "20643"   X6 s9 f+ x8 R& z# H5 Z) X
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE : Z) A9 T: \, [9 Y/ d
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 1 E/ a6 G2 L! o# K" Y% I- X2 ^1 h
function decryptstr(Message) & f8 t( c+ J/ X5 l+ N( S
Dim LngKeyE + N. u6 M: o0 n# f' @2 Y6 V6 ]& Q) e
Dim LngKeyD & _9 g6 e! d& ]* G1 U
Dim LngKeyN
Dim StrMessage $ B6 n6 d3 W0 C  x9 j, V8 S& K
Dim ObjRSA * J3 q/ y& \: Z4 u
LngKeyE = "32823" $ U) t! o  P1 U- w
LngKeyD = "20643"
LngKeyN = "29893" ' V: A: w4 g  |3 Z" q: c
StrMessage = Message * U$ K+ R' V( \5 m2 R
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first 1 T4 t, S& b# W8 t
first="!@#$%^&*()" : T4 G% J5 x! B" `
Response.Write "加密前为:"&first ! V) p! p) f  Z( u" O" @" X1 x
last=Encryptstr(first)
Response.Write "加密后为"&last 7 E2 ?( r- p7 f. V) H( v
Response.Write "解密后为" &decryptstr(last) * k% V$ ^9 L2 k" c
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D754 G$ R' D- z/ X3 A- x2 J: ]! W. x( s
4_____26CC- z5 i8 B1 O' W* o/ I4 a) d
5_____4F88# x# L" ]( E) R% K! P; W
6_____3F4E  Q( Q9 p& a/ R: |1 q) H
7_____0A9D
8_____1A1C+ P  Z) L! E- m! z' Q
9_____6D203 h6 H6 q/ ]7 `1 K( ]  x
0_____1089
a_____0F3E
b_____3159! K8 F: J! Z# d! z# ?! ?6 e" x
c_____3517
d_____419C9 |# r) [2 L6 Z8 P3 f6 n
e_____615C+ ?# D3 v  i0 \2 m" U) O6 Q+ t/ t: X
f_____556F
g_____2B7F
h_____0F9C; K( u) I( W  e6 w  q& K8 O
i_____00FA7 I: m( p# P3 y4 y! u( W/ z( n7 W
j_____5A50
k_____2850: S' Q% P- c9 h. I- ~0 ~: }' @
l_____3E7B
m_____71C55 z8 G9 Q' z5 o! ^- w5 p
n_____1FC84 Z3 I* _0 q' t2 q0 G+ q
o_____74C1
p_____5FB8
q_____6085: T5 n- |% U4 @7 u' M/ ^1 e& F
r_____3AC4
s_____2F50
t_____36F85 I& j2 b" ?; V, A$ t1 G0 N0 Q2 _( p
u_____7010; [4 [/ f* `- `+ h, l* n( @& D
v_____0B42
w_____1C7A% b+ m! x3 n* d, ?  j
x_____16F8
y_____2EE7# q: S7 m. }4 u% f5 |7 Z
z_____5CF3; x8 p3 p5 ]: s" F
!_____6233
@_____3A45( f" U! S/ {, B* p, j
#_____2291
$_____5D5C% M& }( R+ H% j# U+ z$ t7 u
%_____09B9
^_____43EA; j6 p  A; n' ~+ J
&_____62B9
*_____6301
(_____4659' S  Q2 K! I8 c7 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 分享给朋友]