; M# K' A# M0 t. f c這次所寫的程式名稱為 TXT2DIC.BAS, 我們還是先使用大家都熟悉的 QBASIC 來(lái)寫,以方便日後的修改, 先說(shuō)明一下原理: 這個(gè)程式是一個(gè)自動(dòng)產(chǎn)生字典檔的程式, 我們是經(jīng)由給程式一個(gè)"文字檔", 然後由程式自該文字檔中 "抽取出" 字出來(lái), 這些文字檔必需是英文的文字檔,如果使用中文的文字檔的話程式跑起來(lái)會(huì)有問題, 英文文字檔的取得可由英文版軟體的 Readme檔或網(wǎng)路上的英文版學(xué)術(shù)論文或其它的來(lái)源. 1 f% x9 s% J! E+ [& Q# _8 W8 G& o$ x) F1 _! y: D0 z
當(dāng)然有可能在文件中會(huì)出現(xiàn)像 www.showtower.com.tw/~fetag 的字眼,我們總不能把它也列入字典檔中吧! 所以程式中有一點(diǎn)小小的設(shè)計(jì), 就是該字若字母數(shù)大於 10 則不列入考慮,我們也可以使用上一次所介紹的子音+母音... 等的公式來(lái)作檢查法, 但是我沒有太多的時(shí)間作這些事,留待有空的人來(lái)寫吧!!; x- R5 g+ o6 v
3 h9 v3 p& y9 R ^4 T底下就是該程式原始碼, 請(qǐng)各位以 QBASIC 來(lái)啟動(dòng)并執(zhí)行它: 2 F* u3 g) ?- O " i1 B7 e6 Y# K/ o1 D--------------- Txt2Dic.BAS Start Here ' v/ P5 p P% S2 E/ }------------------------------------------------------------------------------- " C9 C n H1 v--------/ u1 |6 r3 v" e& q; L* w5 V. o
CLS % K5 g# D, J: I9 l3 b2 `PRINT "Txt2Dic Version 0.1B (C)1997 By CoolFire ReChange: CoolFire" 3 V' e# n" h) | T2 w6 ~6 EPRINT "[Source Released, For Changer, Add Your Name in ReChange Field]"/ }4 C3 v5 A" |0 ~: M4 V/ O! U0 `) l
PRINT : H( n) ^# Z0 D9 v5 Z* h4 uLINE INPUT "Text File Name: "; TxtFile$ / |& \7 g' H0 x, R( E: ILINE INPUT "Output Dic Name: "; DicFile$( F0 r* @6 t, w6 m9 B. p
OPEN TxtFile$ FOR INPUT AS #1+ [! }+ m1 I* g6 b( t
OPEN "TMPFILE1.$$$" FOR OUTPUT AS #28 m2 ~4 h; E" t$ }9 l' j& X
4 L+ o h% D; S, h
REM Filter for text file/ C5 b- p/ B: v% I
2 \, w" `1 K' r& s; C4 M6 L
ReInput:' {7 }/ n+ u, l, o9 B7 _( M
IF EOF(1) THEN GOTO EndFile % @: J! j) @* x/ d5 H9 j/ I& oLINE INPUT #1, L$ ' h8 E9 ?# D& h& A* cReTry: 0 S0 ^1 t! |4 o1 k- K* F8 a+ c4 dL$ = LTRIM$(L$) y$ \, N+ H* S. w
L$ = RTRIM$(L$)+ K. D' c2 R/ x* r: d* Z- C
TmpValue = INSTR(L$, " "); o: u# Y/ }) b" S
IF TmpValue <> 0 THEN# o5 \8 j' Q6 G6 l4 }0 B
DicTxt$ = LEFT$(L$, TmpValue - 1) h- v3 S- w* S4 _0 I8 o) q6 cPRINT #2, DicTxt$) c( I a# X* ^/ J
LOCATE 7, 1: PRINT "Step 1, Add word : "; DicTxt$; STRING$(10, " ")8 m% W; o7 `9 u3 P9 O1 X, g+ j. s
L$ = RIGHT$(L$, LEN(L$) - TmpValue)* f. V( V" Y( \, Q5 f% L6 z
GOTO ReTry. {; {1 r7 C, h5 o u9 \# V
ELSE+ r8 h8 t8 O5 K9 w+ x- T. V
GOTO ReInput $ ?) {: ?0 F7 @( fEND IF0 l9 S/ S' c( _. ^
END/ Z( a6 O. s, w6 h0 h F9 Y
5 h( o; k2 u; F9 A! \EndFile: $ [: A! c4 w z: HCLOSE6 c& a- F3 |# d0 H1 ^) Y
REM Filter for special chapter and lower-case the word: @, B( u; U& y+ r; F8 G
6 ] t2 [/ d( ?- I% \" ?OPEN "TMPFILE1.$$$" FOR INPUT AS #1 $ q. K _8 @* B8 P( |& v( mOPEN DicFile$ FOR OUTPUT AS #2 8 w# k) U; s: q" J- i4 a' KSpecial$ = "-,.:<>?*()/_" + CHR$(34) . @( R2 S: h9 c7 S7 |3 fDO " p7 ^2 U! `9 m$ a8 y. |1 _LINE INPUT #1, L$ 3 P8 _1 `) K1 P% V$ cFOR I = 1 TO 13$ j* }9 B9 ~) a0 H* S
SP$ = MID$(Special$, I, 1) " h. \3 ~3 j7 e! F$ kTmpValue = INSTR(L$, SP$)& j3 |7 [/ ~3 F: j) o; a0 E
IF TmpValue <> 0 THEN2 R+ |8 C2 p7 Z1 m; \2 m9 o
LOCATE 8, 1: PRINT "Remode special word :"; L$; STRING$(10, " ") 2 Q# \7 w4 N6 c5 _. d2 R6 VL$ = "" ; a+ |/ x) k4 t2 a% L- W p0 f2 sEND IF - E: ?$ H$ R( p+ [NEXT I' P3 D3 g" K/ }: m
IF L$ <> "" THEN + f% D2 T! a, QL$ = LCASE$(L$)( m* w- B# |) Q. M5 |/ I3 ~
PRINT #2, L$ $ [$ I; l, G0 P1 { SEND IF 0 I4 k1 C9 K; Y' X GLOOP UNTIL EOF(1)$ } f! Z$ w! i
CLOSE - t h$ e' L2 Y0 ?* aKILL "TMPFILE1.$$$"- S0 ~- H0 U# q2 m( Z. I- Z" G2 p' C
END . a4 a0 u* U6 h) w--------------- Cut Here, End of Txt2Dic.BAS 8 Z4 v0 q. _7 R: f( L: N------------------------------------------------------------------------------- N0 r9 R, [0 s-% g5 x7 {1 a3 K" d8 w( M6 L0 q
/ |1 Z. ] |8 I U' d[Q3]請(qǐng)問 "最新之系統(tǒng)安全 mailliast" 要到那里去看? 還是要訂閱? 如何訂閱呢?是英文or 中文?2 u; i: ~( A, s3 n. k
[A3]原本想要在這次首頁(yè)更新的時(shí)候加入一些 Mail List 訂閱的連結(jié)點(diǎn),但是因?yàn)闀r(shí)間太匆促所以沒有作, 先跟各位說(shuō)聲抱歉了, 你可在國(guó)外的 Hacker 站找到,或是先訂閱下面這一個(gè)List 來(lái)看看, 不過目前這類的 Mail List 都是英文的.' v5 I! X) b0 @9 N
: ?: g4 A6 S- @寫到: Majordomo@ns2.rutgers.edu1 A2 j9 I; t; r0 M" i* z I6 W. R3 W
標(biāo)題: (空白不填) 5 I5 g: c2 q/ P9 A K" P' ^' A內(nèi)容: SUBSCRIBE www-security 你的 E-Mail 信箱# P7 R* N/ {, c# I* Z" }
& }5 ?+ H2 j1 k. _. T( t/ u
[Q4]為什麼 De-sort 不能用? Key In ..... 為什麼會(huì)這樣??& f/ P! G' y* O( p( J
C:\Program Files\LetMeIn>de-sort- U* p4 ` Q; o. S3 L$ h. H
De-Sort V0.1 (C)1996 By FETAG Software Development Co. R.O.C. TAIWAN.1 q) d7 w4 V" l7 n" d2 q% @3 a
/ M" G e9 g' I3 K$ s0 s5 o% }4 J
This program will: 0 f" J# R2 Q6 V, C- E/ B . h B# B$ ?" x6 `[1] Delete reiteration word from a dictionary file - i4 a' |% i* L7 F1 `- A8 O6 Y/ S[2] Write the new file to a temp file . q: ]& D |: d7 e" e; I% P[3] Delete old dictionary file6 g1 ~. D: H/ r1 \3 }
[4] Rename new dictionary file as old one's file name , i" Z, {2 \% H $ o, ^3 ^ V+ j y& rDictionary file name: 1 + i- |1 h1 G6 C; o) E3 y/ w{Now Start To Check} + g# H# k: |" T( `7 d; K0 \; j8 k9 x' t& z3 w! U
Some error found when program processing, Code= 53 $ ?" Q/ {; }4 I( j2 d# Q : t2 }2 @# {7 V( [6 s( ADe-Sort Author: James Lin E-Mail: fetag@stsvr.showtower.com.tw, `1 z# c# n* c. e% f0 v
FETAG Software Development Co: http://www.showtower.com.tw/~fetag) [: K# \, S" Y* Y8 R
C:\Program Files\LetMeIn> 5 _. [$ I, r' J" ?- ^[A4]出現(xiàn) Error Code = 53 代表開檔有問題, 你所輸入的檔名 '1' 這個(gè)檔案可能不存在,你+ n1 K* Y* n. c! i9 q
應(yīng)該檢查看看這個(gè)檔案是否存在於目前目錄, 否則就應(yīng)該給它目錄名稱, 其它的ErrorCode 可以參考 QuickBasic 或 Basic PDS 的書籍來(lái)查出錯(cuò)誤發(fā)生的原因是甚麼! : d" l* i+ f+ j' x" X: B! t$ m- f. Z3 S6 v
[Q5]小弟自從放寒假後,"高-Net"費(fèi)用 往上狂飆, 急起直追請(qǐng)問你有Crack 過 "高-Net"嗎??$ x: ?! x. F" U5 P9 h$ w
"高 - Net"的防備似乎蠻強(qiáng)的!我是你的忠實(shí)讀者,你的作品coolhc-1,coolhc-2,cool-3,我都有努力鉆研學(xué)習(xí),但就是弄不到 etc/passwd, 不知是不是我資質(zhì)太低 ~~#@$%煩請(qǐng)高 / f, {) m$ ~2 @8 Y! S- R2 J/ ?0 k手幫忙弄到 etc/passwd Ps: coolhc-2,and coolhc-3 最後的那句(高-Net 還是除外)是說(shuō)"高-Net"可以或不可以 Crack ,如果不可以就不用幫我Crack 了![A5]當(dāng)然還是有漏洞, 我有稍微試過, 只要是新發(fā)現(xiàn)的 Bug,他們會(huì)很快的有人將漏洞補(bǔ)上,而且該 ISP 有許多的工作人員, 并且采用計(jì)時(shí)收費(fèi)的方式, 所以就算你 Crack 了,也是將帳目算到別人頭上, 有點(diǎn)缺德, 所以不需要 Crack 它, 大家不要申請(qǐng)它這個(gè) ISP就好了! 不然還是請(qǐng)你看看系統(tǒng)安全的 Mail List 了解最新的系統(tǒng)安全消息!比它們快一步進(jìn)入系統(tǒng)就可以了! 這個(gè)文章還是以教學(xué)為目的, 無(wú)法給你 ISP 的 /etc/passwd!4 P8 ?: I1 O }0 A; O) M