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

算法, 大学, 研究

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

看不懂的直接绕过  T0 s$ T0 \8 r% h$ {2 K' O; a
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
- n: o4 I' ]6 W# P6 L% u
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
( u, y. _& G/ S
文件名RSA.ASP
===============================================
<% 5 a8 _9 i$ z% ~& V5 W) y
Class clsRSA . E9 B5 b" v/ L- H) N
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ( R. x$ G3 m* L) ~
On Error Resume Next ' b5 ?/ \% A1 A5 c( k* V
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus , K& L+ t9 u* S9 y2 z% g2 K+ z( x) w
' Mod may error on key generation   A/ C- [' e7 r' Y, x" ?' p$ F+ c
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next * J! c$ `. O; E- Y  b+ k. x
Else
lLngResult = pLngMessage 9 U" |, [% a! l1 P9 {) j- J
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus * Z* Z. G% ?( u. ]$ ], J: M
On Error Resume Next 0 M7 \& x$ Y( W* f0 y7 R
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus . A& z: l& J( e! p: r
If Err Then Exit Function . Y. r) D, F/ [: a- C* B
Next ( N4 b, D' g* H0 O- p. b  S
End If 5 G" ~7 B- d& b2 x: p
Crypt = lLngResult : ]8 z$ L7 u: r8 Z% A8 E' ?- f
End Function2 K  ?$ I6 H/ h* {( R

Public Function Encode(ByVal pStrMessage) 8 E6 T/ L8 y' z( k: O% \, z" r# m
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted / Q9 j9 z8 X- j+ k8 G( @4 B8 {
lLngMaxIndex = Len(pStrMessage) 3 B% p2 Q: P$ V: a' G% k# E
If lLngMaxIndex = 0 Then Exit Function / G2 R0 Z! Y3 e; V8 j5 D
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ( g1 i5 F* h$ D# U: A
End Function
Public Function Decode(ByVal pStrMessage) 0 i* m" x7 X  ?3 }7 K
Dim lBytAscii
Dim lLngIndex . f9 U' ^/ {+ m# m3 S  [2 L
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 0 b6 ?! W9 s1 v8 f; d
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) * L8 n3 w. m% N. w7 F$ _$ K
Decode = Decode & Chr(lBytAscii)
Next ) n' H  w; A0 @5 h) t! R' J
End Function 6 `  h% D; t, n+ w! p0 ~( F. ^6 Z
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) + ]$ ^  q9 m- V4 B; K
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 6 k6 n- W0 h( Y
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 8 \- \+ a0 @* x& {
End Function 0 W9 A' E) T  d9 L6 G
End Class 1 a) }$ P" h* e
function Encryptstr(Message) 8 s+ z, D  T$ f3 x4 ]9 {
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN $ r) ^  q% _1 C$ K9 ]* d
Dim StrMessage " K- ]2 p% U5 g9 h  Y
Dim ObjRSA 0 S5 M# u3 {2 W) Y0 T$ D
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 7 @5 w# k# A$ R7 C# A" m& |/ A
StrMessage = Message ; i# D+ f( ^6 \8 v" ^) Y
Set ObjRSA = New clsRSA 4 i' {5 O2 E3 H/ o
ObjRSA.PublicKey = LngKeyE " I. s# V4 L/ }& {
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function. p8 I2 ]  W$ o' r- R8 v5 k) i
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD   I: |+ r2 q; w/ Q/ _% }
Dim LngKeyN
Dim StrMessage ( J3 Q4 w. r* K# {4 T
Dim ObjRSA 2 K$ x, U( U: N: r) K
LngKeyE = "32823"
LngKeyD = "20643" 3 O/ _  Q+ p& l5 h$ h
LngKeyN = "29893"
StrMessage = Message 8 S$ y$ B0 n8 F$ D
Set ObjRSA = New clsRSA 0 }+ d; Y7 R* f' A: ?
ObjRSA.PrivateKey =LngKeyD ( {$ C# Z2 f) o0 @
ObjRSA.Modulus=LngKeyN / A! t* {% G5 L5 D. n* n$ o7 P
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing % ?+ @7 w: b% P) p# U' c+ H" M6 j
end function - L" M! X) p% j/ P+ \; y4 ^& c
%>  W) @) l. s4 L, _4 `2 d$ y, x
===============================================* v; ?9 @- j: s7 B7 t4 W
  f; P: ~. ^. z1 `" T1 w* D$ k) |
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 * S  h& ^2 p* X" l/ k4 _
<%
function Encryptstr(Message)
Dim LngKeyE - x, I: r, }( p; y% h0 B
Dim LngKeyD
Dim LngKeyN - h7 \$ a! H  G
Dim StrMessage
Dim ObjRSA * G  g  f4 a4 u! T6 H; x
LngKeyE = "32823"
LngKeyD = "20643" 2 v, y0 ?- x: B* x
LngKeyN = "29893" " T$ f, l4 X' T$ O
StrMessage = Message
Set ObjRSA = New clsRSA : f2 Z3 A$ T5 V7 l+ i+ d  S: V
ObjRSA.PublicKey = LngKeyE 1 U" [- N* D. Z7 W  A3 s/ `" I
ObjRSA.Modulus = LngKeyN 4 ^; ]" Z  R: e
Encryptstr = ObjRSA.Encode(StrMessage) $ |7 m3 }7 c6 G. L9 `
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE . @+ F# J8 v  @/ L
Dim LngKeyD " K1 K! U6 O% ~" R! ?  w# }
Dim LngKeyN
Dim StrMessage & D# E# D5 O7 C' v; Q- d
Dim ObjRSA
LngKeyE = "32823" # r/ c; T' `, f& u5 G8 `
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message , U3 P( Z+ L* J5 X2 @
Set ObjRSA = New clsRSA 7 j' N0 S/ {% V
ObjRSA.PrivateKey =LngKeyD 5 }& t7 t. W( y7 Y' ~' B) K2 u
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function + v% i9 @+ ]$ X
dim last,first : l4 d* q) Q) u8 `( a' G
first="!@#$%^&*()" $ U( Y: q* _$ \! n0 [* M
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ( V+ V0 z3 Q7 q; \7 }( A
%> ==============================================
剩下的就是字符的对照表了
===================字符集================6 ]! j6 K  R) V+ U
1_____6EBB
2_____5C1F1 b, N* F& p( M
3_____4D75  n) O9 U5 A( g8 v' w
4_____26CC
5_____4F88/ Z+ `  Q% y5 j
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20) Y  ?( Q9 o8 K$ H
0_____1089
a_____0F3E9 {; \& H6 v+ ]1 H( J2 ]8 V
b_____3159# Q" B) _$ X. w% Q
c_____3517
d_____419C, d2 O; e4 a( J1 T, r
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA7 u* H8 h# c8 j2 }' P# F/ W
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1* a' r- v  Z- q- W4 Z! Q
p_____5FB8
q_____60850 v0 }" x4 k+ ^2 B
r_____3AC45 f' t, V! u" X
s_____2F50! \1 `1 n5 A  t
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F81 m0 g% @0 F$ H/ }8 M( T7 t
y_____2EE7
z_____5CF3
!_____6233+ ?2 B" y/ ?, c8 U% ]
@_____3A45/ \% q4 d0 S- x5 V0 k4 r# |
#_____2291
$_____5D5C/ v5 u& {3 U5 u2 b* X
%_____09B9
^_____43EA
&_____62B9$ t" [+ j% [4 P
*_____6301) c( K: a; g# Q; Q" G+ N& I$ E
(_____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 分享给朋友]