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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm' q5 {- a4 ?+ V2 P! v) z
原始出处：http://www.3ast.com.cm
( L/ g) K) i: o" p+ t1 g
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
& X0 _" A! ^6 p. p
============================================) X. R) }* V- G, T/ Z# P1 g7 A& n
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法) o( G( j  \, W: {! P0 D
以下是RSA算法文件6 [/ M+ T. t' _0 t" q: \. t
- ^- H  A9 Y2 L, p9 y4 ]: k
文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey
Public PublicKey ) ~# `+ V5 s! a% O8 k4 U# e
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ( N% v0 g9 y0 b& u
On Error Resume Next . ^% j% X- z& D% Z4 X. f$ _
Dim lLngMod
Dim lLngResult
Dim lLngIndex 0 z" K# }( T6 f& b1 X$ C
If pLngKey Mod 2 = 0 Then 1 D$ E1 t* f' _5 @0 N' i
lLngResult = 1 ! J1 \9 {/ J# ^, X% z& ?% ~
For lLngIndex = 1 To pLngKey / 2 ) M, L# ]0 n/ X" ?- J" b$ c
lLngMod = (pLngMessage ^ 2) Mod Modulus : d  i9 Q( _1 R
' Mod may error on key generation ) ]5 P3 s! r" }9 l! B
lLngResult = (lLngMod * lLngResult) Mod Modulus % j" h$ [6 c# k- c
If Err Then Exit Function % r: A' J2 t) L, W& U
Next
Else / d; U9 q  r+ Z5 H# d
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next " }9 }: p% X7 u. o* }7 f+ R( m
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 n+ }$ `! {- O' }
If Err Then Exit Function & r% G8 z6 a- b7 J! c! D, w9 W$ {0 v
Next
End If
Crypt = lLngResult 2 l$ d% M" ?3 r2 M
End Function/ c' w5 u' y6 j

Public Function Encode(ByVal pStrMessage) / b4 r6 W  z$ D9 ~. [7 ~
Dim lLngIndex 0 _* E5 o5 i5 y) s; L6 s0 A
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted , d" @' R/ _0 z& x# _# r) _0 h
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex + b( @; T6 @. \# }
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ; Y/ a5 \+ ?( G  I( A
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 5 p5 X6 G, H1 W
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 9 N, ^; w0 E7 m, s/ ^" \% p: v# N
Dim lLngMaxIndex , h6 H5 e1 Q3 J
Dim lLngEncryptedData , E" Y$ D0 W, a* J* `
Decode = "" % A; n# t+ Z0 ]2 m1 \4 x
lLngMaxIndex = Len(pStrMessage) 8 h. m8 A+ K4 c% N; H
For lLngIndex = 1 To lLngMaxIndex Step 4 ( O1 J$ p1 x1 e0 R" a
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function 7 n) l* W" b2 v4 J- X) s5 S
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 4 U. k+ _8 E+ K8 s- Q) q
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) # ^, ?! }. O. ~0 V) ^" O) [' M) ~/ G
End Function
End Class / F3 l, }$ h; }: B, o0 [
function Encryptstr(Message) ( k' @& w1 x8 U, I5 s7 O
Dim LngKeyE # Y3 s7 a8 ]' Q4 g) P% d4 A# j
Dim LngKeyD 2 e2 U1 N, N: x  _/ p* r# g+ j
Dim LngKeyN
Dim StrMessage " Q0 R3 [$ G, F: D; V+ y  E
Dim ObjRSA $ _. r% w: N5 U0 ^+ o
LngKeyE = "32823"
LngKeyD = "20643" , t4 S* |! M, K+ A2 `& G" Y
LngKeyN = "29893" / u4 s" g9 e! Y' j) a. u* O
StrMessage = Message
Set ObjRSA = New clsRSA * \& y' [- V) o9 U1 D8 M2 \
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 3 o; o- Y4 r) D  x5 A6 O1 p
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE * v& _" K! E8 |" n
Dim LngKeyD
Dim LngKeyN ( {, p7 b+ K; s9 q, _7 ?5 y% ^
Dim StrMessage
Dim ObjRSA   G5 _8 X' G2 K; y, B4 o3 \/ G& a$ Z
LngKeyE = "32823" # Y/ C" Q0 x& l  u& V
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message + h2 R1 D5 i, d/ `
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 8 ^# C2 v8 q/ N$ m7 M" [
ObjRSA.Modulus=LngKeyN % p; |5 N$ a3 n1 |' g  f$ F
decryptstr=ObjRSA.Decode(StrMessage) 6 {! T. A5 B8 H0 s8 B  H0 ?
Set ObjRSA = Nothing 6 ]/ q& j# ?# ]0 T, U8 S
end function . o+ w  f3 [: p5 f5 e% J# N3 s
%>/ J) G! |( {: x( `3 o  ]
===============================================
3 w9 g) F4 |4 T4 Q# w( N7 O
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 t5 M7 I7 t, k% P0 S' x
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : E/ ]5 Q6 c) }# v, ]" y4 N! V
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ' ?$ L& O, M" N" G: a" T
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing , d8 D/ M  T& N, J9 M
end function
function decryptstr(Message)
Dim LngKeyE 6 @& J4 N6 [5 H, K7 @4 Z) P# O
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 5 W* @: K3 p( @8 A* l9 D: E
LngKeyE = "32823" 0 F; e0 T. N! Q& m
LngKeyD = "20643" 3 ?: B4 N0 a! z3 o  ?: m
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ( s7 n5 R% k; O3 {3 b6 F0 o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) / ^- H3 D* d0 s8 s% A; M
Set ObjRSA = Nothing
end function
dim last,first ' Q& F! X, q/ _! b! R
first="!@#$%^&*()" ' _# L( W. g5 N# ], z6 P8 y' ?/ H
Response.Write "加密前为:"&first # o( G8 a) `5 i7 A
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) / y3 @( |7 W! @3 n9 Q* `
%> ==============================================2 e9 ?: j* G1 a+ t
剩下的就是字符的对照表了7 B. U+ y/ ~8 a/ u( S0 J
===================字符集================
1_____6EBB  {- Y# g, X' r, g7 F& _5 m
2_____5C1F
3_____4D75* H- f7 C2 r8 x1 w$ s0 I" v
4_____26CC
5_____4F888 t. m( @5 p& Y
6_____3F4E2 I4 B* J9 X5 }$ K
7_____0A9D( x9 F3 m& b  i& }& S1 S8 u
8_____1A1C
9_____6D20: T' c- ~4 U) e  \! c1 A+ \+ Q) ?7 z% x
0_____1089( Q6 H( }7 p! {/ p: I
a_____0F3E
b_____31592 R; z9 n7 Z- [1 l# O1 h
c_____35170 B) s4 E6 y( Z8 c9 K# F, A
d_____419C3 |* A# O, o* @- K" w8 J
e_____615C
f_____556F& e8 M% Q9 L+ u, \1 q' H
g_____2B7F
h_____0F9C0 b1 ]/ ~! m( ^9 U& _
i_____00FA8 `* u% v6 N% d
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8# m5 B; M, R, J
o_____74C16 B& |; d) H7 I" q5 M) q, B
p_____5FB87 a; a4 V& d' D3 l
q_____60851 x9 l$ x' B6 ~
r_____3AC4
s_____2F50
t_____36F8' f: d  f$ k- t, e& @
u_____7010! }5 s& Z; @9 X4 L3 m/ f% P  @# g4 f
v_____0B42$ {* @4 r) x2 M  q8 |% J! h
w_____1C7A
x_____16F85 x# f+ H' T: @9 E
y_____2EE74 h3 Y7 Q* f- o
z_____5CF3& x0 W" M3 g* \: j: ~% V
!_____6233
@_____3A45
#_____22914 H' H* P' h) B: `6 H
$_____5D5C0 @8 G$ y& R* G
%_____09B9
^_____43EA: |9 ]/ F$ G# F; A
&_____62B99 R! v) N$ l+ }2 ~
*_____63014 X& q; |) y1 }  v
(_____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 分享给朋友]