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

算法, 大学, 研究

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

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E0 Y7 ?" q% m# b' w5 ~
8 k" ?3 @2 D# G! ^$ {5 r
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家& u4 F1 {" S1 |5 {
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
. w/ G2 S2 |! l/ i* s7 v
文件名RSA.ASP* [9 w9 }+ N+ i
===============================================$ C9 I+ w/ l8 r
<% * ]+ u! M% W* r! k6 [4 l
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next . H3 W7 w& @. L. L
Dim lLngMod
Dim lLngResult
Dim lLngIndex # M7 }6 a) e3 y) ~0 h1 d, s
If pLngKey Mod 2 = 0 Then
lLngResult = 1 9 P: c8 @  C) D. Q
For lLngIndex = 1 To pLngKey / 2 / Z: E$ H  |* P
lLngMod = (pLngMessage ^ 2) Mod Modulus : s* |0 D! g4 T; k& q
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 x$ V. v8 U% X" Q
If Err Then Exit Function ( b0 k+ x+ n, q0 d8 Z! j* e, U
Next
Else 5 Y0 p2 N/ U% h8 O. `4 w
lLngResult = pLngMessage 1 o$ i- e4 y: Z* U- L* O
For lLngIndex = 1 To pLngKey / 2 1 x7 W, U8 n9 B5 ^# l
lLngMod = (pLngMessage ^ 2) Mod Modulus - |3 W4 T3 [% C' @* _* o3 L: Q2 P
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus - t; i5 I  ?' A9 i& l3 b
If Err Then Exit Function
Next + b2 M6 m! `" m- z- Z9 `* y
End If
Crypt = lLngResult ' p) ~! b& i: l0 \/ T* f0 ?5 s
End Function

Public Function Encode(ByVal pStrMessage) 9 P( N/ F! e7 z; K
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted * m3 n" o/ V' C0 t) p2 [2 d8 |
lLngMaxIndex = Len(pStrMessage) 1 j8 l; ]! a8 U9 A; }8 k0 Q
If lLngMaxIndex = 0 Then Exit Function 2 y# b3 a+ W2 C8 P: u
For lLngIndex = 1 To lLngMaxIndex 8 J$ p3 L9 C& A- s
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ' D# j3 A7 q/ X1 `: T
lLngEncrypted = Crypt(lBytAscii, PublicKey) ) L8 ~2 ]  Z" |, y- J
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex ) ^4 O- N3 q" N( z3 X
Dim lLngMaxIndex ) H) U! s# i6 Z
Dim lLngEncryptedData - a, w7 ]% Y! N' \$ E! ?6 \. f
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ( H. Y% ?. W7 f- i7 x0 j: v3 ]
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) , g% `: V# Z# j" w: c
Next ' h! @$ M  Z. I& k8 ^) ?0 n
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ! J* ]) K5 n5 V/ b3 `$ Z4 L
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function % P+ q' R* s2 ]" q( I
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 5 Q0 d' W: F8 N0 ]2 j
End Function
End Class + A+ H! ?: {& u6 F. X
function Encryptstr(Message)   Y2 U0 L8 d  U) O, {6 \
Dim LngKeyE 0 u, U2 _' l" U8 ~* C
Dim LngKeyD . ~  X% R  g+ o
Dim LngKeyN " J: q# ^7 D" A, \% m% t6 |
Dim StrMessage ' x. E3 d8 _: Z# z3 |* W  V
Dim ObjRSA + D! p0 u* O) T+ W
LngKeyE = "32823" 6 U% N5 \1 ]% O8 ]* s
LngKeyD = "20643" $ A* {, l6 L2 \% p
LngKeyN = "29893"
StrMessage = Message * {* b! C3 W3 w! N6 ]( x" B
Set ObjRSA = New clsRSA , D7 ?& ~4 c5 Z+ \. a) P4 N7 c* F
ObjRSA.PublicKey = LngKeyE + z/ Q$ Z$ Q: K
ObjRSA.Modulus = LngKeyN : G$ S! ]3 \: i
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ( z/ o- N7 L8 e( O7 \. ]
end function
Function Decryptstr(Message)
Dim LngKeyE : \+ v1 {9 P! U% j( b- c; j+ Q
Dim LngKeyD ) @1 l4 W8 ~& u! C' M
Dim LngKeyN 6 \$ C$ O# a% M7 V2 l
Dim StrMessage
Dim ObjRSA ( x' h/ k) Z+ Q0 l& b. V, H
LngKeyE = "32823" 3 P* v8 R# R- C% Z+ M; K
LngKeyD = "20643" ( U# R8 o) j- ~/ Q; G
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA . L. [, }8 I5 T  E
ObjRSA.PrivateKey =LngKeyD ; d, F! |& k6 O, e
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ! |; M7 I8 G% y* p& j
Set ObjRSA = Nothing
end function
%>% V4 u4 _5 B6 \% Z
===============================================

还有一个用于测试这段代码的test.asp3 ]4 _7 f) ^5 c) f# r9 U
有兴趣的自己搭建个IIS测试下9 T& h5 B- ]0 F0 t9 ^8 ^5 V0 B9 K; C! m
 & e6 f# o" l; a* M
