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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm! V( K, |# L1 Q8 q9 g& P7 f
原始出处：http://www.3ast.com.cm
/ ?* Y1 T/ |% `3 T" b5 B
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E$ N3 C# U; B2 d4 M  Y

============================================$ D5 c8 p7 K1 A  s# m2 O6 ?0 ]
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件1 {' y. b  g9 k* g& x8 [" k

文件名RSA.ASP
===============================================
<% 0 `" J) e2 U% M" P
Class clsRSA   S7 z* a$ b  p: y" ]7 M
Public PrivateKey ; H' x( n  K" H( q# i- [8 R2 R6 l
Public PublicKey
Public Modulus - Q, ^+ S0 I2 F3 O, {
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next   f4 s8 z4 C0 h% I/ n- Q! G6 z
Dim lLngMod
Dim lLngResult
Dim lLngIndex - K9 @9 f8 `! ~8 W, {0 ?' C9 Y: T
If pLngKey Mod 2 = 0 Then
lLngResult = 1 , ^5 M3 f& ~1 V- E9 ?
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 Y; l2 M4 ]8 W1 q; _$ y) _
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 R. F6 ~0 T6 h. W  s
If Err Then Exit Function & o6 d; E0 L5 p* Y9 o( z0 @+ z
Next ! q) m7 q* N. R, I' w# o" X
Else $ D, X' i+ _* P* I8 U8 H7 f" K
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 # Q% K4 p8 C- i0 L! Q& O3 T5 A
lLngMod = (pLngMessage ^ 2) Mod Modulus ! H" T9 f  c# w
On Error Resume Next + H% R5 Z8 z" M8 ^; S: m
' Mod may error on key generation : K8 ]# h, v; V
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function
/ h3 ]2 S# l6 k$ c3 X. U
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii / J) n# ?& N3 ~2 {( T7 m7 z
Dim lLngEncrypted 8 |. l# ^0 G: ~) r& g0 V" q
lLngMaxIndex = Len(pStrMessage) , _( n/ a$ l+ b. N6 I
If lLngMaxIndex = 0 Then Exit Function ' I/ o1 a6 N4 n+ ^( s) \
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) & A6 M6 k5 h% G9 H8 `
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ! @9 _/ ^6 R3 X( b
Public Function Decode(ByVal pStrMessage) " k5 x- h7 e' o! `/ h
Dim lBytAscii
Dim lLngIndex , h2 W+ s1 ]! e
Dim lLngMaxIndex 6 b0 L6 v* f+ _: y
Dim lLngEncryptedData " t/ U# I' }  v. j
Decode = "" " w* U- s; D2 q
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 0 w0 r) s& K6 y
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 9 e. D! k" o7 e2 M+ ]7 K4 C
Decode = Decode & Chr(lBytAscii) ) o! T: I# e. M) T) W8 @
Next
End Function 0 I/ v. f- s# F! [
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 9 r; f* V3 p5 [8 ]3 D
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 4 p  L. N& c! Q0 p
Private Function HexToNumber(ByRef pStrHex) * F' t+ C1 s( B, |. i
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class " ~9 x/ S, `- c0 }2 F( q3 T
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD + l4 Z$ X# M) u$ F% J2 [
Dim LngKeyN 4 u" N* M% }/ O+ W4 Z
Dim StrMessage   o4 j" N/ g% ?, b
Dim ObjRSA
LngKeyE = "32823" & o; d& h" [. w
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   C7 i# g$ z, z4 P
ObjRSA.PublicKey = LngKeyE 2 J( G9 b% x) i( S: K
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing + @: f/ u& X5 N- `6 v
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD   {8 b" X$ h) C
Dim LngKeyN 1 V' e  b+ [; G2 C/ C' R4 Y5 a
Dim StrMessage 9 `! J+ l) a- @' W# p
Dim ObjRSA
LngKeyE = "32823" 6 L! H$ E7 E9 s
LngKeyD = "20643" $ p3 X* t8 T- A5 z
LngKeyN = "29893"
StrMessage = Message $ c6 F7 K3 s2 O! k. t
Set ObjRSA = New clsRSA % |0 h7 z; _, T6 N+ @9 Y% k
ObjRSA.PrivateKey =LngKeyD * z) c) G* b8 W' d4 w( J! u0 t, }% g
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 6 F% P4 }8 Z$ d2 T# \' O( ?
Set ObjRSA = Nothing 5 Z& S: q% c( C2 Z
end function
%>
===============================================

还有一个用于测试这段代码的test.asp: r! ?4 k: I3 g
有兴趣的自己搭建个IIS测试下' d2 P/ _1 C: t8 a( e( u9 o
 % a! k7 {, K9 u& ^
<%4 Z% E6 E! K% Q: N
function Encryptstr(Message)
Dim LngKeyE & ?; N# L+ ?1 I, P, T
Dim LngKeyD * A4 w  w3 ?. v& y2 x" m1 v! u. ^7 H
Dim LngKeyN - D2 ]/ m/ B5 d5 X: g+ W( n' N
Dim StrMessage
Dim ObjRSA 3 F0 F* Y1 r7 v- ?: v
LngKeyE = "32823"
LngKeyD = "20643" # @. T# c- ^* ~3 T
LngKeyN = "29893" ) @6 x! @* {/ I. c+ r- g
StrMessage = Message , |5 R# D  O' y+ f
Set ObjRSA = New clsRSA # A; y6 d7 f) ]8 e
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN . t7 |2 r5 G- f7 Z5 Y7 v2 Z
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function ; V0 s- s) ^3 [1 f6 E6 C
function decryptstr(Message) $ N0 Y* v5 G7 ~0 l5 A& I
Dim LngKeyE
Dim LngKeyD ' R% M, J; M* z6 V6 r# [% z
Dim LngKeyN ! i% b1 B: j% }) E9 q# l
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 5 ], t5 [6 F6 }/ C) H" }: B" K
LngKeyD = "20643" 0 ~; O, v+ }5 B6 d$ D
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; v) L, j( L! x. \5 j6 F, n* p5 j
Set ObjRSA = Nothing 8 d9 \  A' T' o- W2 p
end function
dim last,first ' R0 Q, `) A0 ^2 w# b. `3 }
first="!@#$%^&*()" 3 O# P* s# k9 t4 W) Y. L, M/ n$ G
Response.Write "加密前为:"&first
last=Encryptstr(first) " C' ^  i# Z, o6 u& y  X1 z: b9 Q
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================: Q  f1 U, Q! p+ B! v% @
剩下的就是字符的对照表了
===================字符集================% S9 R8 ~! p, S# q  k2 _* U
1_____6EBB$ \  {' s" B: s! A
2_____5C1F
3_____4D75
4_____26CC
5_____4F881 ?) y" ]- g; _% p3 O( ^6 B: @( k8 G
6_____3F4E% T) U  B9 S5 i' J
7_____0A9D
8_____1A1C
9_____6D20
0_____10894 h( a3 z# n1 g& k0 g
a_____0F3E
b_____3159
c_____3517. F, z( ^. W2 O0 b
d_____419C, P: }6 E% F5 Z! D0 j
e_____615C) I( n1 Q6 K, X8 D  w
f_____556F
g_____2B7F# \  A3 L0 {) q5 x% a
h_____0F9C
i_____00FA
j_____5A50# a! G% ^- L% x6 q
k_____2850
l_____3E7B
m_____71C5
n_____1FC8' k0 V$ {5 f& A0 Z+ \
o_____74C1
p_____5FB8" J& T# ~/ v  ]( d& P
q_____6085* ?( v0 S* e1 O  X  W! _7 ?
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A  M+ v' _, z3 _! j( B5 J- P) @
x_____16F8
y_____2EE7, N5 Z* {8 E4 a* s
z_____5CF3- y; m' M% R  @' e6 q; O
!_____6233+ W3 _9 d) E& p9 H2 o
@_____3A45( Z' v- ?: c) P8 ]& t6 m6 [7 e
#_____22919 M1 g" J: |' z& p+ J
$_____5D5C& G& d! V4 K7 b
%_____09B9
^_____43EA
&_____62B9$ C* \; F% K( N# H5 m* R
*_____6301* i( e" J% I% N# Z  ~7 L$ L
(_____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 分享给朋友]