) Z8 f3 d8 R8 n( b; E3 [# d上次的字典檔討論, 我寫了一個(gè)簡短的程式出來產(chǎn)生了 3120 組的密碼,但是這些密碼并不一定是一個(gè) "字", 也就是說產(chǎn)生完全合乎我們所限定的 "法則", 但卻不一定是一個(gè)已存在的字,7 m8 V C/ t" D2 _+ x
所以如果要產(chǎn)生一個(gè) "高效率" 的字典檔, 使用上次所說的那種方式就不是一個(gè)很好的方法了. , H# w9 m5 r/ u+ I! x) Z以上次所寫的程式 MAKEDIC.BAS 所產(chǎn)生的 MyDic.txt 為例, 其中的 braard clale cleoe dgeiingdgeie.......等字就不是很 "正常" 的字, 當(dāng)然也有可能是某人的密碼, 但其機(jī)率小之又小. " n( h4 y# r% L6 y1 C6 Y! k# M+ X, i) l, Z6 Y; O
這次所寫的程式名稱為 TXT2DIC.BAS, 我們還是先使用大家都熟悉的 QBASIC 來寫,以方便日後的修改, 先說明一下原理: 這個(gè)程式是一個(gè)自動(dòng)產(chǎn)生字典檔的程式, 我們是經(jīng)由給程式一個(gè)"文字檔", 然後由程式自該文字檔中 "抽取出" 字出來, 這些文字檔必需是英文的文字檔,如果使用中文的文字檔的話程式跑起來會有問題, 英文文字檔的取得可由英文版軟體的 Readme檔或網(wǎng)路上的英文版學(xué)術(shù)論文或其它的來源. 3 l0 p. R( h" f1 m/ t1 b 0 l$ h- e( b$ w1 }- g9 _5 S當(dāng)然有可能在文件中會出現(xiàn)像 www.showtower.com.tw/~fetag 的字眼,我們總不能把它也列入字典檔中吧! 所以程式中有一點(diǎn)小小的設(shè)計(jì), 就是該字若字母數(shù)大於 10 則不列入考慮,我們也可以使用上一次所介紹的子音+母音... 等的公式來作檢查法, 但是我沒有太多的時(shí)間作這些事,留待有空的人來寫吧!! 5 R/ W2 S; E6 E' |! |% [0 }4 X' R% C, X7 l5 y1 X, B
底下就是該程式原始碼, 請各位以 QBASIC 來啟動(dòng)并執(zhí)行它:- t+ o8 W" K" E$ H) x
) x/ D! d; u0 V# }# M
--------------- Txt2Dic.BAS Start Here/ J& ^ s% S% U' r- v: l
------------------------------------------------------------------------------- ) k) K d9 ?5 }" _' W-------- . E) c% C! b e% b* fCLS ! L% r- s% E1 x1 H8 B+ X y* m" L$ ZPRINT "Txt2Dic Version 0.1B (C)1997 By CoolFire ReChange: CoolFire"5 T/ l; U! u6 U. Y6 u
PRINT "[Source Released, For Changer, Add Your Name in ReChange Field]" 9 |$ J0 |% c- u* F6 oPRINT % |5 i+ `& I+ o9 Y. fLINE INPUT "Text File Name: "; TxtFile$( k2 v9 k9 R" b! _& n# P
LINE INPUT "Output Dic Name: "; DicFile$# g# C( S$ ?9 w# B% z
OPEN TxtFile$ FOR INPUT AS #1 ; R7 _2 h" V9 y% I. YOPEN "TMPFILE1.$$$" FOR OUTPUT AS #2 4 u- e2 P: f) M. ^3 j, I; ^9 I * D: W' n7 |( Y J/ FREM Filter for text file " ]! J* e- K: J% k) T( [# p R" `0 t# _. A, G1 V" W0 x
ReInput: & f, i5 c: f5 |5 g DIF EOF(1) THEN GOTO EndFile 0 t3 r7 u5 o, r, w' E: G, h" c! O/ TLINE INPUT #1, L$ . _& p9 n U/ N' C4 J: oReTry: / X- U* {+ N# U9 p2 Z8 DL$ = LTRIM$(L$)- N5 K4 Q" f3 `4 i% Y& v. K2 |' Y
L$ = RTRIM$(L$)$ O+ j& k& A3 T3 ]% \+ J( l
TmpValue = INSTR(L$, " ") 5 E7 {: w( q( C$ v6 Q. O# QIF TmpValue <> 0 THEN ) q) W; R' `! X9 W: w9 {! E* }; IDicTxt$ = LEFT$(L$, TmpValue - 1) 2 u$ ^7 M" `8 r; k- O. u: Y' vPRINT #2, DicTxt$ ' [, N) ~+ D: VLOCATE 7, 1: PRINT "Step 1, Add word : "; DicTxt$; STRING$(10, " ") * ?0 A, e1 E6 V+ TL$ = RIGHT$(L$, LEN(L$) - TmpValue) $ ]; I2 X+ h5 c+ X+ P, {6 ]GOTO ReTry5 L4 J( F3 [& x( S8 f& M4 l
ELSE+ e. G# d7 r7 e. k2 Q
GOTO ReInput , V; z+ [0 A7 R. p3 X4 M: _END IF ' ? x9 l* K, }' q A. D# NEND ^1 ?/ Z' }' E7 E5 f 5 H5 d4 L! W5 Q) A/ K" M) v) IEndFile: $ w, _- d. P9 q9 m6 l! ICLOSE ; u( N. c/ ?$ yREM Filter for special chapter and lower-case the word& T: F5 U, G/ U, b/ W% _
' |5 R3 v( z8 H/ f+ A' Y2 v3 m
OPEN "TMPFILE1.$$$" FOR INPUT AS #11 L* }4 _& x" y' E" @
OPEN DicFile$ FOR OUTPUT AS #2 ' E# r1 l6 q. k3 E2 e9 o) ?# z: \( uSpecial$ = "-,.:<>?*()/_" + CHR$(34) : q* b: Q2 Z d5 F3 c% C2 ]DO , O+ Y. e% L$ L7 HLINE INPUT #1, L$ # N* |) a( K; S) T2 R6 V7 ]FOR I = 1 TO 13' C6 v$ H" s3 q3 ]) v) K6 `
SP$ = MID$(Special$, I, 1) 2 k( F _; x/ ~. c! O" kTmpValue = INSTR(L$, SP$) 3 E: q. p+ ]2 g. nIF TmpValue <> 0 THEN 0 F; @7 S+ u0 I+ \4 t& zLOCATE 8, 1: PRINT "Remode special word :"; L$; STRING$(10, " ")8 O6 o$ @2 k5 n3 R: |; l% l5 Y$ a
L$ = ""* }; g- m: Y3 s" m% g' l, |
END IF% f6 T5 d, ~ b. Y: B9 R) s
NEXT I2 l. T0 F) B8 N4 X4 D- R [# {
IF L$ <> "" THEN6 w+ r" Q5 S! X/ w
L$ = LCASE$(L$) : P- j1 o/ \1 G9 T( t) |8 \$ XPRINT #2, L$ # s1 d p7 B7 DEND IF" l$ ^# Z( M6 B# H7 j6 Z: X
LOOP UNTIL EOF(1), a3 s* ]1 ]& y! Q- N. ^/ O
CLOSE9 N ?1 |, g. b% z0 N( [9 N. F
KILL "TMPFILE1.$$$"; N' x9 D7 E3 _) b* O6 N7 ?9 L
END+ w- s; Q% h% s: W0 S4 V- \: X
--------------- Cut Here, End of Txt2Dic.BAS . _5 U0 s7 \6 D; k6 B$ H9 K. S$ m------------------------------------------------------------------------------- " h! d, p$ z% F-* m9 S7 j) G2 W: D( |
- R8 r1 J( a7 _& M5 F8 E) ^, V
我只花了幾分鐘寫這個(gè)程式, 因?yàn)闀r(shí)間緊迫 (為了在過年前將此篇送出),所以有些考慮到的地方都沒有作修改, 在這里再作些說明: 這個(gè)程式的第一個(gè)部份為分解字串, 將碰到的 CHR$(20)% g" `6 F9 `( t9 m7 p
也就是空白分離出來, 這是分解一句話中字與字最簡單的方法,并且會將分解出來的字存在一個(gè)暫存檔中, 作為第二部分的使用. 第二部分將暫存檔讀入, 并過濾非正常的字母出現(xiàn),我只讓它過濾了十三種特殊字如: -,.:<>?*()/_" 等, 當(dāng)然如果你可視需要再作刪減的功能. $ C9 R3 B, z m% _4 }7 S# @ C( E& L. |! @
原本想要再寫排序及過濾重覆字的功能, 但是這些功能不是那麼需要,因?yàn)樵谂判蚍矫婺憧梢允褂秒娔X中 DOS 的 SORT 或 Crack Jack 的 JSort, 過濾重覆字也有 CoolFire 的 De-Sort可以使用, 所以就先在這里停住, 有心的讀者可以自行修改, 修改完後也請傳送一份給我,作為日後教學(xué)的參考之用, 或提供網(wǎng)友們分享. w7 P2 \8 x3 ^. P# b+ C& G' ~! L S2 u4 S/ P
仔細(xì)看一看這個(gè)程式還是有很多地方?jīng)]有作修正, 或是沒有作 Error Handle 等,但已經(jīng)給各位原始程式了, 大家就試著修改看看吧! Qbaisc 是一個(gè)很簡單的語言,只要你試試看就可以把這個(gè)程式改得很好了. 用這個(gè)程式試了一個(gè)文字檔, 發(fā)現(xiàn)它找到的字都是一些很簡單的字,當(dāng)然跟你所給它的材料有很大的關(guān)系, 使用這個(gè)程式配合一個(gè)很棒的材料檔, 應(yīng)該可以作出一份很棒的字典檔,希望大家可以好好的利用它. x# q; h' i% O
) I, Y+ k( }' _4 X' `1 r. z( |+ Z4 L-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-2 ]+ l; H4 w7 ]) z( M
**** 新工具程式 Global KOS Krack (KOS) **** / S5 c& m% W( J* e1 N# c( c & {- o, ]$ c# D1 v y記得從上次講過 Crack Jack 之後好像就沒有再講過 Password Crack 的工具程式了,當(dāng)然也跟最近沒有甚麼好程式出現(xiàn)有關(guān)系, 像前一陣子風(fēng)行的 Mail Bomb 最近也沒有再見到改版,倒是出現(xiàn)了一些寫得不怎麼樣的 Bomb 程式, 了無新意, 我現(xiàn)在還是在用 KaBoom 3.0, 你呢 ?? - M+ \! O7 q; ~' s/ _: a前幾天無聊逛了一下國外的 Crack 站臺, 意外的發(fā)現(xiàn)了一個(gè)叫作 KOS 的東西, 傳回來試了一試果然不錯(cuò),而且里面還包含了一個(gè) 3MB 多的字典檔, 這對字典檔中缺料的讀者們肯定會有幫助的. 2 C! } B5 j$ A- P% |% m/ RKOS 是許多工具的集合, 由一些批次檔對這些工具作了很棒的整合, 它必須與 Crack Jack一起使用才能運(yùn)作, 平常我們在處里 Password Crack 時(shí)都需要考慮到第一個(gè)字母大寫, 加數(shù)字, S5 G$ a8 ~$ V: L0 Y9 W字母大小寫轉(zhuǎn)換等等的工作, 都可以由 KOS 一手包辦, 你只要取得 KOS, 就可以配合著 Crack Jack將以前單單使用 Jack 尋找的 /etc/passwd 再翻出來 Crack 看看, 保證你會體會到擁有 KOS的好處. 1 D7 j% R9 O" h1 `: v' `: S/ T9 D t1 g$ b. A0 g* e
像前面所說的, 我將以前只找到 22 組密碼的 /etc/passwd 重新跑過, KOS居然可以幫助我找出 88組的密碼, 足可見 KOS 可以增強(qiáng) Crack Jack 四倍的 Cracking 能力, 作者宣稱 KOS 在- P8 H" j0 i' ^7 p0 R [
NT 上開了DOS 視窗就可以跑, 但是我以 NT 4.0 中文版及 Windows 95 (97 年版) 測試後還是因?yàn)镴ack 無法在上面運(yùn)作而停擺, 只好回到純 DOS 模式下才能夠使用, 但是 KOS還是能發(fā)揮它強(qiáng)大的功能, 唯一需要的就是一部速度快一點(diǎn)的機(jī)器, 當(dāng)然還有時(shí)間也是必需的. 1 F( W( S' B' N# ]+ f7 |( J$ i y& x
我使用 KOS + Crack Jack 在 Pentium-100 32MB RAM SCSI-II HDD 上跑一個(gè)/etc/passwd 檔加上我的字典檔 (passwd 檔案大小為 197K, 字典檔大小為 5.1MB),跑了四天都還沒有完全跑完的情況, 就可以知道 KOS 盡了多大的努力在幫我們找出密碼, 當(dāng)然如果你的 /etc/passwd 只有幾 K大小可能只消幾個(gè)小時(shí)就可以全部跑完了!! 不過要找出 root 密碼, 可能還是要靠點(diǎn)運(yùn)氣才行了....- @( p5 X, z/ `# E% Q9 {* N
$ M: ?/ |$ H" ]' g5 h- VKOS 的壓縮檔中還包含了 SHADOW.C 及 UNSHADOW.C 兩個(gè)解 shadow 的程式, 可在 Unix主機(jī)上編譯以取得被 shadow 過的 /etc/passwd, 在這里也順便提出,網(wǎng)友們不要忘了順便試試這兩支程式. ' {% M2 G _" h9 C! V: u 0 x j. f! {. a1 [. {; q4 N想要知道哪里可以拿到 Global KOS Krack ?? 到我們的 Home Page 看看吧!! ; O1 Y" g) M2 T, u: o# f' u9 B& w2 X- J7 I' O" A" V
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 1 Z/ {* p$ _6 l1 y: w- k; ~**** CoolFire FAQ ****( f0 S: S5 q6 ^9 K! r
. w! J; O2 \$ c1 f- R: {8 I
[Q1]請問一下你的letmein 2.0何時(shí)出來?) w0 @0 @" }9 T5 ?
[A1]因?yàn)樽罱鼘?shí)在是太忙了, 所以有很多的事情都沒有辦法依照預(yù)定的行程作完,所以最近也都不敢再多排訂行程,看看最近首頁更新的狀況也應(yīng)該知道我們實(shí)在是沒有時(shí)間多作別的事了, 所以要先跟期待 LetMeIn 2.0 的人先說生抱歉, 但是我們的 Idea 還是在持續(xù)增加中,所以如果有空寫 LetMeIn 2.0 的時(shí)候?qū)瞥龊馨舻陌姹? 請?jiān)俚鹊劝蓗~~ 這陣子先過了再說!! 2 e1 k d! x g! J b 0 I* F% j$ B3 D2 X[Q2]請問一下letmein 1.0 的setup keys-要如何設(shè)定? 如果用 netterm 要找login name& passwd在letmein要怎樣設(shè)定不斷換行, 而不會文字一直加長?( `# p: O* g% n7 u5 e8 \8 j
[A2] LetMeIn 1.0 已經(jīng)有作一份中文的簡易說明來補(bǔ)充原先說明檔的不足,所以如果你對該軟體有不清楚的地方請先閱讀這個(gè)說明檔之後再提出問題, NetMeIn 1.0 是在 NetTerm下作的測試,所以使用 NetTerm 配合 LetMeIn 應(yīng)該不會有問題, 請?jiān)僭囋嚳? 7 V" j( G% x! @" i, k 2 m, j) n |3 X& T+ F[Q3]請問 "最新之系統(tǒng)安全 mailliast" 要到那里去看? 還是要訂閱? 如何訂閱呢?是英文or 中文?0 \: b; S z1 r! L
[A3]原本想要在這次首頁更新的時(shí)候加入一些 Mail List 訂閱的連結(jié)點(diǎn),但是因?yàn)闀r(shí)間太匆促所以沒有作, 先跟各位說聲抱歉了, 你可在國外的 Hacker 站找到,或是先訂閱下面這一個(gè)List 來看看, 不過目前這類的 Mail List 都是英文的.# S* D# { t0 L$ o4 @5 x6 E! [
. C- L+ W- N( u0 A( ]: X+ C寫到: Majordomo@ns2.rutgers.edu1 }, e" T' I0 S6 g% A* w
標(biāo)題: (空白不填) 2 H: `+ r$ n; e5 n# ` L& O+ ~內(nèi)容: SUBSCRIBE www-security 你的 E-Mail 信箱 . `/ u& Y7 @. l. r$ t & S& N! Q: ~; K# ]% F[Q4]為什麼 De-sort 不能用? Key In ..... 為什麼會這樣?? ' B5 {: S7 u+ k% P+ PC:\Program Files\LetMeIn>de-sort) ~: a& z% h8 b; ?7 m3 s3 s
De-Sort V0.1 (C)1996 By FETAG Software Development Co. R.O.C. TAIWAN.& F6 r3 J: B* G& {% M; G
P9 q( Q( U' N" L6 y, K
This program will:* V6 r$ O3 n- b* b! N
5 L& a# T# x% F- ?) b( v5 d
[1] Delete reiteration word from a dictionary file 5 F' }4 H) }1 I( Z$ _0 R( f[2] Write the new file to a temp file. {9 u# @- ?+ t/ _/ s+ R
[3] Delete old dictionary file; c! `, ]/ i) k
[4] Rename new dictionary file as old one's file name 0 g# I" Y! R9 a- ^5 n$ N * s9 c* n$ p+ Y5 FDictionary file name: 1+ @1 p, f8 {4 b' {# a7 T" \
{Now Start To Check}, Z! k0 L) X2 O+ Z
* t8 A6 y( i0 T1 N9 |: h2 xSome error found when program processing, Code= 53$ X2 h: } s3 f
: u2 O* B: d V4 y4 o2 u
De-Sort Author: James Lin E-Mail: fetag@stsvr.showtower.com.tw , S% f- ^! u, X; U$ H" dFETAG Software Development Co: http://www.showtower.com.tw/~fetag; ~1 @$ ?" M, \/ z. \* z
C:\Program Files\LetMeIn>$ B3 | W2 ?# d
[A4]出現(xiàn) Error Code = 53 代表開檔有問題, 你所輸入的檔名 '1' 這個(gè)檔案可能不存在,你 , G4 L# f9 D( m! V8 D應(yīng)該檢查看看這個(gè)檔案是否存在於目前目錄, 否則就應(yīng)該給它目錄名稱, 其它的ErrorCode 可以參考 QuickBasic 或 Basic PDS 的書籍來查出錯(cuò)誤發(fā)生的原因是甚麼! $ q6 b2 D% e' [3 q' S3 p7 M, v2 q4 H# k) {( Y
[Q5]小弟自從放寒假後,"高-Net"費(fèi)用 往上狂飆, 急起直追請問你有Crack 過 "高-Net"嗎?? ( c3 ~! v$ V& L- F% s"高 - Net"的防備似乎蠻強(qiáng)的!我是你的忠實(shí)讀者,你的作品coolhc-1,coolhc-2,cool-3,我都有努力鉆研學(xué)習(xí),但就是弄不到 etc/passwd, 不知是不是我資質(zhì)太低 ~~#@$%煩請高- I' v" G* l+ B* M
手幫忙弄到 etc/passwd Ps: coolhc-2,and coolhc-3 最後的那句(高-Net 還是除外)是說"高-Net"可以或不可以 Crack ,如果不可以就不用幫我Crack 了![A5]當(dāng)然還是有漏洞, 我有稍微試過, 只要是新發(fā)現(xiàn)的 Bug,他們會很快的有人將漏洞補(bǔ)上,而且該 ISP 有許多的工作人員, 并且采用計(jì)時(shí)收費(fèi)的方式, 所以就算你 Crack 了,也是將帳目算到別人頭上, 有點(diǎn)缺德, 所以不需要 Crack 它, 大家不要申請它這個(gè) ISP就好了! 不然還是請你看看系統(tǒng)安全的 Mail List 了解最新的系統(tǒng)安全消息!比它們快一步進(jìn)入系統(tǒng)就可以了! 這個(gè)文章還是以教學(xué)為目的, 無法給你 ISP 的 /etc/passwd! * w3 o0 u$ d0 S* D3 `2 k3 _" X$ M' f- H& K' ]
[Q6]Hinet 密碼 to Dic: 因?yàn)?Hinet 的密碼格式是 1abcdefg 所以我就依照 coolhc-3的程式設(shè)計(jì)了這個(gè)東西! (0aaaaaaa ~ 9zzzzzzz) 希望會有用! 歡迎批評,指教,修改.5 |! N# _3 h( ]- b, @0 _2 [- h1 ~; w
6 d' o, l% }& I' G* E) Y
--------------- HinetPas.BAS Start Here+ d" S4 L, ^+ Y
-------------------------------------------------------------------------------# Z4 J4 ]4 }0 D' ]- ^
--------2 \& m. [: b" k
DIM No$(10) [6 p, o, A' a; _- v& ]% v" jDIM Eng$(26)& i/ L: d$ ]& e8 e1 E
DIM LastWord$(26)9 x4 u: ~! A0 M/ J, j
DIM a$(26) ( l0 u+ M% [5 {+ V+ u6 ]4 TDIM b$(26) ' j+ ^0 P! n7 ^DIM c$(26)% w5 ~+ ^3 p' z- Q e! C( C
DIM d$(26)1 ?7 P2 l6 L- \3 P4 }$ y
DIM e$(26) j ]$ c. z1 P: r# t3 A4 Q% v* r: x+ ~+ S8 @0 _/ z ~* j+ v
DATA "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"' `8 J, \8 r# q6 H d. q+ `: @
DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", $ \+ j3 q/ v& I' D+ k) _"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" 7 F- u+ T9 u" Y8 QDATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", 3 M; w! v) u/ [' k( ~"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"' C: L+ p# V g7 v' w
DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", 0 [; J2 I4 ]* ^4 l& @"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" 0 N& H9 p E- J7 }- i- J5 H5 IDATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",/ n) d, Y; Y6 N& _" t: X) `
"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" / X& N) [" z J6 q4 L I5 I$ nDATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",- j; R' M- d# b' _' C
"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" 5 \0 F- l! M( b2 s- G1 DDATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", 4 T# w2 n: G) S7 J5 I"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" ) ]4 d _+ H+ ]; ?( o' Z6 i- w9 O6 [DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",7 S# K; X" A6 u9 k
"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"& Q! p" a/ V8 s9 b
FOR I = 1 TO 10 # \' q/ h1 `! {& `4 N" F9 [READ No$(I)) W+ e+ U% U% C% O* _5 [! P4 r
PRINT No$(I)3 v0 z: ~5 g$ g1 [5 q$ `
NEXT I ) S" b5 _% T& {( r8 J; f- a& O8 C: _$ M6 H2 h7 ~
FOR I = 1 TO 26 : @+ }) D* ]; b, m3 t* `; [READ Eng$(I) 5 }1 V1 o* A" t. l4 f0 MNEXT I7 t' | |0 G" `2 c' B3 C
/ V( _5 w7 @& r, UFOR I = 1 TO 26 6 J+ M% y+ l3 iREAD LastWord$(I)& \6 `% X5 F. n$ z1 H
NEXT I : j% \; d+ y: ^FOR I = 1 TO 26! C7 O: z" P1 D/ h; @
READ a$(I) / c# C- |; z- |2 C+ P; [5 kNEXT I 6 t( m% a* r+ z1 ` k6 MFOR I = 1 TO 26 , P+ I$ h1 T. F$ W- m) S8 f4 yREAD b$(I)1 w8 ^' m9 M2 M3 V! o% P9 e* k
NEXT I $ S `1 {; u, q4 M+ L e; h0 Z5 b' ]1 i
FOR I = 1 TO 26* Y( {: F. R7 v" \: {$ V- F
READ c$(I)3 Y. f& X, a7 R0 Y6 S4 K
NEXT I- C1 l" R. M* V; L
: s# e( `& z# hFOR I = 1 TO 26( b8 L+ @: ?& p6 J; E) g$ n
READ d$(I) : S8 j) t. M2 p; ANEXT I 1 w% i0 F1 z( I; z9 Z: I4 Z( r5 ^( d6 |
FOR I = 1 TO 26 / w: ]; W: N8 s# Q8 Z8 ~7 k IREAD e$(I) 4 G) H! l/ O: ?& M! _NEXT I, r) S& ?5 y- V& R+ b7 D2 A
F6 b2 F o- g2 X+ z
: i5 }2 V$ b h. _, GOPEN "Hinetpas.txt" FOR OUTPUT AS #1 # m1 f; |/ E/ ~$ i) n: ]1 O- A2 q5 a2 o& K. t
FOR I = 1 TO 10* s# X4 r: l& a* M5 N8 w. b1 g
FOR J = 1 TO 26* k' F4 {3 T n9 ~
FOR k = 1 TO 26 7 v! C1 [2 C7 V2 @. e7 j F6 y$ KFOR l = 1 TO 269 k# h# t: ~' y( Z
FOR m = 1 TO 268 E3 f; J) Z1 \6 R: P
FOR n = 1 TO 260 O7 w5 j z* I" Q: D9 U
FOR o = 1 TO 261 u( T* Y* G3 j' x4 u
FOR p = 1 TO 261 X! H! P n* T7 }0 w7 E
PRINT #1, No$(I) + Eng$(J) + LastWord$(k) + a$(l) + b$(m) + 8 ~+ @# E/ K& X* _% Q; bc$(n) + d$(o) + e$(p) 4 \8 M& q- o0 f4 \' J+ sNEXT p 2 J' g& _7 e! l& ONEXT o 8 H- h3 E5 O. ~3 t- G" y( H# tNEXT n 9 v: [: X, E5 u- \$ \9 SNEXT m 3 V4 Q/ L, [, ^2 P3 NNEXT l7 Z& N+ z/ J% S; @& L- o# \
NEXT k / I: z* a R" s0 v' H$ v" ~NEXT J ! @$ O- b, c5 ~. X$ P: d& }9 GNEXT I & R; l% o% h, R! aCLOSE : END ' v$ d) O: M. H( D! K& e" n6 v--------------- Cut Here, End of HiNetPas.BAS - A! Y6 \2 C1 m1 }% y& m( a------------------------------------------------------------------------------- + ^0 {9 M& ]4 b" k-' w4 E* d, K8 Q, E4 c: y
[A6]謝謝這位網(wǎng)友, 你的 For... Next 的 Deep 實(shí)在太長了,不得不將格式改變一下才能放- L1 j8 X# g' u5 P( p
進(jìn)文章中. 也希望有更多人的集思, 寫出更多字的字典檔! 8 A- |! M- p- O7 o' b, N3 m8 |3 ` 3 ~% y# r! I: T' O) C( ^* h }0 ?% v+ s- I
[Q7]我用pass2dic時(shí)沒辨法轉(zhuǎn)成文字檔ㄟ, 會有錯(cuò)誤說(以下的訊息)請問要如何更正... ' k6 x. `* \. R. e+ O6 R5 OSome error found when program processing, Code= 75 " }1 e$ u- W C1 n[A7]試過了, 都沒有辦法產(chǎn)生這樣的 Code, 所以請看看磁碟是否防寫, 或參考 BasicPDS的& n" \5 o+ o, N' I- Q* a$ j
書籍尋找該 Error Code 的解釋或說明.& X. r4 Z4 y, B. r& `# s