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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm4 P  v9 w/ {% o6 n# M, X
原始出处：http://www.3ast.com.cm
3 f3 `4 C7 v* [' k2 b% F" W) ~/ E4 Q* r" T
看不懂的直接绕过6 a$ l4 K! j: `
加密前为:hwy1234561 o5 f+ F# e' N' m8 o* P
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
% O. W. V% a) C% O- M. S; e* P0 U& E) U
============================================
' y8 W5 R+ q) i9 n上面是当时自己校内的心情。现在已经解破出来了，分享给大家
! P- T% Z/ ^' p% m' k  G9 U6 k也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 ~1 y/ R- U0 k: }- H
以下是RSA算法文件5 @& X# G6 S' Q" U1 r+ F, k& w# Z

7 E! s9 X; ?& B+ |文件名RSA.ASP6 x5 R: ^, |( E4 ?$ D. [
===============================================
, f6 ?5 M) f: \& B6 D) E<% " [& r8 _6 e, I6 Y4 e- M4 I2 W, i$ Q' a
Class clsRSA
# m* }" G# B2 D& w% f/ U- IPublic PrivateKey
7 O& p0 f# N- M- rPublic PublicKey
4 ?* S4 J5 W7 s' h1 Q; A& dPublic Modulus - u* W# N+ n6 \$ L
Public Function Crypt(pLngMessage, pLngKey) $ C* x6 Z7 D9 S' l6 a5 N# `: H
On Error Resume Next
( h/ f) {/ U+ d3 `" vDim lLngMod 2 m, H6 {5 |: U( J, W9 O
Dim lLngResult 0 b3 h/ \7 \* \" c: e
Dim lLngIndex
; Y$ G0 I( s  I) MIf pLngKey Mod 2 = 0 Then # x! }0 c  B$ o3 q' q+ T/ S
lLngResult = 1
! |% ~4 t. `" A" A) ]2 ZFor lLngIndex = 1 To pLngKey / 2
  H- u+ c* Y/ I: i) O/ `2 TlLngMod = (pLngMessage ^ 2) Mod Modulus
0 i$ z+ s, H2 P3 b; f. o' A% A' Mod may error on key generation
" l# g6 I3 F* JlLngResult = (lLngMod * lLngResult) Mod Modulus * k) b0 J! ^$ t% D
If Err Then Exit Function
3 u- V: [. b! I% o1 t9 cNext 0 l# u( P& A7 g6 k/ c4 Y
Else
( Z7 n/ `5 L* y, C9 u) z5 ]lLngResult = pLngMessage 0 t9 n- r+ i7 C5 ]
For lLngIndex = 1 To pLngKey / 2 0 K- [2 H$ T5 G3 p8 |; n  p
lLngMod = (pLngMessage ^ 2) Mod Modulus & G( `3 Y, ~4 k7 r3 k1 j; o1 G
On Error Resume Next 0 u* ?+ D  u8 ]3 Z  d% Z
' Mod may error on key generation
! Q) X8 K8 Q0 D' M4 olLngResult = (lLngMod * lLngResult) Mod Modulus
! b6 d" @4 M1 ~- X+ \If Err Then Exit Function
! y5 U5 K1 D8 \2 l5 y/ p0 wNext
5 s- l8 i' C8 Y+ O. v1 uEnd If ! u) y  S5 X8 k4 ]
Crypt = lLngResult
: q$ D: p9 }( VEnd Function8 t/ `- [2 \3 `! ]- Y' m

, g7 Y# N& a! O4 ?( I% ?  T9 fPublic Function Encode(ByVal pStrMessage)
. T& P7 |* ]! O, T; fDim lLngIndex
3 A1 ]: I: L2 ]Dim lLngMaxIndex
8 H8 h" m2 Q6 W' b5 iDim lBytAscii 0 f! g, @# x; ]) q
Dim lLngEncrypted
+ t! q* l# j* i$ ]5 \# ], z3 {lLngMaxIndex = Len(pStrMessage)
; [, I( `0 J* D9 l: y. XIf lLngMaxIndex = 0 Then Exit Function
6 m. _7 ?/ V4 t( f# bFor lLngIndex = 1 To lLngMaxIndex - X  M/ h: b) E* y% H8 J, V, L
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( d8 `  R  Y. b3 Z$ n7 ^
lLngEncrypted = Crypt(lBytAscii, PublicKey)
6 S" }1 K+ i( O- [5 l% DEncode = Encode & NumberToHex(lLngEncrypted, 4)
! z+ J, Z. c' y& tNext . c6 l2 W5 T0 T* K6 w5 y
End Function 7 v8 z; z9 {9 @4 E
Public Function Decode(ByVal pStrMessage) ) }' \9 @& W4 X. @6 ?. ~% P
Dim lBytAscii
7 l- c  T7 e' m& f1 o4 a+ p* gDim lLngIndex " ]. {8 x& K: q0 ]$ o) z
Dim lLngMaxIndex ! K3 J3 ~" L! e2 U5 e6 f: y" Q
Dim lLngEncryptedData
) d9 j6 D1 `3 _, y2 H5 BDecode = "" 7 }: `, L% j% ^# S) b* W- ~
lLngMaxIndex = Len(pStrMessage) ) s% A' V1 G8 p" _& E6 |% S0 o
For lLngIndex = 1 To lLngMaxIndex Step 4
/ G6 J; w' q8 ulLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
9 z7 L0 ?: t3 x! Z- s0 t/ O1 vlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
' A: v' h: j( O' e. b) pDecode = Decode & Chr(lBytAscii) ( _5 C- ~& ^' ?3 I" N
Next
+ D( v/ G& R% N- M) N  _8 e5 x: HEnd Function
+ C% H7 v) |9 P, v6 ?' j8 s- n% bPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
6 t! z- {$ @/ D6 Q: p9 ^4 }7 WNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   h7 C  J& a1 s! j( J/ O
End Function
; P1 c4 M+ Y9 d) X! l1 {Private Function HexToNumber(ByRef pStrHex)
3 r+ L0 ~7 z! X, G+ eHexToNumber = CLng("&h" & pStrHex)
5 t$ K' W- {- wEnd Function
& H; t' S3 \8 M; [5 @% J' ^" r! `End Class : ]: l  z1 B& x% S* Q1 `* w
function Encryptstr(Message) - }- z( Z# b4 V! O! l
Dim LngKeyE % O3 H( {# F( K/ _* F9 q- ]3 Q
Dim LngKeyD 9 X) ?. k  c  B% S% M+ |
Dim LngKeyN * m& G3 P4 h# {* }2 L8 `+ J: G
Dim StrMessage & x# i- P! z- y" y: V7 ^/ {. p
Dim ObjRSA * ~+ v6 K8 B) G) p$ ^" V
LngKeyE = "32823"
4 c% q* C- n; J$ @* K5 }) t6 _LngKeyD = "20643" + t/ U6 G/ b. ]& y' e2 @
LngKeyN = "29893" 5 @4 X# `: B/ A9 ~2 X& {1 Q( f
StrMessage = Message 5 N! C$ k. q. S. W9 W1 W
Set ObjRSA = New clsRSA
9 R' |# W$ b6 C( e, HObjRSA.PublicKey = LngKeyE & s$ l( V4 O4 U2 \: L
ObjRSA.Modulus = LngKeyN 0 \$ k# {  z& l
Encryptstr = ObjRSA.Encode(StrMessage) / r" @& p3 x9 k, A
Set ObjRSA = Nothing + I, q9 o* s) G: A( f- d( u4 M
end function
5 ?' T# C4 y" \; v7 U- D0 |3 vFunction Decryptstr(Message)
! K6 h+ U$ p5 M2 ?% U) ~8 Y# sDim LngKeyE
& Y! ~- ^  n+ P) ?' s% _Dim LngKeyD
1 c) T& [/ V2 ^& DDim LngKeyN 3 \) v4 a3 {* f7 m/ G, j- _6 w
Dim StrMessage 6 p9 z$ V9 Y' @- u. e& H
Dim ObjRSA
9 @; S, H( u1 ]7 s% W/ P" aLngKeyE = "32823"
) R' V! S- h: F' mLngKeyD = "20643"
! Q* T- I$ b: K# WLngKeyN = "29893"
) x+ ^3 L4 a$ q  q' TStrMessage = Message 0 J+ _' R+ t/ R" N$ p: S
Set ObjRSA = New clsRSA
2 b; p0 K. t' U. N0 oObjRSA.PrivateKey =LngKeyD ! ~3 K- e9 w& z! v# F
ObjRSA.Modulus=LngKeyN : ~1 f& U! w. g/ T4 {3 S4 Z. t1 Q
decryptstr=ObjRSA.Decode(StrMessage) 9 D% Y& I, A3 H  l- r5 f
Set ObjRSA = Nothing - Z3 U+ i$ I( t9 ^0 G9 M6 ]+ s4 C) d5 ]
end function 1 ^/ E  x5 T% ]+ N
%>. i2 r/ P6 \$ r: u) u; @8 X3 F
===============================================# E# ?! _4 }: X; f. T- }5 [+ U