<%
function Encryptstr(Message) 6 {3 I1 d0 p1 S0 N$ z  X( }4 E2 l- t0 B$ C
Dim LngKeyE + F) R5 ?. b8 A1 k& @& n
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" % ^. ]. y4 f! }* {. `4 K" T
LngKeyD = "20643"
LngKeyN = "29893" . L. {  b, S, `4 B, L) U) l
StrMessage = Message / I2 A6 Q2 _3 b3 f! c
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 4 I$ t) T& G& b+ j) J. t! c
function decryptstr(Message) ' W0 a" u0 \! t2 D# ^
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" + ]  D3 E3 X1 x
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 3 R3 T; h) n$ h; S- K
ObjRSA.Modulus=LngKeyN $ m; r% L$ h1 [7 P6 f. u, E$ J
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ' I& B4 x! D- [* w
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) " Z  E  C" Z6 D! S" f1 M) [/ c
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) # m' v6 Z( h2 L9 L1 o0 `, d
%> ==============================================
剩下的就是字符的对照表了: j$ }- s) E( j3 ?  _
===================字符集================1 e) @" c' R5 P! A% k
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC3 y( J" _$ F# i( G: T4 i
5_____4F887 M" j# s) S1 o6 {. H5 r
6_____3F4E7 l* q+ L3 `4 }' R
7_____0A9D
8_____1A1C6 q9 p/ G. D& D) N1 ~  k! a. Y, i- x
9_____6D202 q: {, P  T: v& {) C
0_____1089
a_____0F3E
b_____31590 X$ C" R0 }$ w1 {1 N
c_____3517
d_____419C
e_____615C1 B; F7 c' @: j! G  A) j3 z
f_____556F' p6 D  Q1 F! L$ S& B4 R7 P" z
g_____2B7F' D: x3 L/ l+ {6 W8 k+ j6 k
h_____0F9C
i_____00FA2 o9 r: [4 s2 T2 n' ~: l( L
j_____5A50
k_____28501 D+ h% H3 R- f' T, d
l_____3E7B
m_____71C5$ ?( Z  C) s, Q7 ]* ^' N9 c2 u$ _
n_____1FC8
o_____74C1
p_____5FB8
q_____6085$ ~8 j- K* p/ D. e# i/ Z* q
r_____3AC4/ b& _" s  y: T/ w2 Q* ]
s_____2F50
t_____36F8, z2 `9 k0 x6 M4 s8 [
u_____7010
v_____0B421 u1 A$ P; ^6 D3 ?7 Z+ i, K& t, M
w_____1C7A" A$ f. @' h5 q) M
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA! H5 N9 s  ~" N* W
&_____62B9
*_____6301
(_____46599 g2 R( z! f) }
)_____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 分享给朋友]