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

算法, 大学, 研究

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

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E/ D" S: f( y; Y! k( [

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

文件名RSA.ASP" g- D9 z. w, F  B4 e
===============================================
<% 2 y8 k/ k9 P- d( F1 n6 u& ]9 a
Class clsRSA
Public PrivateKey 7 z* l6 Y5 _' g: f8 k+ _! c
Public PublicKey / a- U2 c0 N4 o! e( ^1 [
Public Modulus   y! L2 g' ^7 }* T
Public Function Crypt(pLngMessage, pLngKey) 1 `2 f, ]5 d1 e3 C/ s
On Error Resume Next
Dim lLngMod
Dim lLngResult   r/ p; R  {' c+ q! f
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 0 U. z( P" Z, K7 t" G8 \+ N
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 5 X# O1 \' X  ?% E( ?0 G" T# ^% W6 m3 `
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 4 O7 |0 ~6 s2 B/ |/ }3 c& i
lLngResult = (lLngMod * lLngResult) Mod Modulus 0 z0 D& c6 E: B/ o3 n/ P/ k
If Err Then Exit Function
Next
Else 7 `, r/ F. Z0 p
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 # H) ~% Z3 M$ y' n+ K  A
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function * Z) ^0 k# }7 ~6 Z" M, o, M
Next
End If
Crypt = lLngResult 0 E* `: n0 ^' m' g4 x
End Function/ ^8 V# n. {1 r' |3 R- i

Public Function Encode(ByVal pStrMessage) 9 s0 b4 g) B* \9 E5 \$ K0 i
Dim lLngIndex ! ]' k0 W( ?  B9 J( w% S
Dim lLngMaxIndex 5 ]. @3 c* L: N0 }4 F, C% M( F2 H
Dim lBytAscii
Dim lLngEncrypted % A4 j* Z( N2 t9 k
lLngMaxIndex = Len(pStrMessage) . [8 e. X/ n, o9 H0 B
If lLngMaxIndex = 0 Then Exit Function ' V) C5 d0 y/ L2 N% C4 ^
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) , P* j6 Y  W- p- }! y
Encode = Encode & NumberToHex(lLngEncrypted, 4) $ z$ l/ l9 x' ^; z: c7 X
Next
End Function
Public Function Decode(ByVal pStrMessage) 3 v  a5 d, B  z2 G+ L  U8 g+ Q- L
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" + V2 O, o% g; S& t8 I" l6 W9 h0 S
lLngMaxIndex = Len(pStrMessage) ) ^0 V( |6 E' s
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # {0 B& l+ F; z* Z- X7 X7 B
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function   S& P1 i: G% F+ P
Private Function HexToNumber(ByRef pStrHex) - B/ c1 l0 _7 p1 Z; C
HexToNumber = CLng("&h" & pStrHex) , _" X+ K5 v+ n2 _/ H# x
End Function 8 j, h, I2 \% H* v+ W1 m5 q& P: C
End Class 6 S7 Y2 p. m* E- [1 H
function Encryptstr(Message) ! \' B0 m, B  ~0 b8 W3 |  \1 J1 t5 t
Dim LngKeyE % z  p0 P6 h4 G( s. W5 h
Dim LngKeyD / c" `4 ]* Q  p7 A$ U! o: W& R
Dim LngKeyN , K! A7 j# k2 E7 h/ i
Dim StrMessage ( g- I: Z" n3 F9 p7 v8 `" ^
Dim ObjRSA * B! \, l; U% j7 w
LngKeyE = "32823" 9 z% H9 E; u9 |* P+ E
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA . A  Y" m" f9 \" a2 `  i0 J
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 2 p0 B: U) P; T4 |  s7 O
end function; f2 C4 b  N2 B& U+ V( I. {
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD / N% d* \% _% @  I4 ?, w& ]# _+ M6 A: z
Dim LngKeyN 3 O; P, `* M9 B8 N& ^
Dim StrMessage
Dim ObjRSA 3 s" I: a* o) Z( F6 g" s
LngKeyE = "32823" , B# Y  _# D; t4 L; E0 H7 y
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA % W* B+ ^5 s1 w4 X2 X. X3 X
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 4 M' }6 a/ M: T6 k3 B# R
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 1 E: k. o4 Q6 D# X- H
end function
%>, ~' o, F9 k& L: e5 a, }, l
===============================================0 O8 ?- g+ e) J1 @  i5 l
) t; L1 P- @' b
还有一个用于测试这段代码的test.asp/ Z  k. s1 C5 Q/ m; h6 R
有兴趣的自己搭建个IIS测试下0 j9 R- U& z( y1 R
 ! f. p8 f0 k2 J. I" i
<%
function Encryptstr(Message) , n* j# F( d: X" ^; x* p
Dim LngKeyE 6 N2 I* Z( f0 v% q: D9 S* c$ z
Dim LngKeyD 4 A' g# S+ R; Z+ U6 O% h
Dim LngKeyN
Dim StrMessage $ R+ g. ?% }# P% B$ S* M) O2 s5 t
Dim ObjRSA
LngKeyE = "32823" ) K: a. i4 {- u1 V  O0 a+ h  k
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message   i+ x& g9 `* |0 Y: F1 c
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN , T5 J! T  f0 p; g( O
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing " h% K6 K+ T! N0 ^
end function - r% p- ?1 d" }
function decryptstr(Message)
Dim LngKeyE - A2 w' g$ }  \) A2 [
Dim LngKeyD 0 S+ W# T) M& X
Dim LngKeyN ( \2 b; n  R. n4 d
Dim StrMessage 7 u& o( {) q6 r: _( R* ~8 m
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 1 t( j! g3 i8 \
LngKeyN = "29893"
StrMessage = Message - C2 V5 r: x6 I* j9 I$ [9 p" W' D
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 6 _. P! p4 `/ A& a
ObjRSA.Modulus=LngKeyN : s# h, I: l3 R$ h* F/ z
decryptstr=ObjRSA.Decode(StrMessage) * D; ]9 L8 K/ s9 |# C6 o4 `) H' Q
Set ObjRSA = Nothing
end function ' D9 y) T0 K' f7 s9 h4 @' @
dim last,first 9 K( Q7 z2 m% D: Q
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================" z$ H& W, }. y" y. B6 q
剩下的就是字符的对照表了! A+ C# s9 V! b+ G1 {0 Q" F! @- B
===================字符集================6 K* E8 S; `* o) c3 C
1_____6EBB& w* f. D' |+ k" C
2_____5C1F
3_____4D75
4_____26CC3 F  s+ F* n9 J, p$ ~" d# U
5_____4F88
6_____3F4E: ~7 Y8 e0 k" C' m
7_____0A9D' B0 G9 m+ b2 d. B$ L
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F$ h9 t  y4 t& ?' m* z
h_____0F9C# J: C, S" f1 ]
i_____00FA
j_____5A509 o' p3 _" H7 y
k_____28504 H! `! z9 C& M4 C, u9 {3 I8 I
l_____3E7B' j3 u7 q0 Q6 p7 E) e) [, P+ d
m_____71C51 L) ^6 Q, L( v0 k9 l) ?
n_____1FC8
o_____74C1
p_____5FB8
q_____60854 s& S2 d" o# u! x2 u5 Z! R/ v) g
r_____3AC4
s_____2F50; o+ z0 Q, U; ~* G/ g4 p/ M
t_____36F80 h, k7 E9 `( L* S& `% W$ Q
u_____7010
v_____0B42" a; G7 X& R9 S1 H
w_____1C7A
x_____16F88 ?$ B9 @7 K/ Z+ \# u& y
y_____2EE7
z_____5CF3( `) R# K9 z' M) n& I
!_____6233# Z( F' S+ _/ J4 E  ?
@_____3A45
#_____22913 d1 Y3 F' b' c% h3 ]- Y
$_____5D5C, P  T8 ^( f) e& U7 I# J3 y( G
%_____09B9
^_____43EA
&_____62B9/ a* s8 @& ~" b* {& g2 x4 p
*_____63015 R  R6 |4 y8 b' v9 j/ J
(_____4659' h& p* e# F# E) \
)_____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 分享给朋友]