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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm, K3 J8 O# ]: L" U( e, k9 i+ Y# z

看不懂的直接绕过2 \6 P7 h' Z9 Z, w6 c9 g
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E# g0 j4 C0 o5 i  R

============================================& @5 Z; X! `( R& L! F
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件" |9 I- E* g  J0 U5 m5 K" b

文件名RSA.ASP
===============================================) Z% {0 C" L8 \" {; n
<% 9 y; r. \6 w$ L6 {: y
Class clsRSA * V* d7 i# n' W0 K1 }
Public PrivateKey
Public PublicKey
Public Modulus 6 Z0 B2 l! n, m" S* f# q
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next # v' t. g6 p8 w
Dim lLngMod ' C1 }' }+ c0 U" w8 o/ P
Dim lLngResult
Dim lLngIndex " |8 J4 z: v+ p
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 9 t; q3 c9 i7 i& W8 V7 M1 Y+ K
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 n, O/ a# ?3 g2 k6 r
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 7 f# U* ?0 j  v5 }5 q
' Mod may error on key generation 0 ^% b, z3 b9 `' }; t; n1 m* ^
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next / T6 x# O( a: Q; _
End If 3 c% o: g8 p7 H
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) . ^3 q% ?  _. g1 l1 S7 ~
Dim lLngIndex : B! I4 V+ O. y% m
Dim lLngMaxIndex 4 z0 Y5 c! i% ]* v0 ^7 L  a5 P
Dim lBytAscii ' O* B. u. a6 ?- g, ]7 o
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 1 [+ o! v3 W; b8 `
lLngEncrypted = Crypt(lBytAscii, PublicKey) & Y0 j4 A- i5 a) L9 D
Encode = Encode & NumberToHex(lLngEncrypted, 4) 6 N# S4 d( X2 W* O- K
Next 6 z7 f4 W6 b% e$ f  N$ K
End Function
Public Function Decode(ByVal pStrMessage) 9 Y) \0 f9 t7 ^* ^
Dim lBytAscii ! D/ ^" Y0 f- g5 m9 P6 O  H
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData & C" {# o, Z7 L9 |* Y" |+ l0 w
Decode = "" ! v- r" t9 K% Z* i# [
lLngMaxIndex = Len(pStrMessage) & W: Z, F& g8 {& }  x
For lLngIndex = 1 To lLngMaxIndex Step 4 / o' k4 J$ K& y2 G' c
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 7 K9 v0 _' B. `7 x# s
Next + }% T3 H- y$ ^) G1 E
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # A5 Y- n( o5 Z! e2 n
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) " b9 n# w: N  z9 [6 J+ c! \
End Function ( }+ d5 u+ H5 F
Private Function HexToNumber(ByRef pStrHex) 3 M; d1 r7 b, z9 C, H3 k" k4 W1 ^
HexToNumber = CLng("&h" & pStrHex) & l( e3 ~' G- S
End Function
End Class
function Encryptstr(Message) 5 L" x& @+ I) d& n" U! Q
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN % h; U& h1 z( ]
Dim StrMessage
Dim ObjRSA 5 g: Q% d. @8 G! R/ m% w7 [
LngKeyE = "32823" ) E4 G* t2 o1 _9 F  o
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE " U& i' m5 y6 a; k  `. S
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing # q; o' |9 S2 e. n7 Y. n
end function% B: ], ]+ e+ n8 o" c: X% R& P
Function Decryptstr(Message) 6 X  |. Z: v/ i3 G. ?  \
Dim LngKeyE
Dim LngKeyD ; C% t- o/ w7 D0 Q2 A, F6 D5 C
Dim LngKeyN % Y+ x0 s! P6 B4 G1 `  Q' |5 I( ^
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" * ]7 J; V# H# J1 `, M  h
LngKeyD = "20643" % `7 I, D6 D* ^  n' t
LngKeyN = "29893" 7 s4 {: w) V  c6 ~
StrMessage = Message 4 M9 s: H  h5 C/ s
Set ObjRSA = New clsRSA - X5 w, w+ K3 }* D8 [7 R9 L( V
ObjRSA.PrivateKey =LngKeyD & d* P* C& H+ K: j  `& \- c$ W% [
ObjRSA.Modulus=LngKeyN 1 I( V6 e9 G; y/ H; J  m3 W: |- A' ^
decryptstr=ObjRSA.Decode(StrMessage) 3 x% x2 }( g+ K  v
Set ObjRSA = Nothing
end function 5 R) l' L; r7 R+ q" P/ {
%>
===============================================( w/ @/ y$ ^0 T# b
" T; O! a( T3 z! _2 A+ E, Q
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下7 g! }- b8 {0 i3 }2 H

<%
function Encryptstr(Message) + U5 _1 s6 d# d' Q' n* U, Y2 R
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage / f& j. D# u8 f7 \& d' P$ n" `
Dim ObjRSA ' W; P! T+ ^* n  J9 T+ V
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" % ?1 n  P% \4 @1 N9 Y+ p
StrMessage = Message * R) x- ~) O  _' }% @6 y
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function . x$ C# B+ V2 J8 C" A4 Y
function decryptstr(Message) % ^* a$ U+ w( S+ H2 F/ C
Dim LngKeyE
Dim LngKeyD + }# ]7 I& `: V
Dim LngKeyN 5 g' _# X+ q- r  o/ S9 O
Dim StrMessage ! l$ m& a+ I9 |/ N
Dim ObjRSA
LngKeyE = "32823" 0 \8 T: s( H; `2 [/ D  Z
LngKeyD = "20643" . W; _7 f* b( T- O7 b8 x
LngKeyN = "29893" 9 Q: }  L+ m" R0 C7 Z2 t
StrMessage = Message
Set ObjRSA = New clsRSA % T- I7 ^+ V/ Y- Q( y* u0 s
ObjRSA.PrivateKey =LngKeyD 4 [6 Q7 R. e. [+ E2 S  I# f9 U
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 9 V' P; L+ N: `+ b  c) R  q9 J
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" # D! O' n, \" w. J% x
Response.Write "加密前为:"&first & ]8 p: I/ c4 v
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ' q* |+ I8 m8 o  v6 p. ~
%> ==============================================" J7 q2 i3 Z" l# I) P
剩下的就是字符的对照表了
===================字符集================/ I7 J' H" F8 O! I/ L. X  W! D1 Z
1_____6EBB
2_____5C1F. w8 A0 z9 v0 L0 E
3_____4D75
4_____26CC8 O% Q0 T3 s+ H5 d
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C# s( o, `# H& I1 T
9_____6D20
0_____1089
a_____0F3E6 \, e2 t* Y4 {  K+ M; T1 e
b_____3159
c_____3517
d_____419C  Z; U' U4 b6 V7 x- P
e_____615C0 J" a3 ?: Q4 m5 }" R* I, }
f_____556F7 E6 }  j0 {: r9 x
g_____2B7F. C6 d$ Q; u! Y+ O0 L& {
h_____0F9C% y( G. `4 ^* G* F! f( {
i_____00FA9 r# U% \5 ^" \0 S
j_____5A50
k_____2850
l_____3E7B, d, O9 R( z  i- O! Y- m
m_____71C5
n_____1FC8% m" q0 f% m: ]; X5 P( ]
o_____74C1
p_____5FB8' P# ?! l6 \% N% D, A2 V
q_____60856 M' ~, y) X5 a
r_____3AC4* G/ T. s" z0 g0 R& F
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8: F6 B, v& O/ q
y_____2EE7
z_____5CF3
!_____6233
@_____3A45& }; \1 S% v) N" W( v
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9' L5 ~! c2 W9 N. T( q" a
*_____6301
(_____46599 I4 D# k$ W: v' d
)_____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 分享给朋友]