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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 d# n7 j9 i6 y
原始出处：http://www.3ast.com.cm2 b1 X9 L9 v; S; b" Z- Q! z
" [$ [2 b" F! F: |
看不懂的直接绕过" a( B/ R% J- o* ^) z! m& _: E
加密前为:hwy123456) u% A0 |2 C) p
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
5 N5 @, t: A6 Z% Y0 L4 v* O# G
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================, y' m7 U; z5 v1 B* Y8 w( k! O
<% $ w$ L' F$ L1 A8 _
Class clsRSA $ z# [' F/ e6 G8 G6 ?2 H; y- |3 H
Public PrivateKey
Public PublicKey
Public Modulus - p- t& K9 u- H7 l9 F0 K
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod + [( l/ B3 g6 e3 f; Y
Dim lLngResult 8 V  T1 d- n' L6 ]  e- h
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation # ?' M# L& H# g# X; l
lLngResult = (lLngMod * lLngResult) Mod Modulus , v8 N7 G- o/ |) K
If Err Then Exit Function % [- E) N( U$ n: W" j0 V9 R7 \
Next
Else & i, M/ E( h& {. Q/ ~6 l* k
lLngResult = pLngMessage * E' I! L3 \7 f8 R
For lLngIndex = 1 To pLngKey / 2 6 A2 q* i% V# v$ `
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation ( x3 \6 B7 u4 C) }# S0 y
lLngResult = (lLngMod * lLngResult) Mod Modulus + ]# V( p; l# Z* O" B
If Err Then Exit Function
Next
End If 5 e7 t0 w6 B0 f; x* f  i
Crypt = lLngResult . Q9 Q' x# T  ]- d
End Function. L3 v- @. K6 ]5 L" n
9 H9 s) w$ \6 B
Public Function Encode(ByVal pStrMessage) 2 O9 B% }9 ?! z4 O/ ~
Dim lLngIndex + ~/ A" b- T! O8 R( }/ l1 F
Dim lLngMaxIndex - e2 G; ^$ F* P' f/ S0 }/ R
Dim lBytAscii + Z$ D  P# B4 m  Y+ [
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 9 @" [/ }0 e5 R1 `
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) " a- d! t) ^8 e2 [0 H8 [
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next . T% j2 d) w% L9 \( w5 ]- t' R; z
End Function
Public Function Decode(ByVal pStrMessage) 4 A+ n& m- J3 x* T8 n8 V
Dim lBytAscii ' X' h& a% s( i" k
Dim lLngIndex 6 k, x' O8 L+ v1 W; l
Dim lLngMaxIndex
Dim lLngEncryptedData 5 k" M% {- Y: Y7 V+ V
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 5 g% V5 M2 @) |  r3 R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 4 }+ z3 U5 ~! k
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) & i; M( Q' N9 x
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function / T, Z' `2 ?3 L! I& C4 l
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class $ X; V9 p5 L# ]+ \2 |* H0 R2 C
function Encryptstr(Message) ) G8 D- ~4 C; `/ \/ v5 w
Dim LngKeyE
Dim LngKeyD 2 e- }1 A0 y8 k3 d: D+ U% p- A
Dim LngKeyN
Dim StrMessage " u! d3 K& H& _; s
Dim ObjRSA 0 X% Q% i3 z# F
LngKeyE = "32823" ( u( _$ A8 ?9 y) e( s
LngKeyD = "20643" : W2 `! T% f4 z5 R# {2 K
LngKeyN = "29893"
StrMessage = Message * j( M! G0 m- L
Set ObjRSA = New clsRSA 3 h  Z2 V" ^8 j7 z$ G
ObjRSA.PublicKey = LngKeyE   j9 D/ ~* e. G4 t6 A  h2 N0 ^
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing " h1 x: {# [% @; |9 K! T, D
end function
Function Decryptstr(Message)
Dim LngKeyE ) @; J) g4 f* l1 t, J. k% r
Dim LngKeyD 3 z, ~+ L* A) O* |; Q
Dim LngKeyN
Dim StrMessage / v! u* ^- F7 ~8 `- G
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" % ]" c& P* h$ P6 _6 [8 W% y! x
LngKeyN = "29893" + V3 f6 R+ l( c( q; b- F
StrMessage = Message ( i( T- X6 Z8 u* t( m# [+ k
Set ObjRSA = New clsRSA $ H8 C) n, N4 r7 _
ObjRSA.PrivateKey =LngKeyD ) o* Y. {, V& r2 o8 e9 X8 P
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 1 l6 n% u: [, f! j& @* t& x
end function
%>+ v7 Z. C2 }5 S3 L6 ^# I0 @
===============================================. Q, B) w% U  e) h0 r. a
7 d1 }1 V8 k9 S( Q
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE ) B) W' U4 `7 u& T; C: M" G0 k' {
Dim LngKeyD
Dim LngKeyN
Dim StrMessage # w, U- ^  k( Y& T5 K8 i8 X9 g
Dim ObjRSA
LngKeyE = "32823" " v$ g0 q4 E; G% T9 n
LngKeyD = "20643" . I: i' H  ]0 H& L9 b* C! `
LngKeyN = "29893" % B/ ?: `1 |" A# s0 h+ n5 J
StrMessage = Message
Set ObjRSA = New clsRSA   w+ z9 M" \) Z! y8 T0 n0 D
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN & f! `, d2 h* H3 [( q% e: E
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing   u8 u' _: O6 t' a$ r' v2 h) S  ^
end function
function decryptstr(Message) : `6 o6 ?) C# i* N- o4 |3 a
Dim LngKeyE
Dim LngKeyD + d5 I* [* G# y. Z* r9 @% ~8 L
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ! b! u  S7 X' t/ J/ K- k
LngKeyN = "29893" : r. ]# f) E) k/ i6 x1 f
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ) h5 H) g9 H  _) y
Set ObjRSA = Nothing " s" P! L0 p$ W9 Y3 l/ _
end function 2 R# q. M. P' w: |- X
dim last,first . G# [) I; q3 C
first="!@#$%^&*()"
Response.Write "加密前为:"&first 8 W4 I/ X+ b- }7 w1 W2 Y
last=Encryptstr(first)
Response.Write "加密后为"&last 7 Y7 h0 _8 Q7 T( y+ `- |
Response.Write "解密后为" &decryptstr(last)
%> ==============================================, {" u4 P- y# z0 l0 H" y" r
剩下的就是字符的对照表了  I3 V1 s: [+ b# ~+ Y3 g; m2 ]- g9 Y
===================字符集================
1_____6EBB8 ?3 A8 b& f& h/ @8 m* r" T# G
2_____5C1F
3_____4D75
4_____26CC/ L- f; p, B. m; i+ j$ H
5_____4F88# J- t4 U( N  ?: W
6_____3F4E. w1 Q9 y9 a, X9 ], Z% j
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159; _( P- M3 L! b0 v8 ^8 r7 U
c_____3517
d_____419C, Y) ]% D9 Q2 K% k
e_____615C
f_____556F
g_____2B7F
h_____0F9C! @" \* w1 y$ Z7 F8 I
i_____00FA- e, |- i- s; s, E# m# x! [
j_____5A50& m3 ^( s# ]% R. u1 W4 u  }
k_____2850
l_____3E7B
m_____71C50 W  Y9 ?/ \5 o$ v
n_____1FC8$ F$ d: Z- Z3 M2 [9 H  K1 }
o_____74C14 S* f0 {# y3 U, a* a* H7 {
p_____5FB8
q_____6085
r_____3AC4! _  Z/ y4 q- D5 \
s_____2F503 V6 _6 Z  [! z1 D
t_____36F8
u_____7010
v_____0B42% g) ?3 O# ^% \2 _2 [8 x5 U/ n
w_____1C7A) h; Y& ]* o3 a1 X# m
x_____16F8
y_____2EE7
z_____5CF3) j. h/ O) ^4 A
!_____6233* A$ p9 @( a+ H1 x. Q
@_____3A451 Z) V, `/ f, n- U
#_____2291
$_____5D5C% R7 _! y% C' E4 h- L) J
%_____09B9
^_____43EA# r( C  `8 ?! ^! I$ i: M
&_____62B9
*_____6301; R; q6 B5 d5 ^, M; g9 B
(_____4659+ P8 {1 k" B' [" E' ^
)_____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 分享给朋友]