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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm- [8 F5 |# N$ h! U+ ?: F' a  @
原始出处：http://www.3ast.com.cm
* ~. j5 |) C4 I; T# Y5 l- l  X" `; M
看不懂的直接绕过
/ c% Q/ ^$ W  u加密前为:hwy123456
4 ?3 v/ F; Z+ i/ r7 }8 K( H) v' D加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
- D( z: i5 p. p  E4 J
! n5 T, S% k2 V+ @============================================
! ~/ ?/ P5 j% y) d  \1 x) b6 j上面是当时自己校内的心情。现在已经解破出来了，分享给大家
/ ~4 `) U) O  N, g# m( X3 G也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
( z; T5 F4 Y3 M9 r% |$ d# R' x以下是RSA算法文件
5 Q1 D: r, o  t8 `0 y& f) M: C4 [
$ F) x! m4 _0 W; T9 @文件名RSA.ASP! `5 |. w/ x8 ~& o8 M
===============================================
& x/ Y# `! Q6 E! r8 Z( T$ B) J/ J<%
9 |9 w- v  _2 o1 A" nClass clsRSA 8 N% Q, P: K- X  O, d; b
Public PrivateKey 1 d( T& o. r6 _# y+ ]5 `4 ?- Y4 A+ b
Public PublicKey
9 h! }8 q, v4 O0 @6 X+ YPublic Modulus
2 Q# H: [  W+ g. iPublic Function Crypt(pLngMessage, pLngKey)
7 h7 O% d* p' E& ^% L' F( eOn Error Resume Next , ^- t6 I$ V6 [2 [& E/ j7 J
Dim lLngMod
) [& m' O; v/ C# A5 EDim lLngResult
% D" W8 r8 [2 U# d1 ?Dim lLngIndex
! E4 s# J+ g6 a% F# O, ^If pLngKey Mod 2 = 0 Then
) L& K# `. E1 P7 W  U: D: d3 nlLngResult = 1
/ g) Y/ D/ Z& ~# j6 t' {5 _8 u5 CFor lLngIndex = 1 To pLngKey / 2 ; I3 ]6 H# F' @; {5 Y. W
lLngMod = (pLngMessage ^ 2) Mod Modulus
* o% Y; ]8 R" s# d$ ~' Mod may error on key generation " n6 ?9 M/ s# B# i" x, x
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 {3 H6 {' i% c7 {3 w
If Err Then Exit Function
4 ?1 w3 E: a) C. wNext
6 j1 F) E  x! \! c, ~4 NElse 9 L* A, @+ y* B' i3 J9 A
lLngResult = pLngMessage
  `- Z( L8 [, U0 n% j' l+ G& PFor lLngIndex = 1 To pLngKey / 2
' I. N" D0 O* J7 h) |, N6 ilLngMod = (pLngMessage ^ 2) Mod Modulus ( W  f5 r7 o- G
On Error Resume Next 6 S: Z. H' Z6 R, }2 M3 G) V
' Mod may error on key generation % Z# P! }- Z7 P( A: u
lLngResult = (lLngMod * lLngResult) Mod Modulus ' D+ k+ o; N& Z, n$ K
If Err Then Exit Function
2 i: y/ w$ j3 ]; b6 iNext ) S* W' v! i4 N8 [! b) L! R; e
End If
0 _; P! D8 r/ u; c/ s9 pCrypt = lLngResult
+ t7 |; f1 m( s% n( h9 C3 EEnd Function2 T! m0 B0 k$ N* T1 u' K

1 }! b; f3 i/ bPublic Function Encode(ByVal pStrMessage) 0 \4 j/ j: P1 z
Dim lLngIndex
. }& M5 g' ]: |3 I' u6 j& N0 sDim lLngMaxIndex
5 A- \) D4 i9 {% O( Y' YDim lBytAscii
' ?) n9 O6 h( Q$ @  w% P# {Dim lLngEncrypted . Z. D+ M3 }* e. G
lLngMaxIndex = Len(pStrMessage)
1 c& m2 D" w* b7 @9 z( tIf lLngMaxIndex = 0 Then Exit Function
+ `$ U# e9 }+ }) ^! PFor lLngIndex = 1 To lLngMaxIndex   h% U9 ?$ G3 [0 X" I) k( o
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ) O2 R' J6 t7 [
lLngEncrypted = Crypt(lBytAscii, PublicKey) 7 l" g( W) A- K/ |$ Q
Encode = Encode & NumberToHex(lLngEncrypted, 4)
8 I3 n9 u9 r  w4 k! {6 Q  sNext 4 J1 u. \6 u1 O6 C* `( G; Z
End Function   ]; o6 ~' I4 A2 q% h  d
Public Function Decode(ByVal pStrMessage) 1 u( P9 D% ^6 t7 y
Dim lBytAscii ! j' u+ ]+ d7 |/ x
Dim lLngIndex 1 w+ \5 b$ E% s) B2 S% h6 j
Dim lLngMaxIndex 7 L$ i' b: p* V& s
Dim lLngEncryptedData
* z9 \, Z5 o6 R9 W8 hDecode = ""
. j9 y' `% G- Q( HlLngMaxIndex = Len(pStrMessage) + [7 Y, h3 {6 Q5 Z  {" M' p
For lLngIndex = 1 To lLngMaxIndex Step 4
* K; I, u9 v# G- n' RlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ) t! j, s' H( m
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 a3 _: D, h4 S: @2 P; P: Y4 P
Decode = Decode & Chr(lBytAscii)
0 _/ u0 ~- Y# N! _( O1 A0 E  ^Next
3 l& Q. Z/ j7 G$ Z8 d& t2 K" R/ GEnd Function
0 U+ s; u1 G" J, uPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
  Z1 A- z- e  Q5 t' m) bNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! U! q6 i# [+ }. x! l4 Y
End Function " \2 r7 N5 l8 W) L
Private Function HexToNumber(ByRef pStrHex) ' C  P$ p' v% _) v0 e: ~& w+ G
HexToNumber = CLng("&h" & pStrHex) 4 Y% E  j0 ]- l4 R4 n
End Function , C" |0 u' u3 Q) J, ]3 [. G8 _9 }
End Class
3 ]' _8 U0 o" R1 Sfunction Encryptstr(Message) 3 `- x$ y2 k) U8 O! T4 t
Dim LngKeyE , f+ T2 O  k# B$ S+ c" Y: ?
Dim LngKeyD
) E( v/ ?- ~  @# N. ]Dim LngKeyN
" T' r$ I- J8 g. f2 KDim StrMessage
) }$ r4 D- f# jDim ObjRSA
9 d% |8 F7 \! q+ f8 x  n! ]LngKeyE = "32823" / T: E  M% k" K! n3 b* v
LngKeyD = "20643"
5 r+ i7 g4 x0 [6 j  d5 g7 XLngKeyN = "29893"
8 f4 v- `9 Y. R7 _8 }) V$ h4 FStrMessage = Message
8 B- `8 d/ U8 b1 K  qSet ObjRSA = New clsRSA " w0 [# {' t2 g* D
ObjRSA.PublicKey = LngKeyE 9 `8 V1 \$ `' o2 l' J
ObjRSA.Modulus = LngKeyN
- P$ H3 e6 }4 ^% oEncryptstr = ObjRSA.Encode(StrMessage) + E1 W, C5 \3 ^5 h- o
Set ObjRSA = Nothing # {* s' a$ Z, y' w9 ?1 o
end function0 \2 q& [/ l. \' J1 z  _3 ?. i
Function Decryptstr(Message) / [0 @6 a" R0 c; p" o1 F6 [0 m
Dim LngKeyE
! r$ n. b6 f) M  ]1 Z" z0 dDim LngKeyD
) N& {" i  l9 R/ I. h3 ~Dim LngKeyN 3 e. g: w% S, f' L6 a  j8 _
Dim StrMessage   f+ w: o0 d6 {' b+ ]  f
Dim ObjRSA
; K2 g' g% B" P+ n! U; XLngKeyE = "32823" " X9 l& N8 z+ T* V" V: }
LngKeyD = "20643" 7 {/ \. W8 [3 [! g# w( |6 f1 a
LngKeyN = "29893"
) [3 L# e2 w% x( t. N+ e, v$ JStrMessage = Message . D* J; }) H% A* P* Y" C6 w
Set ObjRSA = New clsRSA
5 V, ]: i0 q# zObjRSA.PrivateKey =LngKeyD
/ h  U1 g: H2 D8 A, iObjRSA.Modulus=LngKeyN
1 q( N/ f) z& ^5 b" z" `decryptstr=ObjRSA.Decode(StrMessage)
/ S1 D8 Z2 q, ]6 V. [3 @. mSet ObjRSA = Nothing $ c6 d3 N4 M* E3 A8 i
end function
" @3 l0 X; g6 m% u8 _/ \%>
, [( j" s% h* \===============================================
4 @5 K( a- P$ k7 k7 ]2 g( {. J0 C6 E, Z* k' k) i; s( E$ [. M
还有一个用于测试这段代码的test.asp
! a# c+ N5 t1 X9 {5 {有兴趣的自己搭建个IIS测试下! L0 J. r8 [6 D: w$ v  w8 a( N  \* k/ f
<!--#INCLUDE FILE="RSA.asp"--> & d2 I, v4 j! |  R
<%
2 M. j* C+ t) x7 m/ {function Encryptstr(Message) 2 i3 v8 b- ^) J  c9 ~" X
Dim LngKeyE , T4 ]7 z+ Z2 H5 v7 P  |/ ~& j3 G  D
Dim LngKeyD
) o- R7 t# j, p& l0 s7 o# `$ sDim LngKeyN   }# n# ]- R4 t2 h5 \7 K" Z5 i
Dim StrMessage 9 B/ d. A5 S1 H5 m5 p5 m- v
Dim ObjRSA
1 [9 d$ L$ K# K7 v! R3 n' G* K/ H; r! aLngKeyE = "32823"
0 C% A. j  s3 H6 ALngKeyD = "20643" 6 R+ u2 i, r0 C/ q
LngKeyN = "29893"
3 c7 @2 O# }3 w: M5 BStrMessage = Message
! N0 s9 l  Y5 ^9 d1 o4 r& ySet ObjRSA = New clsRSA " N" @0 a* k% c! u( q0 Y: D3 G2 n: o5 M
ObjRSA.PublicKey = LngKeyE
3 w+ u( d% z- v9 pObjRSA.Modulus = LngKeyN ) F% o2 v, n8 V5 p; Z8 I- e
Encryptstr = ObjRSA.Encode(StrMessage) : f9 s% ?9 O7 f
Set ObjRSA = Nothing
/ Z, }4 h$ a9 Qend function 1 l0 j, A5 F) Q4 E
function decryptstr(Message) & F6 i9 e% Y2 }5 }% Y9 c4 U
Dim LngKeyE + t+ \$ i9 f4 ^% n* W% [4 J
Dim LngKeyD
9 `1 ~* z8 O2 jDim LngKeyN
3 z% w$ x. q4 \: C7 M$ hDim StrMessage
  p8 e$ W/ x; ^" I7 r0 ~Dim ObjRSA
3 d& \% w( b% a  `" B' A0 CLngKeyE = "32823" " \; l" |4 ~* ~. s
LngKeyD = "20643" ! {) X9 u6 p. Z4 g  k
LngKeyN = "29893" 0 m' y. w& r- D) o* o8 I
StrMessage = Message
: n, B9 F, ~- S: R+ R: B4 {Set ObjRSA = New clsRSA " w7 M9 j, l) {: [
ObjRSA.PrivateKey =LngKeyD $ D5 X. R. P3 n& a5 @; Q
ObjRSA.Modulus=LngKeyN
1 m6 {, b. P# `; ]decryptstr=ObjRSA.Decode(StrMessage)
* C# d' W9 a' _+ p* Q6 JSet ObjRSA = Nothing
# S- r3 B# @" s8 _$ T2 Lend function ! P" Z6 {8 v8 H7 M7 Z
dim last,first
- ?8 |* N) a  Y  e, h% wfirst="!@#$%^&*()"
3 ?. I" Z: @% a0 RResponse.Write "加密前为:"&first . H: M. ]* l1 W7 H  B$ P7 \5 R
last=Encryptstr(first) 3 x  Y1 o3 e3 I2 }
Response.Write "加密后为"&last
) L: X3 T) ]  o, @4 @Response.Write "解密后为" &decryptstr(last) ( u6 R% q5 M! I! x" f( ^* h9 n
%> ==============================================1 X( a! S# f- ^0 h( z5 w
剩下的就是字符的对照表了
& c' }) m5 Z) ~5 Y) J% u, {- L===================字符集================
+ o3 |7 X# _& U7 Z1 t  e1_____6EBB) S: j& D$ F6 i
2_____5C1F
" f4 u% _" }& V: C( k8 y3_____4D75
/ T' W  A! r% G2 K: d9 `4_____26CC
4 k+ T8 \9 r3 m- D5 L, A5_____4F88! f7 X% Q- L" s! k1 G
6_____3F4E
& Q# t1 L: R% E' B+ O& m+ [( ~3 _7_____0A9D
/ U  |7 x1 N1 d+ }3 `8_____1A1C* C$ s/ G( F5 ^5 o9 q" }
9_____6D202 G5 P, x3 }5 l  P, W
0_____1089
) B4 N5 m0 x. D/ B9 v2 qa_____0F3E7 s- d. I0 T; F' w* V
b_____31592 ^8 K8 S4 W) |! U  k
c_____3517
6 V3 p+ F* v0 A  Q3 e! K  i& qd_____419C
0 j# P/ o3 O+ `9 x' fe_____615C
: o& n1 |$ ]% N; V) tf_____556F
$ [1 ~$ {1 ?  d* r" `$ jg_____2B7F/ ]! R' L3 X2 p" {1 m
h_____0F9C+ ~, i; \/ W8 c$ z  w* @
i_____00FA( w) T6 S: j' s$ W) O3 H
j_____5A50
5 j/ I* O4 I  L! i* Yk_____2850
1 {9 ~) `2 v: N6 y% ml_____3E7B" u5 A9 B8 E7 l3 S
m_____71C59 h. i# ]( n% A" v, N9 t& ^. W
n_____1FC8
2 x  D$ @+ e9 q: k8 po_____74C1
, Z' e( V+ v( wp_____5FB8
. G/ n2 L5 W0 {' v1 J* j& q  ~q_____6085$ w. O0 a3 X9 l, Z# K! o1 w- \
r_____3AC4
+ i7 R* _5 X/ d- @: R2 z6 r1 B. T2 Ts_____2F503 ~& j/ o; M% O5 c; d
t_____36F8
! Z0 y8 A1 b' W7 r" A9 j- b# m! Vu_____7010
7 @# R$ @3 t. q5 Kv_____0B42
$ M* K. p5 g1 d  a6 Mw_____1C7A' w% r* s% I4 h# W
x_____16F8
% w" r* d0 `) m7 Ly_____2EE7
( F1 s, U0 H- U1 K6 wz_____5CF3
) c, ]/ e" b* g0 r6 d!_____6233
7 N2 Y6 R2 U0 ]1 Z@_____3A45: E( r& p4 |7 Y" \0 _
#_____2291" g& k" t& a9 c# p: e$ ?0 e+ I6 Z- B
$_____5D5C
4 D' C' p5 [0 M% X- G. }7 ~1 J%_____09B93 j* o5 c9 j7 v
^_____43EA" I' {* E; l7 |6 ~
&_____62B9. q9 ~& Y* i5 ?5 ~/ d0 M, w
*_____6301
  F! ~7 e, A% K( o4 Q  K6 a  C(_____4659/ @# I3 t, F/ S2 a
)_____5C82

鱼儿无心

收藏了。。。。。。。。