! T6 J9 v% L0 w* R4 i还有一个用于测试这段代码的test.asp
5 w) P7 h; m- D4 U有兴趣的自己搭建个IIS测试下0 ?+ }& L8 I6 G1 H
<!--#INCLUDE FILE="RSA.asp"-->
5 ]% A- d0 D' E' ~! j<%# f3 T( A; Q# ?0 U4 Y
function Encryptstr(Message)
  H3 ~' A( D* B' c4 ?; h: f/ L. v* D8 EDim LngKeyE / x* Z+ U3 \* I7 s
Dim LngKeyD
9 J/ F7 h& w+ {! ?/ D5 ^9 nDim LngKeyN
' Z7 ~. X+ T( \8 V* L3 e/ `5 v9 `5 P# rDim StrMessage 9 n; @/ O% Z+ H" ]
Dim ObjRSA
7 R2 ]( _7 `/ O' wLngKeyE = "32823"   f6 F9 @. s. o/ y4 e+ H% c
LngKeyD = "20643" ) [/ j* q. I7 u
LngKeyN = "29893"
% E. c" @# ?0 u# e/ Z0 R' `' e$ W7 PStrMessage = Message
) a) P9 P. r+ `  r- j9 E: l, Y4 fSet ObjRSA = New clsRSA : o. k" [4 p; Z* M
ObjRSA.PublicKey = LngKeyE
% i+ |& M/ Q; Z; pObjRSA.Modulus = LngKeyN # B- ]* |1 S4 f% c7 }+ B; c
Encryptstr = ObjRSA.Encode(StrMessage)
" u3 v4 R* ]; w8 F- j, _' n6 qSet ObjRSA = Nothing
7 b( r: @* g& j' j* _% ~end function
; n( A# K) c0 B: O9 c) p3 ?# xfunction decryptstr(Message)
8 Z: q2 t/ ]/ S6 |$ d5 A; z& ^Dim LngKeyE
' p! w& @, t; p# Q2 p  tDim LngKeyD
+ q0 k3 K- P* Q: b% mDim LngKeyN
1 h6 u! n8 t; e" V( SDim StrMessage 6 o9 A: y! M6 g: F2 T
Dim ObjRSA : b  s' Y- M0 u6 {9 n
LngKeyE = "32823" ' _2 `/ S7 U" s3 A) n# j4 w: d
LngKeyD = "20643"
1 Y1 r' F6 L( ]: JLngKeyN = "29893" ) b7 V. R. w- ]0 X) m$ m. y/ l1 d6 S
StrMessage = Message
. Y( n5 k+ d- \+ V8 E+ c5 ySet ObjRSA = New clsRSA
4 s( N( n! o2 S( V# D- dObjRSA.PrivateKey =LngKeyD
0 r6 w* q: ?( I0 C1 RObjRSA.Modulus=LngKeyN
* _" `( ~8 `, i, Z; t5 H) pdecryptstr=ObjRSA.Decode(StrMessage)
$ F, l0 F# C, K9 s( nSet ObjRSA = Nothing 3 N/ A# E6 X* K' u' [
end function # ^% P/ G( C# p+ `0 p* U
dim last,first
% Y* {0 o$ E& @/ n( I, x$ K# wfirst="!@#$%^&*()" 6 ]% J& ]7 j1 r( s& ]2 @
Response.Write "加密前为:"&first * Y8 M! B  ^# B/ w) |; B3 L
last=Encryptstr(first)
6 \- j# q/ d+ oResponse.Write "加密后为"&last
& M8 |8 m& n0 I: e6 wResponse.Write "解密后为" &decryptstr(last) 4 g; x, q- k+ d9 r% [1 w7 F7 w3 ?
%> ==============================================! U- ^% Y5 o" \, X: T# |
剩下的就是字符的对照表了
  i6 _- s: F% m7 N) O===================字符集================
( c! c4 H7 q. P. P: e1_____6EBB; ^( v2 I; I% I' I8 S3 c
2_____5C1F; k/ f* r' d6 l# d5 C: P0 c+ e
3_____4D75
+ T& h; d* d6 t1 r9 j' o4_____26CC
" r# M6 v+ U; }& a; I  u5_____4F88
& n9 K4 h8 O. [6_____3F4E
  l9 [- O7 m7 ?6 ~; I1 n! N/ b* M- |" C* k7_____0A9D
( W1 f  p9 P4 c+ i) |+ d! t8_____1A1C& B/ d# C( j- g/ e! o% ]
9_____6D20
; b! l, m" i# Z1 |0_____1089: n. [2 R3 x: J! O! B
a_____0F3E
0 z; v6 U& _* |# x* f" m  L" J* Mb_____3159
! c- X- s% |2 V0 Y" Nc_____3517
+ u! C1 M1 T3 `d_____419C
! \. [5 J8 X; I" Z/ E2 ^; A# Ze_____615C0 }7 j4 ?  |0 |( W/ ?
f_____556F3 o9 [4 M( o$ U3 V" `
g_____2B7F
( u& }3 j8 I# Z" k6 hh_____0F9C
0 \2 C( w2 M; J. J( c0 Vi_____00FA
) b/ K4 v  L0 L  z6 b  C. u$ H7 Gj_____5A50# D' Q* A  o- q) Z4 D* J: }/ n' t
k_____28504 [5 t5 M3 G& t4 B" p
l_____3E7B
- S, W# I  U, i1 I) qm_____71C5
' A2 S* R! }* L; C. `) Dn_____1FC84 b4 [  y" {% \# I  J% u& V
o_____74C1
7 z2 N. t. T; `6 m) O  W% d0 {p_____5FB8
- ^! M3 h1 X. _, p( @, }6 Jq_____6085, H0 y- a8 S' h6 i
r_____3AC4
# t% y/ r, V) O; [* o5 {* as_____2F50* k8 }+ L% N1 B- x, ?! g& o# M) I- h1 V
t_____36F8
' `1 }4 K+ R& c2 x3 ou_____7010
2 E9 U/ X9 U- r/ @) p& ^v_____0B42
; U) J6 R. r2 A4 Nw_____1C7A
0 B1 p$ Q, d9 v/ n  x0 wx_____16F87 S/ C& O5 W" j9 u
y_____2EE75 D1 J; u- j3 }* \
z_____5CF3: j# e) N; |$ z# z1 z8 ?
!_____6233
) ^$ d  d- [( I3 B, `+ i. L@_____3A451 F# I: z* E& K; D: @7 y  O* u1 I
#_____2291$ Z' }5 d  ^1 m  j6 {
$_____5D5C
' {3 h; ^5 q: x$ s7 V7 K%_____09B95 S4 Q4 C# p0 F# T# E, c( T
^_____43EA$ S( K3 o# o" V4 h$ g8 X8 v( X
&_____62B9
2 `, k, ]7 S1 ]: j; Y+ K4 P) \' g*_____6301
9 H1 _  I, v! V. p) F3 l(_____4659
0 i7 [8 Q6 K6 @/ C)_____5C82

鱼儿无心

收藏了。。。。。。。。