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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm1 ?1 u% A5 @6 B! {! D
原始出处：http://www.3ast.com.cm
  [3 W8 Q( q* A) G6 h' v- P
看不懂的直接绕过4 T  R  s$ |9 X  Z7 m/ V4 \4 u3 X; ]
加密前为:hwy1234565 o3 C; Y- y  j; b# K
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
  a4 D% B% L3 I. M# n4 Y" w- n
============================================8 D' g! H& A( Q; @
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法% j" j( J7 e9 [$ N* ]5 t
以下是RSA算法文件

文件名RSA.ASP
===============================================
<% 5 k- b6 B- k) p9 t0 K( S3 D
Class clsRSA
Public PrivateKey % X: y8 Y4 ?( E- Q
Public PublicKey
Public Modulus 5 l! C  V9 e/ o8 X) @* |$ @( |$ u
Public Function Crypt(pLngMessage, pLngKey) , p) H6 D9 z2 C" M& U" g& b
On Error Resume Next 7 g5 i- Q* T& X. N" }6 ^
Dim lLngMod
Dim lLngResult 4 t1 K( }% i* @2 S0 s, ?
Dim lLngIndex
If pLngKey Mod 2 = 0 Then   F6 |3 n, ?0 [3 v
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ! }5 X6 |  y1 j% A- e2 b+ K7 ?
lLngMod = (pLngMessage ^ 2) Mod Modulus ( W$ k# l  C8 W
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ! C2 k& I7 |; x  B; m
If Err Then Exit Function
Next
Else . T% U: p, i; h9 X" W9 C
lLngResult = pLngMessage 0 P# a6 C/ `" h, y2 P
For lLngIndex = 1 To pLngKey / 2 0 m. e% M2 z" W; T: C, O5 j' p
lLngMod = (pLngMessage ^ 2) Mod Modulus ! f* O& V- U- {6 R# P4 t
On Error Resume Next
' Mod may error on key generation / Q* u3 e0 {5 _! n8 ?- ^
lLngResult = (lLngMod * lLngResult) Mod Modulus ) m6 k' L  O5 v; t7 B" n0 c$ `
If Err Then Exit Function
Next
End If
Crypt = lLngResult , G: k1 C* L/ w6 Q- G4 o
End Function
  a# K  S$ r9 }0 S, o
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 6 q0 P4 X8 H& v9 W+ U$ z! ~; Y
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 5 h  j( E8 v1 k: x5 _
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 4 c" Y1 P% ?7 u2 b* A: R% b8 ?" s
Next 9 d% n2 Z: h) ?
End Function
Public Function Decode(ByVal pStrMessage) 4 f' H# d* I4 h$ v2 {
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 5 J0 U, A1 y! M- [# l
Dim lLngEncryptedData * a8 d) _0 E8 D# S6 e+ i
Decode = ""
lLngMaxIndex = Len(pStrMessage) 4 `" r8 S5 M# z4 s: ]: c
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 n1 U! ?$ p( W0 B. Z; Q
Decode = Decode & Chr(lBytAscii) 8 v5 j, H9 W* {- U- P
Next 6 \2 o- x- ?4 M3 P
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) , S. M" P8 U; Y# n
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) / _* e* ]; K/ p4 ?$ n
End Function - }3 p- {9 N: T5 Z' O
End Class # q) }& P# L9 |: e4 i
function Encryptstr(Message) 3 C1 d5 e& z+ I* F% u
Dim LngKeyE
Dim LngKeyD 7 P4 C# D8 T, P1 o7 s" g( y% X
Dim LngKeyN # `, U4 d' c: X  U, T6 `) b
Dim StrMessage 6 ~# {" f9 s: E/ a2 q' q, G0 g' q0 C$ j
Dim ObjRSA
LngKeyE = "32823"   Q' U' \" [  V
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 1 t9 Z0 A5 e2 f8 |5 n; R' S. `
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 [, z- w/ ?) q: G
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing : A9 k7 ~) {% D8 n+ H4 Y, Z9 Q
end function3 s' ~# m6 T- C7 y. Z' t* {
Function Decryptstr(Message) 9 _6 R+ v( C4 ]9 `) W! W
Dim LngKeyE
Dim LngKeyD 0 m" M0 G* D/ j. F! p: j
Dim LngKeyN : @6 A) K- D8 r7 t
Dim StrMessage ; l. t/ F4 X! y* t
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 6 o: [2 t1 j$ g" T3 H
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD : i8 O+ g4 T) i$ L$ v3 b
ObjRSA.Modulus=LngKeyN - `% \, }8 H, J4 Y6 x! h
decryptstr=ObjRSA.Decode(StrMessage) 1 U  ?+ n9 h5 _3 f1 L* ], P3 ]
Set ObjRSA = Nothing
end function : Q: X; H4 I/ u
%>
===============================================+ g, S" D3 r1 J7 O5 h; d- o

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) ; ]* k9 c' H- V! _- `1 `
Dim LngKeyE ' q* O! q: F+ y+ @5 ^! ^3 R' }' n
Dim LngKeyD 2 x0 e- y4 u% M
Dim LngKeyN , L- l$ u1 J% V6 f. L
Dim StrMessage
Dim ObjRSA . b: p8 Y8 ~4 s$ a
LngKeyE = "32823" ( f" i- i$ Q" J& u
LngKeyD = "20643"
LngKeyN = "29893" : ^" y* ^/ d4 D/ k" _5 A/ E
StrMessage = Message 3 L& e, j3 ]) |2 p0 }. `8 X# F
Set ObjRSA = New clsRSA 9 Z( n8 E! q4 c! Q1 j- m9 X
ObjRSA.PublicKey = LngKeyE , _  C: v8 a* O" D" O( L- [
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing * `# P2 C2 y& ^* V$ i
end function
function decryptstr(Message)
Dim LngKeyE 1 m& x6 W& L. N. ~7 V' f7 ?
Dim LngKeyD
Dim LngKeyN ! d3 u2 V' B6 Z8 f4 i( w
Dim StrMessage " ]5 k  w$ b6 m2 P' A
Dim ObjRSA
LngKeyE = "32823" % Z$ Q2 d8 P9 i/ |
LngKeyD = "20643" ( s/ s& P  S2 Y# S/ k8 T6 Z
LngKeyN = "29893" 0 x8 ~( c" h; P
StrMessage = Message ( T' h/ {4 l0 Z/ z% u9 V1 w) |
Set ObjRSA = New clsRSA - p6 k% c6 t9 d
ObjRSA.PrivateKey =LngKeyD 7 ~' @9 @  ~2 z
ObjRSA.Modulus=LngKeyN ' |% U' n8 i' F5 S' |8 Q4 R
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing + P# I# S/ b4 E8 U
end function
dim last,first . f9 P4 X5 K" o1 O
first="!@#$%^&*()"
Response.Write "加密前为:"&first ! P  n2 r5 r) D+ v/ g# c: N) R
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) & p, e/ l* F- l( I+ X
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F2 o8 p, c& F! G8 F+ ~
3_____4D75
4_____26CC) I% U. L8 T! Z+ x2 w8 h
5_____4F886 Q0 A- t- a8 ^, t4 i$ u
6_____3F4E
7_____0A9D
8_____1A1C- R2 L) L( {( m6 o+ Z. m
9_____6D20
0_____1089
a_____0F3E
b_____3159" ]) ]- f9 ?0 L: |3 ?
c_____3517
d_____419C2 w" ~3 A& j& v3 a$ h7 y- ?
e_____615C, q. t  L5 m5 p0 c9 r' g' ^: R' j
f_____556F
g_____2B7F, i! A  _( ?! f' Z/ {
h_____0F9C
i_____00FA0 c! N) A8 S7 ~
j_____5A50  g( X6 U$ ?6 U, e, U# `
k_____2850' E1 P% p6 C- O! Q  P5 z8 _+ o+ x
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085" y0 M0 M. @9 x1 O* W2 u
r_____3AC4. S3 d" N& u' ?3 @3 h, g1 v7 }
s_____2F50
t_____36F86 j4 P& H/ n- W8 M7 n
u_____70108 f6 A3 E' Q. {) r* e
v_____0B42& m2 |1 ^& N$ C6 e1 |+ x% x
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA# k# O0 ~4 [( A- r! H( D/ L% i
&_____62B9- O+ u" d2 L% M* b) t
*_____6301
(_____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 分享给朋友]