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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm8 d0 j. u1 W/ Y% I3 F  c: F
原始出处：http://www.3ast.com.cm

看不懂的直接绕过" E$ \' e0 v" ^( c) L8 U
加密前为:hwy1234560 J6 e6 P6 T% {+ j7 t, E
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E* w  i* X% w) W$ T. \( R" q, c  r
; }+ x/ e6 K  }6 c9 Z
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家! }+ G! w0 ]' g6 n1 d
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
/ c$ H6 _9 S; u% q6 E! `
文件名RSA.ASP8 M4 J/ ~! [7 s+ e8 g
===============================================
<% 9 m  F% y- d: ~
Class clsRSA . ^& Q; \$ A  {2 q
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult : {* q* U& c2 G0 K
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 / s6 c( ?. z: K" C3 l7 L$ P
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 T* K6 }3 O, N
' Mod may error on key generation 0 ^  V1 _' @% R  p/ Z  T. p3 ]. N
lLngResult = (lLngMod * lLngResult) Mod Modulus / W5 ~' A3 O1 A6 G9 O
If Err Then Exit Function ; ?' G# w, V/ A( q) S
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 8 a% p1 f: j8 y( {" E; w. P: z& t1 R
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next ! B6 L, L! l& ~2 S5 C# C- C
' Mod may error on key generation ( V, F& y. A# N: g: D4 c1 M1 r; j! M
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ! |) _# @$ [3 |) T
Next
End If , u& y8 M$ D( L2 A
Crypt = lLngResult ; j0 Y/ T' w' Q/ X6 K6 X
End Function

Public Function Encode(ByVal pStrMessage) + e1 N% w( f" g( b8 C
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii 8 M: J3 v2 J! T; A
Dim lLngEncrypted + ^+ t5 L, b+ ?5 @1 r- ^4 N5 n/ Q
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function * `3 E3 K2 ^. i
For lLngIndex = 1 To lLngMaxIndex 8 L: t6 c' E) X' t
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)   E4 D3 K" k# S6 d
Next 2 u5 F7 ?* K) `9 v7 Y, c
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii - I0 r5 a2 f% i7 |9 I
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" : Y+ j- G+ d4 G3 F' ~/ j2 g
lLngMaxIndex = Len(pStrMessage) / G: e+ X, Z1 D  A! \  q6 p0 u/ W
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 0 c9 Y2 T  B# J# o6 R# J
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) , R! W  j: `( P
Next / f1 a* y8 T; l4 \" t& j/ L6 o
End Function 7 s% U$ L! S# R6 g+ A0 B2 ?& l
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function * S2 T( q8 M4 u$ p1 l
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 1 [2 `: I/ A, T
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN , B- h$ F8 I, Z  ~4 o0 ^
Dim StrMessage
Dim ObjRSA 7 n+ z: d) l" b$ c$ i
LngKeyE = "32823" 1 y4 i( c; w7 G1 [2 ]
LngKeyD = "20643" ( t6 ]+ h! d3 |
LngKeyN = "29893" % O) i$ f$ z8 P+ _3 a6 i/ @
StrMessage = Message , v( a( i8 w9 P
Set ObjRSA = New clsRSA 2 J! g/ \4 B. P
ObjRSA.PublicKey = LngKeyE 3 g" _0 t: V: q0 T: q: u
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 }* v# }0 ?% o( x
end function* I/ n: A* o! [
Function Decryptstr(Message) % \. \- _5 h% p: {5 x
Dim LngKeyE & j' `& c, O. X9 Y: S/ u
Dim LngKeyD : F. \$ K1 C# u! D1 I" y( K0 ~
Dim LngKeyN
Dim StrMessage & |- p! ~- ^1 G6 i" N% v
Dim ObjRSA : d. {9 a2 B1 \$ `5 d/ W
LngKeyE = "32823" 6 z2 |6 m1 e% h/ m
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message $ e8 a: ~; C" a  e1 v; d7 }
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD " t' A% T# B9 E- b7 B) B, v
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 2 V4 i/ T8 [$ t0 n. T7 I: s/ V
Set ObjRSA = Nothing % k) W& ?$ I" z7 Q/ f6 @$ N/ d
end function - P" O6 T( n+ q" [# f8 A' {
%>, f2 I; Z  G5 P$ T3 m
===============================================

还有一个用于测试这段代码的test.asp( U6 E3 r# ]9 E6 i: Z, U, t1 P" @! M" r6 R
有兴趣的自己搭建个IIS测试下
 6 ], P6 {: P. {
<%3 h9 c5 c. ^% O. h; Q) i. C9 p( ~
function Encryptstr(Message)
Dim LngKeyE 8 y. F- w  e' _4 Z( x: ^
Dim LngKeyD 5 A3 }8 e" d2 V: V( Q9 \2 v( K1 X
Dim LngKeyN 5 w& O+ H: Q& }+ s; Y6 n2 R
Dim StrMessage
Dim ObjRSA 5 h: W6 w, t, w( `" o6 }+ T6 @; N( G
LngKeyE = "32823"
LngKeyD = "20643" 3 j9 ^% O( u) k' L
LngKeyN = "29893" + e! J6 g' c, k6 p  A5 Q
StrMessage = Message
Set ObjRSA = New clsRSA 8 F; }& M: I8 R5 Q9 Q9 F2 R
ObjRSA.PublicKey = LngKeyE $ f( V' |  y0 b+ p' G6 n
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function $ }) @! t( i) C% k: R
function decryptstr(Message)
Dim LngKeyE 9 h0 g" K- ]2 |5 B" I. g& |
Dim LngKeyD 2 H+ I. O7 |  T* L2 R
Dim LngKeyN
Dim StrMessage
Dim ObjRSA / \0 F( c: F+ q
LngKeyE = "32823" 0 }+ A5 K& x# U
LngKeyD = "20643" 8 A, `0 x" T. g+ ]1 C4 g; ?
LngKeyN = "29893" / F( `$ S# `( A/ c0 s, j, @4 e
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 3 m  K0 [* T; F- y
end function
dim last,first
first="!@#$%^&*()" 5 U, A: `0 X& F3 K+ g9 Y+ }$ k
Response.Write "加密前为:"&first 0 P2 N* J; |5 o2 k. k( _6 a
last=Encryptstr(first) / v. D& \  ^! d2 W6 T- C
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 9 f9 |  B: h  |( Z, e
%> ==============================================) \) F% v2 k5 L2 }- X6 E2 j
剩下的就是字符的对照表了9 E( R: R. A9 }' g0 r5 Z% [
===================字符集================0 O- p: h$ G' A) A+ C
1_____6EBB6 D) L3 G) @# Q4 Y: H+ }, w- z/ D
2_____5C1F8 c& v7 Q+ M7 p5 q. E
3_____4D751 q  b) s, r+ N: n4 T1 z
4_____26CC
5_____4F88/ q1 N( F" ]# W  d
6_____3F4E
7_____0A9D
8_____1A1C$ D$ h( i( ]( N) s$ O: @+ w" T1 J
9_____6D20
0_____1089
a_____0F3E7 R& |, J# W) D' p: `% T' }
b_____3159
c_____3517
d_____419C( P* m) m% w* E% p# I: }  f/ {% {* c
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA! h$ Y4 \, M% v2 L/ P  u2 U
j_____5A50
k_____2850
l_____3E7B3 x) U; f$ h# I; _- U% C6 ]- l! O
m_____71C5) ^& ^0 ]- h. k* X, ^
n_____1FC8* }  O' s5 L$ N0 E& ]
o_____74C10 Q2 X9 y/ N% Y
p_____5FB8* F! L1 D# V3 I; K& N0 j2 p
q_____6085
r_____3AC4
s_____2F500 b( x0 _5 X  @% S6 F9 o8 S! d& {/ t
t_____36F86 Q% q& C, j% O
u_____7010
v_____0B42
w_____1C7A" h% W0 }1 D) f" F/ E$ {
x_____16F8
y_____2EE7
z_____5CF3; s7 p" R4 J: e& }  h6 |' [
!_____62334 e& O3 e4 M/ [' @  g
@_____3A45! E' |: v; E4 N+ z$ z6 M
#_____2291
$_____5D5C4 O* K/ S0 _1 ?7 d7 y$ c
%_____09B9
^_____43EA
&_____62B9
*_____6301( g+ x) f! ~1 s8 S
(_____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 分享给朋友]