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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm, u! ]: ^1 @* \" ]8 J7 \- E: \
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
: ^; v$ I" H# @9 \1 _% u. h
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家: {& o/ Y" E- b6 q- l
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件6 O6 Y5 t6 t' B& W/ X7 o4 C

文件名RSA.ASP
===============================================. a: B. s) l3 U$ c& b/ ^5 I
<% 7 W( P! t: z! y% `0 S! G
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus * z1 _' {4 i' t/ |
Public Function Crypt(pLngMessage, pLngKey) 9 K* D4 p4 ^/ x9 r
On Error Resume Next
Dim lLngMod 4 R1 {2 {, I$ v! a  U! W  Y
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation " y, w+ v* w3 y9 p1 V1 @
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ) e7 _- u, o! o6 L3 n% E& z& T
Next 6 R- _- O$ b( y. X! G! [7 s* j
Else 3 Y6 O6 g9 D' u' z/ M
lLngResult = pLngMessage * r/ @& @: k; l
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus + z, T# `, h' o
On Error Resume Next
' Mod may error on key generation 2 k. ?' w, h8 a1 K5 u
lLngResult = (lLngMod * lLngResult) Mod Modulus ( p' m5 U  s; `$ O8 H% _; q: _
If Err Then Exit Function   M/ K0 |4 k3 T
Next
End If - T! K( p5 U+ q  G" j4 x7 `0 [
Crypt = lLngResult $ D/ |" g% V. C9 S0 Q5 g' b
End Function/ N  T" @3 O2 y; w$ c4 X$ w4 B

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 9 @3 P/ S# [: u7 P2 F# {
Dim lLngMaxIndex
Dim lBytAscii 4 O9 P" J! R& B2 s1 {
Dim lLngEncrypted $ Q9 Y4 D9 ~% n  L
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ) `3 U  O- `6 k/ c# j
End Function ; ]/ `- F, s9 q
Public Function Decode(ByVal pStrMessage) $ X/ ^! c! j7 q$ ~; c
Dim lBytAscii 2 q$ j& T8 _  F8 R( Q& e
Dim lLngIndex
Dim lLngMaxIndex 9 Y; c/ ?# L8 S2 w1 g! \, O
Dim lLngEncryptedData % ~; x. T, J1 U% T8 N5 e% j
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function & O) ~+ e0 b1 u
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # J% C8 X2 t! c* |2 m# U
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function   r3 C/ |6 V0 `% Q& f6 R6 Z; B: ~
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 9 s7 e! P: b+ }0 Q; t7 P4 f
Dim LngKeyN & H- O# E# y: j% R( m+ ~
Dim StrMessage ' E1 _, |9 M0 G! f
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ) o0 ?0 y) y& y: [* \
StrMessage = Message 7 i) x& D5 y% M) T3 J- ?% o9 a- G
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE : k& I( n4 P6 D
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 9 \, _" W+ U# h; C  o2 ^! @; m
Dim LngKeyE , r9 a1 L' |: m
Dim LngKeyD - O$ i  m' \( \# Q  s4 u: O  _( o
Dim LngKeyN 5 ?( g1 g9 L/ l, B
Dim StrMessage 6 l1 L" }6 e, R. Q: F3 A
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 2 {! U9 \( I& E- N0 D, t8 I
StrMessage = Message
Set ObjRSA = New clsRSA 8 G% G. G! D; z! P1 M
ObjRSA.PrivateKey =LngKeyD ' i* E' j0 [7 U: F" r
ObjRSA.Modulus=LngKeyN ; ~& C. T  `; J4 z
decryptstr=ObjRSA.Decode(StrMessage) 0 t1 X2 Y: l' a  h) k, L
Set ObjRSA = Nothing
end function ; ~# h6 \+ y1 g8 ?: Y0 p+ D' L0 f, ~
%>
===============================================

还有一个用于测试这段代码的test.asp, G# N. [* [( S4 g9 V% i
有兴趣的自己搭建个IIS测试下" n2 ^1 U2 x% ?5 J
 3 U4 e/ p5 n# ?, x) G* Z: u
<%
function Encryptstr(Message) & f; Y, B$ T- Y) P
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage   h; w/ x7 p" H" j4 g, Q
Dim ObjRSA ( _+ C2 H- A! `* s3 H& q# V4 a
LngKeyE = "32823" 5 f3 T! q, O/ `5 p
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ; s) x( Q# `" j7 l
Set ObjRSA = New clsRSA 8 j7 C, l5 A6 L- `
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 0 L7 |5 \3 X0 Z, z: P7 i
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 0 \# k. T' H! _/ Y& s& g- K
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   v; P4 n4 `, P
LngKeyE = "32823"
LngKeyD = "20643" $ z, h4 ?  D5 g  o
LngKeyN = "29893" + l  D1 q/ K1 d
StrMessage = Message ! w! \9 f" [; Q7 W- p* f8 @- x
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 6 b& C- f6 s& D( ?4 J; V
decryptstr=ObjRSA.Decode(StrMessage) 2 X& F$ ?4 K& \4 V( M) C
Set ObjRSA = Nothing % X4 \* t  d+ r7 e& y
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)   u. t" q, I8 V* f$ V$ \8 O
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 6 [# y% Y9 ^+ R# X7 u' }6 F2 q
%> ==============================================+ x2 x( N$ F! m/ f: A
剩下的就是字符的对照表了: C2 v1 {, {7 }9 u$ x
===================字符集================
1_____6EBB9 ]( G. {* q6 [6 J8 y0 T
2_____5C1F
3_____4D75+ u) z' |+ {% J8 N1 N% x. g
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159' t5 j5 `) S" g1 z2 o! p+ S
c_____3517$ S$ G& k1 n" V8 D- ~) T8 K! R
d_____419C5 b- Q9 E+ {/ X' g5 V) q
e_____615C
f_____556F& N7 H. K5 c. a/ b' R: B
g_____2B7F
h_____0F9C: n* o, m3 R7 d. F: @" M6 C
i_____00FA0 V: I4 o1 q5 m1 S, D
j_____5A501 d6 H* N4 G3 ~( ]& ?
k_____2850# w( o( N5 P8 N4 o7 @, u
l_____3E7B
m_____71C58 ^7 Y' `1 Y( N
n_____1FC8/ v3 U( T2 F8 Y- c9 U
o_____74C1( K3 l, c6 [3 n) _5 B
p_____5FB8
q_____6085) V6 K( p. i2 Y% F% _) \2 F
r_____3AC4
s_____2F50' _0 J# B! H, _
t_____36F8
u_____7010' b. c. m* q7 t' @6 f
v_____0B42
w_____1C7A4 `8 w) n7 j5 [) b
x_____16F8
y_____2EE7
z_____5CF39 q/ O" ~& b  h* R
!_____6233
@_____3A45
#_____2291& m0 L2 H4 s/ P
$_____5D5C
%_____09B9
^_____43EA0 |* A3 E; B9 O  O8 M
&_____62B91 ~9 g2 t; x8 o) o1 o
*_____6301! c: B5 }9 d) U8 D" R
(_____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 分享给朋友]