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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm' `& x* [6 s! H$ q3 j* I" H
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy1234567 \' Y# b7 m( F" H! {
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E- R% N5 ?2 V: z6 n3 A. {1 g: b% \
: [6 B" c; o1 R+ w
============================================: n) F' F3 \# i. q8 z& O5 ~
上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 `& z0 h" |4 a
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件$ J7 B1 R3 C, x2 q
2 h( b( L! V* i6 S
文件名RSA.ASP3 x# z5 g! e2 Y# E/ C
===============================================* ~8 p* A, n1 M( E2 w/ G% f- Z
<% : v  _/ z; \" ~# }, |! ]3 D- X) ~
Class clsRSA
Public PrivateKey 7 H2 F" H. h# o% l, `
Public PublicKey
Public Modulus ( T5 ~- w0 c3 e% i) v( `2 X, M+ x! }& ?
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 2 j% ^, y# L& j' p" I
Dim lLngMod . m& z  Q& S4 L- {# P
Dim lLngResult
Dim lLngIndex 6 p! h) V' q0 p! B1 T8 O. S" @: X
If pLngKey Mod 2 = 0 Then
lLngResult = 1 : D$ Z& x0 S! H+ F/ X; M! V
For lLngIndex = 1 To pLngKey / 2 0 n7 n6 G, _6 ?( @$ c
lLngMod = (pLngMessage ^ 2) Mod Modulus ; u! B# K2 S" K7 B
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function - u: B( o0 q2 ?7 ^' Z, p
Next
Else 5 ~8 v$ Z2 n" \# m
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ( F- u/ o/ A4 O& q: D% @$ S
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 0 S" ?6 R& ?; X
Next 7 C; Q, L1 ?7 @1 }( i
End If $ b9 \! h: N$ L
Crypt = lLngResult 2 ]& Z6 I. b0 N  k' ^+ {
End Function
* v/ p: x0 O2 W9 X; L
Public Function Encode(ByVal pStrMessage) , G6 L5 Q7 G7 t! V
Dim lLngIndex
Dim lLngMaxIndex   u7 V. p! y0 S* j2 Q
Dim lBytAscii ' n8 r* g6 a+ s8 a8 |
Dim lLngEncrypted ' V. o2 [$ r3 N
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex , v1 a. E, {8 m) B
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) $ R# t/ v1 g7 l1 j( H2 D
Next
End Function % u: g& S1 K9 q' M) X7 ~
Public Function Decode(ByVal pStrMessage) " r" s6 I" _/ l- C( g* q' Z
Dim lBytAscii 0 x/ v" a; W+ X" \% [
Dim lLngIndex # {  j$ h. {5 Y+ M6 g
Dim lLngMaxIndex
Dim lLngEncryptedData : Q* u7 _5 K4 f- e+ m: s8 b+ v
Decode = ""
lLngMaxIndex = Len(pStrMessage) / h3 T- W# F- P" z; U0 H9 P
For lLngIndex = 1 To lLngMaxIndex Step 4 8 o+ `1 n: r. F1 Q9 k
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) - q2 C8 d% ?: J$ b& Y, ]5 T
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 d+ w5 x# j# Y. K7 n
Decode = Decode & Chr(lBytAscii)
Next
End Function ( i( ^, Q0 Z8 m+ s6 j
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ! @4 z+ [* h( ?- l! r1 W( y+ r
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ; Z$ \4 G- i$ Z( M2 Q
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 9 i" Q. C6 w( W& k/ n
function Encryptstr(Message) ( R9 s) U" w- d0 l+ X1 M( m' f( p
Dim LngKeyE # F2 u  J7 ^/ v0 J% w
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA * q; s/ d5 X/ L' Y5 l
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA : I: |/ J2 z: I* Z$ ]
ObjRSA.PublicKey = LngKeyE ! M* c) |: u. t) d5 I
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ) V$ B  e% k% ^- v
Set ObjRSA = Nothing
end function7 N1 g: {  Y, b1 \; ]0 f1 _9 o
Function Decryptstr(Message)   T! X# t% w  v  L5 `: a% @3 N
Dim LngKeyE * Q* e" y2 R# A) s& L1 w) h: W
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 4 Y4 k- A) `8 O& {( T9 L
Dim ObjRSA 4 B! S( I6 A, Q7 D; k3 h
LngKeyE = "32823" 7 D% s+ t. w! b: w  G
LngKeyD = "20643" + z. V1 ^; m- R1 P0 p3 C) Q
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) / M3 `) m% t/ @. b1 b
Set ObjRSA = Nothing , v, i8 f- `8 U1 J) k+ O- H% F
end function ! B& x; @: q! K" g' x) q5 }6 q8 G5 `
%># X, K4 b; b" N! `% ]+ ?
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 - m) {# ~: k; \( S' Z
<%
function Encryptstr(Message)
Dim LngKeyE 6 w4 u( {* i+ Q. ~1 r. }5 S
Dim LngKeyD 9 j: b: S  L) ^
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ! W1 I( x; D  t6 u  ]& Z6 Y* {
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ) e9 s' v9 o% q/ l, s6 z
Set ObjRSA = New clsRSA $ Q! ]/ z/ Q: c" `# E- x' r0 f4 ~
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 5 h( T9 D+ W6 E# l, {
Encryptstr = ObjRSA.Encode(StrMessage) - V' x  A8 J; w6 h4 ?( J* J
Set ObjRSA = Nothing - s5 J+ [5 y2 y( ^3 t+ l0 I
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ! @' a4 o  _$ a+ o
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" . w4 ]( A  g! r- k. j4 n
LngKeyD = "20643" : J# l' P  F8 N) |! W
LngKeyN = "29893"
StrMessage = Message : Z; L. I7 `. [1 q. j% |0 o6 K: S
Set ObjRSA = New clsRSA 2 t/ r& S6 o. p1 l
ObjRSA.PrivateKey =LngKeyD 0 B/ q, J/ y2 e% F
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ' L3 q, x  Q0 ^" i/ w3 F0 R5 E0 A( \
Set ObjRSA = Nothing . f2 Y. |) r! D2 P) M$ n% v! i
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first ; |- }6 J2 C: T3 `% J/ b
last=Encryptstr(first)   L8 ?6 z) Y9 \# c7 p' }; k
Response.Write "加密后为"&last 9 J( Y8 S6 f$ m) z
Response.Write "解密后为" &decryptstr(last) ) d6 s3 @( ]: \7 G; s3 R
%> ==============================================* v# {0 h0 A5 R. h
剩下的就是字符的对照表了7 c0 ]( j/ c$ J
===================字符集================  H& C# `" O) X0 z
1_____6EBB, S5 C- J( E# T: U+ F* e
2_____5C1F
3_____4D75' ^( J" _( S* H4 c6 B0 `
4_____26CC
5_____4F88" O0 B8 i1 _" c" \5 b, @  i
6_____3F4E% \& @( s; {" l5 k2 @; O- E
7_____0A9D
8_____1A1C2 b& p; k$ }# u/ D
9_____6D20
0_____10897 C4 Y. K. v% O4 W8 L7 |+ ?
a_____0F3E9 r+ j2 i* k  I( b$ ~. q: G( D
b_____3159
c_____3517
d_____419C" h$ J$ a$ t) ]3 b! V3 H% g
e_____615C7 y+ v( e2 V# X: B, Y1 Z7 t* F7 I
f_____556F
g_____2B7F" U2 h5 S4 O2 Y; j7 U$ s
h_____0F9C
i_____00FA
j_____5A50( J1 X) `4 R! G9 x  s! m& d* Q
k_____2850
l_____3E7B% {' e2 r9 Z+ z. w0 ]+ o7 ^
m_____71C5
n_____1FC8
o_____74C17 T* V6 D7 D7 l6 g
p_____5FB8& ^4 i1 P' o4 f- j# V5 b$ i. K5 B
q_____6085
r_____3AC4* G! j6 Z% t5 q- [9 v) e
s_____2F50
t_____36F87 r/ ^" d! u5 c3 R
u_____70102 @; P0 z* i. r. a; D1 A
v_____0B42+ Y% |9 k' [% |9 H& v  ]/ r. m/ d2 b- F
w_____1C7A
x_____16F88 u; D4 R. w  z$ j1 o5 l7 ~9 y
y_____2EE7& G% {5 q+ s1 T, C/ v. j) j8 ^% E
z_____5CF39 n6 {$ z' C$ f4 u  U
!_____6233% J* P1 e% X$ z
@_____3A45
#_____22915 J+ F* b; |8 L3 A
$_____5D5C0 z" z' I! [, \- L8 ^# d9 q
%_____09B9. P7 }- K6 Q, K5 ^! T2 s8 N. q
^_____43EA: N( ?' h3 r  d; ?6 G* n- H: T5 T
&_____62B9
*_____6301
(_____4659! J, ^% `5 R, C$ {5 X
)_____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 分享给朋友]