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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm0 H2 T" A  Y" _# ~
原始出处：http://www.3ast.com.cm- P: K2 j5 o2 A# ~; H2 R

看不懂的直接绕过
加密前为:hwy123456" x1 e5 U6 C8 Q: [; [7 K
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================- U" F9 W+ N6 E  f7 @
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件7 o8 ~# i3 g" \( r. O
2 z8 K$ n& v% W  m/ V
文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey : K$ N2 ]5 T/ j+ f* C# u
Public PublicKey 7 N0 z- x9 J( b  r6 I
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next   y+ ]2 p  X! w4 {" G8 Z0 [
Dim lLngMod * Z3 N4 f2 [% Y, F
Dim lLngResult
Dim lLngIndex 3 b! Y/ {; m; `. Z6 O$ s: B
If pLngKey Mod 2 = 0 Then ! d5 `! F# Q; W2 D# P& v9 I+ g5 x
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 8 Z' h9 s6 ^& w; D0 b
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ; m, B" b  F% ^* S" N
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage * s9 g& @2 \% h8 x
For lLngIndex = 1 To pLngKey / 2 # W- ?$ C9 z, u; Y$ ]
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 8 V  M; A: `8 c: t. _
' Mod may error on key generation + t! n2 s0 y8 B- o8 Z4 g
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If # L$ U3 o# U& W. y. I/ S
Crypt = lLngResult
End Function$ S0 r0 y9 t; R. Q4 m- E) W$ h
: H3 ~9 A2 N# o' ^8 k; t/ f$ E6 T
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ) k$ T. @4 k3 p+ _& S
Dim lLngMaxIndex - K) C+ b8 p# s- n3 s& ~
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) % ?, [! M& r2 F( k. o- z! [- _
If lLngMaxIndex = 0 Then Exit Function ' C! c4 m+ ~7 {" J: S6 f, r
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) + F1 K2 J, [% d2 m; e
lLngEncrypted = Crypt(lBytAscii, PublicKey) ' c: h$ p4 W4 l0 U
Encode = Encode & NumberToHex(lLngEncrypted, 4) ( @9 T% T% N+ a2 Z6 R
Next 4 p) T- z* [$ @- r0 u- g3 l0 p
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) : h% Q; `- a( m+ x: H
Decode = Decode & Chr(lBytAscii)
Next
End Function % m! C* Z- P$ \. y4 M
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 1 H: U4 c* D9 ?6 q' \
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 7 Q- R9 T  x* M
End Function
Private Function HexToNumber(ByRef pStrHex) 0 v7 T; G: O  t" o
HexToNumber = CLng("&h" & pStrHex) : S# N, c) F& c5 t4 j3 X/ |
End Function 8 V9 Y8 _7 f% y2 N' z- N' x$ l
End Class * E2 k, y" R: q
function Encryptstr(Message)
Dim LngKeyE - z3 P/ Y' t7 J: `2 J& A5 g
Dim LngKeyD
Dim LngKeyN 6 ^, t/ x+ i8 O
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" . R5 m9 Z. O4 `2 d
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) $ w& B# R( ?* Q7 a' D2 v
Set ObjRSA = Nothing 1 \# p/ I4 S' \
end function
Function Decryptstr(Message) 1 x+ L) y) _" O8 B
Dim LngKeyE 5 Y/ _, r/ S5 S
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA - d7 }0 Y1 n3 P" [( F' g, e3 {1 `
LngKeyE = "32823" - H9 Y) V, ]1 S
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 0 Y, Z: R+ r6 Y- b3 I1 H2 y! Z+ M& o
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 V2 ]; Y6 x6 U6 z! W- @7 l: i
Set ObjRSA = Nothing ; D0 f9 R; ?! ?/ W" J8 W
end function 0 e- u# Q" E5 m) v4 b- Y
%>8 E4 E. @. o8 S2 S; k" m
===============================================" t7 {6 C* ~8 z7 K
! u/ n9 G+ l8 k, s# \% ]5 S
还有一个用于测试这段代码的test.asp: N9 Z0 G" v7 X: n3 M
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) . h( g  C9 j( s7 i* ~. M3 T% e& C
Dim LngKeyE
Dim LngKeyD # F/ }, r% L' o! t4 |( i
Dim LngKeyN
Dim StrMessage
Dim ObjRSA + L; N$ H% p$ ~, k! Z1 u* z# m/ }
LngKeyE = "32823" 7 N1 J9 C, S5 H  f( a
LngKeyD = "20643" ( J9 W# d/ G' J. n7 t% @
LngKeyN = "29893"
StrMessage = Message 3 L8 d% t% J  H2 ~# ?
Set ObjRSA = New clsRSA 0 v# b7 D# x1 w) J3 ]
ObjRSA.PublicKey = LngKeyE ! w$ w* B- X2 ?+ Z1 a3 @0 K, W) D) [" y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) * l8 N/ d( F1 g# C+ R# @9 g! S
Set ObjRSA = Nothing   F9 G+ J" B0 }# `" t2 R
end function $ `( t$ p  B0 j- \
function decryptstr(Message)   [( r+ u+ f" M. L
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 7 ~, m2 A7 v6 T$ g  |) {
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 1 Y0 X/ X! g3 W4 ~# N1 o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 2 Y1 J: }5 U1 g* r4 x
end function " {4 h5 c8 b2 V+ J; m; p' Y! Y
dim last,first 0 G0 k/ j  G4 W" [- W0 C! _+ s
first="!@#$%^&*()"
Response.Write "加密前为:"&first % x4 j9 I0 v4 D( y0 a
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================3 }6 ~" G+ C/ g
剩下的就是字符的对照表了5 w, S' C+ {# {; `) S( |  j. r
===================字符集================; E/ K6 f+ s9 T5 X
1_____6EBB0 @( P3 h9 R- Q5 \/ |0 o# Y1 x, e
2_____5C1F
3_____4D75
4_____26CC
5_____4F88% p' f, r' `" N; I9 c& y
6_____3F4E
7_____0A9D. k1 U- }6 S' ~6 P
8_____1A1C  E$ I" }: `; Y0 N, h9 H! R
9_____6D20
0_____1089- M  m# s7 W+ Y+ x* w9 Z; \
a_____0F3E
b_____3159
c_____3517$ L' q& L2 D% |3 s- P
d_____419C5 e; b$ \+ a2 _; V
e_____615C8 T4 {; z' w) q: C6 w/ ~  d1 ]0 E
f_____556F
g_____2B7F4 U: q. p# Y- _3 c& x" r
h_____0F9C
i_____00FA
j_____5A50
k_____2850; P2 M+ [, a0 h$ B+ Y+ t" Q
l_____3E7B& `& h& y+ \- ?3 a% v
m_____71C5
n_____1FC87 Q8 J  x# a2 C! @4 t. N
o_____74C1' w8 b8 A- \0 A7 X* C% h
p_____5FB81 D$ t  e" h3 y, M, Z$ K
q_____6085
r_____3AC4# q  z4 H+ r9 |+ |8 b- J
s_____2F50
t_____36F8
u_____7010
v_____0B424 ?2 q7 ~1 @+ L* l3 R# `+ F
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233! T3 H& \" U% e7 q. e# y
@_____3A45. P8 M6 T  L' `$ ~2 y) a. V. G( B
#_____2291
$_____5D5C
%_____09B96 p: N2 O$ ]0 t$ l
^_____43EA
&_____62B9; l7 q& {; Y, O! m5 x: Z
*_____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 分享给朋友]