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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过, I8 X) M' S' s9 Z  Z. Y
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E+ t; D2 H. d0 C

============================================) L  d- \8 B8 W3 q4 s
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================0 Y, k/ r5 i1 c8 Y( H; ?3 t' ?- C
<%
Class clsRSA + O7 l; q' k+ l) b! a6 r
Public PrivateKey
Public PublicKey ! y- t) Z1 R( e# b1 D
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod . q# y  @8 l1 E/ b
Dim lLngResult
Dim lLngIndex * m8 v: A  F7 Y# L& F# ^8 A4 R, N
If pLngKey Mod 2 = 0 Then # l2 r) [: y8 B& D- q& a
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 2 \1 U# V1 N: @/ e/ A/ Y5 P
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function : _/ R# ~1 m5 `3 a! |9 t- Q* l
Next
Else ' O/ K; m0 h' j- w. h+ L4 V. Y
lLngResult = pLngMessage , t" l  z: u6 J4 p5 P5 ]
For lLngIndex = 1 To pLngKey / 2 " [" _( K* X/ f
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation : A4 W+ |; |, s( E  Z
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 C( o: y4 B* S; E* y3 [* y
If Err Then Exit Function # q* t( p# `+ _
Next
End If % e- w9 q% u8 _) ?
Crypt = lLngResult
End Function% a; W# i7 y& A% }2 ?( M& W

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 3 \3 V" L: C7 M
If lLngMaxIndex = 0 Then Exit Function ' D& z0 I! f4 b' \3 I  @
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) ( R  T0 c* K% u2 k! |3 {- k
Next
End Function
Public Function Decode(ByVal pStrMessage) 3 H$ Y; B- @2 T9 q
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex ) ?% S: L7 n3 S1 G! m
Dim lLngEncryptedData " ~/ L; M5 F! }$ r
Decode = "" 8 z* H" ~, u  P* I5 p* ^) B9 ~
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 $ S7 t: X5 g. j" ?$ o
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) . E1 V2 C% B! }- {( D
Next 3 n7 K/ w2 s2 f4 T0 A  }
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ! Z: c/ G' d3 u6 c* K1 |
Private Function HexToNumber(ByRef pStrHex) ) s% Q9 b) j3 Q  ^5 Z
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) - X: _, t' t: V7 h$ @0 c
Dim LngKeyE ' {( A: h) d5 g
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 s6 Q5 ~# R" Z( T* s* z
StrMessage = Message
Set ObjRSA = New clsRSA : C' R* d6 L$ b0 }8 P( G2 d7 C
ObjRSA.PublicKey = LngKeyE % r/ z& _) B% l% G3 T9 f+ @. _. `: S
ObjRSA.Modulus = LngKeyN ! w9 t2 L7 d- l& a9 K1 F2 u
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 1 D' R) Z& k% z
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" $ l, Q+ ?) G5 N
LngKeyD = "20643" $ ?. X1 P& H  h& E, `
LngKeyN = "29893" % N  u" w* l( r- o7 I( e% ^+ F
StrMessage = Message
Set ObjRSA = New clsRSA 5 R/ D+ K" n- q8 E6 ]
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ! n  T5 k$ f9 N- Q5 e' @6 Y
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp# c$ h  w. v! o7 _
有兴趣的自己搭建个IIS测试下
 & \3 t) J. [! t3 @: P9 t
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 0 N% M6 L! H- c% k, s% G4 W
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 7 r4 v- q. N. t5 ~
LngKeyD = "20643" 6 q% K2 g" j) \' s3 I- B
LngKeyN = "29893" 8 c! K; j8 b" }* G: I5 Q8 ^' d& H- q
StrMessage = Message
Set ObjRSA = New clsRSA & |; A) f' X" C5 `5 S6 M6 i, @! a
ObjRSA.PublicKey = LngKeyE - e/ P5 K4 g% N5 Y! y; e! T
ObjRSA.Modulus = LngKeyN , ^* w0 m  j' a, s2 d& b
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) 4 _3 t/ O4 v; l' j' }' {
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 0 ^. Q" _% Q6 c% v8 y: C, J
Dim ObjRSA   {: X6 e0 }6 O9 A# B& a( R& n
LngKeyE = "32823" + O- A, R- a* K8 p! S" L) ]0 p% _% a' V
LngKeyD = "20643"   e+ K7 @7 b: Q" b
LngKeyN = "29893" 8 s' x* Y" j! N. Y
StrMessage = Message " z- V5 e- t% V% K3 W
Set ObjRSA = New clsRSA / {- u, j: r* w( v6 F
ObjRSA.PrivateKey =LngKeyD 8 d* {0 j: D" W3 a& m2 t- G
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" " R, [3 j; v3 {& e8 s
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) $ s5 d8 T+ U3 t. Y9 U
%> ==============================================, P$ I( M7 Y. S+ b  q9 A
剩下的就是字符的对照表了
===================字符集================: r! s; z* n' Q" `
1_____6EBB) X% _6 q2 E% C
2_____5C1F1 X  g5 E1 j% N' c6 C9 W; @
3_____4D75
4_____26CC$ e8 z/ y3 x0 W
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20- Y3 q6 r. i7 t5 S3 r# B/ m) I
0_____1089  p: o% J1 z0 J; D6 F
a_____0F3E
b_____31593 U& {1 X6 T! {3 e6 c1 J5 w
c_____3517
d_____419C1 r* S/ z: j3 f3 @( |) w! M2 ~$ `
e_____615C
f_____556F
g_____2B7F5 x. c% k/ m2 Y, T
h_____0F9C
i_____00FA
j_____5A508 r) }9 v" k- M, q
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1. Y* c) a/ Q: R! ^- K+ s: s7 w
p_____5FB8& [) w& p/ u! R  O; K
q_____6085
r_____3AC4# J$ t2 q" g8 K$ h" r$ U3 Y
s_____2F50
t_____36F8
u_____70106 _! q! o# i5 y6 D3 ]1 W( s
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45. W" a) Q: E4 s3 i- c$ B
#_____2291
$_____5D5C' \5 l+ |8 V2 p5 d- R5 N0 a) G" ?
%_____09B9; o# Y8 h6 h+ \8 m0 m
^_____43EA
&_____62B9
*_____63018 n# B, O* t) Y
(_____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 分享给朋友]