这不是一个教学文件, 只是告诉你该如何破解系统,好让你能够将自己的系统作安全的保护, 如果你能够将这份文件完全看完, 你就能够知道电脑骇客们是如何入侵你的电脑, 我是 CoolFire, 写这篇文章的目的是要让大家明白电脑安全的重要性, 并不是教人 Crack Password若有人因此文件导致恶意入侵别人的电脑或网路, 本人概不负责 !!' n) w5 r8 ]' Z7 h7 j
; B( L5 I: ?" s! e; c3 P
经过了上一次的实战, 该 ISP 已经灰头土脸, 当然也已经将被我揪出密码的 UserPassword 改掉了, 但是系统安全部分还是没有多大的改进, 唉.... 有点伤心.这一次的内容主要在加强上次所说明的字典档部分, 因为我又想到另外一个方法可以快速的产生字典档,而且用这个方法产生的字典档更吓人; 当然还要跟大家介绍另一个好用的 Password Crack 工具,并加上最近的一些信件整理出来的 FAQ 等, 希望能在过年以前就将这一篇写好!4 L( k! A; ?% c$ |/ k3 Y
, U6 m" U- S& Q
本次主题: 字典档的维护及更新; J, r, q8 N ?9 n
连接位址: 无
# W+ \% ^2 C+ C; @; `0 V$ q特别说明: 快点加强一下你的字典档吧 !! 不然怎麽破密码哩?!
1 m1 N5 T/ e% C9 w5 N% _% _8 }- C( l( ^
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
1 V( j; T. ?+ |: z1 g/ O8 o1 `**** 课程开始 ****
2 ?# K! c/ y7 N( h- t+ V3 B% K* w4 I0 b! e1 \, c8 y4 u0 k8 s8 l: b: a: ]
依我看, "字典" 这个讨论应该是谈不完的了, 因为有太多的方法了,但是为了维护你自身的权益, 自己的密码最好保管好, 我在前几天刚拿到 KOS 的时候, 拿她来跑一个 ISP 的 /etc/passwd 档案, 原先单单使用 Crack Jack 只找到 22 组的密码, 用了 KOS 加上 Crack Jack 居然共找到了88 组的密码, 还好该 ISP 不像 高-NET 一样是属於 "时数收费" 的收费方式, 不然可能有许多的User 自己当了冤大头都还浑然不知. 所以这个讨论还是免不了的, 如果你觉得你不需要这些知识,请跳过去吧!!1 K% H. w) s) P) Z! m" |
4 V6 r9 w, V) ^% k/ \2 h. V
上次的字典档讨论, 我写了一个简短的程式出来产生了 3120 组的密码,但是这些密码并不一定是一个 "字", 也就是说产生完全合乎我们所限定的 "法则", 但却不一定是一个已存在的字,
1 v7 h; m+ R0 z+ I& P/ }$ M所以如果要产生一个 "高效率" 的字典档, 使用上次所说的那种方式就不是一个很好的方法了.; y# G1 y5 Y+ b$ D0 e
以上次所写的程式 MAKEDIC.BAS 所产生的 MyDic.txt 为例, 其中的 braard clale cleoe dgeiingdgeie.......等字就不是很 "正常" 的字, 当然也有可能是某人的密码, 但其机率小之又小.
' m# `9 l. l2 R
) ^% _7 c/ H( g* g+ P/ O这次所写的程式名称为 TXT2DIC.BAS, 我们还是先使用大家都熟悉的 QBASIC 来写,以方便日後的修改, 先说明一下原理: 这个程式是一个自动产生字典档的程式, 我们是经由给程式一个"文字档", 然後由程式自该文字档中 "抽取出" 字出来, 这些文字档必需是英文的文字档,如果使用中文的文字档的话程式跑起来会有问题, 英文文字档的取得可由英文版软体的 Readme档或网路上的英文版学术论文或其它的来源.
( k6 A9 ~, i( u! T9 _* f- Z. s# t: g V' V/ u! e
当然有可能在文件中会出现像 www.showtower.com.tw/~fetag 的字眼,我们总不能把它也列入字典档中吧! 所以程式中有一点小小的设计, 就是该字若字母数大於 10 则不列入考虑,我们也可以使用上一次所介绍的子音+母音... 等的公式来作检查法, 但是我没有太多的时间作这些事,留待有空的人来写吧!!% t. v: k7 C, O
9 @9 R) o( j+ s3 Q7 O2 ]8 _' N& W
底下就是该程式原始码, 请各位以 QBASIC 来启动并执行它:8 z- M; `: k$ B. M1 w- e" W
9 z0 `- f8 \, ^$ L9 ^7 `
--------------- Txt2Dic.BAS Start Here
3 \ ]/ k, N3 g7 c-------------------------------------------------------------------------------
6 c- T( d6 l: L--------
. M' r& n4 w4 D/ m) xCLS3 _. d8 S- V+ C& _
PRINT "Txt2Dic Version 0.1B (C)1997 By CoolFire ReChange: CoolFire"8 U- ]9 S( m3 y) V/ R
PRINT "[Source Released, For Changer, Add Your Name in ReChange Field]"
j+ r. W) z/ \PRINT8 i0 W+ R1 u/ Y7 j5 ^( P" z
LINE INPUT "Text File Name: "; TxtFile$$ G$ X- r4 O) `! u
LINE INPUT "Output Dic Name: "; DicFile$
& X2 u9 [7 H* d2 p3 r% d4 [2 fOPEN TxtFile$ FOR INPUT AS #11 q! z9 X$ v0 p) P6 M
OPEN "TMPFILE1.$$$" FOR OUTPUT AS #2
6 E# F# \: a+ P) N8 C, E9 @) r: S! a
REM Filter for text file1 A, F3 r* H+ P5 q* v4 T4 l0 G- A& L
* f1 o2 P: u. `8 o% r: bReInput:" Z! m. b" B3 a+ i# _/ @' H# O* ?
IF EOF(1) THEN GOTO EndFile
/ \- {( }" R# h, p {9 t- {1 CLINE INPUT #1, L$! T9 [( r H, h5 p7 T
ReTry:
# k1 t4 r; ~- \L$ = LTRIM$(L$)4 k; R p+ r# {
L$ = RTRIM$(L$), r6 [/ C9 y" `" ?& `
TmpValue = INSTR(L$, " ")
. `5 @$ Q- b6 h3 vIF TmpValue <> 0 THEN0 _ o' Y9 _6 m( V! }
DicTxt$ = LEFT$(L$, TmpValue - 1)$ l* l$ _4 G# C; f" Y
PRINT #2, DicTxt$. ]+ s) H! J; v0 z* P/ R
LOCATE 7, 1: PRINT "Step 1, Add word : "; DicTxt$; STRING$(10, " ")
5 I) M) i# r9 k: p9 WL$ = RIGHT$(L$, LEN(L$) - TmpValue)3 b, P( S& Y' W- N$ W( I3 f
GOTO ReTry4 y2 I, ^" W% ~1 ~2 w$ o6 y
ELSE% Y, }4 e/ k7 V7 W, R9 T
GOTO ReInput
3 k& N/ m3 J* @1 r" @) nEND IF9 t1 v7 o) |/ R$ c9 ^- L
END
0 {( b+ b' }/ B$ @, k0 d: B7 F' r: J! d% r4 d2 m0 P
EndFile:
/ u! E2 f2 W, N* F9 A) f o3 `CLOSE( _1 \& a @9 i% h
REM Filter for special chapter and lower-case the word2 U0 m2 W7 E9 i6 f
$ C' S2 s( c/ Y# ~7 BOPEN "TMPFILE1.$$$" FOR INPUT AS #1
9 _: j0 W7 h3 L; f0 L/ n+ _OPEN DicFile$ FOR OUTPUT AS #2+ t3 M: j$ a! Q N$ E
Special$ = "-,.:<>?*()/_" + CHR$(34); N' [5 v+ A2 o' N7 G" n+ \8 G/ R
DO0 J1 v( K ?3 J/ {3 A
LINE INPUT #1, L$" U( y$ Z9 G, K
FOR I = 1 TO 13 Z/ g; e/ a5 I9 G
SP$ = MID$(Special$, I, 1)
" f7 D( l" W8 [7 f! }TmpValue = INSTR(L$, SP$)
( _# w' l4 f5 z& z! ^IF TmpValue <> 0 THEN2 o9 g8 `$ L( n" A7 ~- U
LOCATE 8, 1: PRINT "Remode special word :"; L$; STRING$(10, " "): S9 C8 u2 H5 M* P% i/ X
L$ = ""' Y# a# j' O/ N8 O
END IF0 x$ T1 {) Q2 v; g% u5 _1 W. \+ j
NEXT I
7 q0 s n# l! N" r: B: {8 hIF L$ <> "" THEN4 T9 d0 W1 w9 M- G. ?) e4 O
L$ = LCASE$(L$)8 b( Z/ I) b9 _: y3 f2 z6 L
PRINT #2, L$% k% E7 B# u; Q* k
END IF8 M+ f% b. d! D5 {7 Z
LOOP UNTIL EOF(1)& w& g) j! c u; T" Z
CLOSE
# C! o! E/ ?' O2 \% JKILL "TMPFILE1.$$$"
* _% C8 E" C3 k; q# s7 c" eEND: b. q# M) U9 K' E: @" {
--------------- Cut Here, End of Txt2Dic.BAS' A" W! u6 S0 z1 @7 s; K
-------------------------------------------------------------------------------
# a+ Q- ^ w' W- ]$ }-- o$ E1 ]% V* l# O! y2 V
2 y2 L+ |3 {$ S& l
我只花了几分钟写这个程式, 因为时间紧迫 (为了在过年前将此篇送出),所以有些考虑到的地方都没有作修改, 在这里再作些说明: 这个程式的第一个部份为分解字串, 将碰到的 CHR$(20)6 D H2 U7 o5 x6 \5 Z H7 Q
也就是空白分离出来, 这是分解一句话中字与字最简单的方法,并且会将分解出来的字存在一个暂存档中, 作为第二部分的使用. 第二部分将暂存档读入, 并过滤非正常的字母出现,我只让它过滤了十三种特殊字如: -,.:<>?*()/_" 等, 当然如果你可视需要再作删减的功能.
, Q8 B0 I9 V$ z5 f: i: r" l' w( h) y& H
原本想要再写排序及过滤重覆字的功能, 但是这些功能不是那麽需要,因为在排序方面你可以使用电脑中 DOS 的 SORT 或 Crack Jack 的 JSort, 过滤重覆字也有 CoolFire 的 De-Sort可以使用, 所以就先在这里停住, 有心的读者可以自行修改, 修改完後也请传送一份给我,作为日後教学的参考之用, 或提供网友们分享.+ a+ C9 r7 a$ n# e) A
( T t: d5 Z8 k* ^! C& n% G, j
仔细看一看这个程式还是有很多地方没有作修正, 或是没有作 Error Handle 等,但已经给各位原始程式了, 大家就试著修改看看吧! Qbaisc 是一个很简单的语言,只要你试试看就可以把这个程式改得很好了. 用这个程式试了一个文字档, 发现它找到的字都是一些很简单的字,当然跟你所给它的材料有很大的关系, 使用这个程式配合一个很棒的材料档, 应该可以作出一份很棒的字典档,希望大家可以好好的利用它.; p1 {0 H( |& T% m2 _) X/ c
: [' o, r3 p s& H. c
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
4 c& Y& g# e& N**** 新工具程式 Global KOS Krack (KOS) ****
( ^) z1 |" d7 o0 H& N/ y/ b' L, x8 l/ n' |$ R
记得从上次讲过 Crack Jack 之後好像就没有再讲过 Password Crack 的工具程式了,当然也跟最近没有甚麽好程式出现有关系, 像前一阵子风行的 Mail Bomb 最近也没有再见到改版,倒是出现了一些写得不怎麽样的 Bomb 程式, 了无新意, 我现在还是在用 KaBoom 3.0, 你呢 ??" [ o# ^' n, N7 D# v m* a
前几天无聊逛了一下国外的 Crack 站台, 意外的发现了一个叫作 KOS 的东西, 传回来试了一试果然不错,而且里面还包含了一个 3MB 多的字典档, 这对字典档中缺料的读者们肯定会有帮助的. ) W/ o( X P7 [
KOS 是许多工具的集合, 由一些批次档对这些工具作了很棒的整合, 它必须与 Crack Jack一起使用才能运作, 平常我们在处里 Password Crack 时都需要考虑到第一个字母大写, 加数字,# t# Z7 U& t' D' @ H7 ~
字母大小写转换等等的工作, 都可以由 KOS 一手包办, 你只要取得 KOS, 就可以配合著 Crack Jack将以前单单使用 Jack 寻找的 /etc/passwd 再翻出来 Crack 看看, 保证你会体会到拥有 KOS的好处.
* v `% u% U- q6 z1 N* D; C7 G, K
像前面所说的, 我将以前只找到 22 组密码的 /etc/passwd 重新跑过, KOS居然可以帮助我找出 88组的密码, 足可见 KOS 可以增强 Crack Jack 四倍的 Cracking 能力, 作者宣称 KOS 在( z6 |# v1 \7 v" Q4 k9 g
NT 上开了DOS 视窗就可以跑, 但是我以 NT 4.0 中文版及 Windows 95 (97 年版) 测试後还是因为Jack 无法在上面运作而停摆, 只好回到纯 DOS 模式下才能够使用, 但是 KOS还是能发挥它强大的功能, 唯一需要的就是一部速度快一点的机器, 当然还有时间也是必需的.
; Q9 |( P: |* Y/ s" J
* p7 i) E: j9 @/ G) K+ E& ]8 s我使用 KOS + Crack Jack 在 Pentium-100 32MB RAM SCSI-II HDD 上跑一个/etc/passwd 档加上我的字典档 (passwd 档案大小为 197K, 字典档大小为 5.1MB),跑了四天都还没有完全跑完的情况, 就可以知道 KOS 尽了多大的努力在帮我们找出密码, 当然如果你的 /etc/passwd 只有几 K大小可能只消几个小时就可以全部跑完了!! 不过要找出 root 密码, 可能还是要靠点运气才行了....
) ]; I3 u+ C$ ^. A# n8 |
' i X: q" [ X) h! |( U$ k' P xKOS 的压缩档中还包含了 SHADOW.C 及 UNSHADOW.C 两个解 shadow 的程式, 可在 Unix主机上编译以取得被 shadow 过的 /etc/passwd, 在这里也顺便提出,网友们不要忘了顺便试试这两支程式.; T$ r# a5 k. ]: k$ {. B
6 |' j! ~8 c; O9 K想要知道哪里可以拿到 Global KOS Krack ?? 到我们的 Home Page 看看吧!!
* W- R+ L6 k' g8 ~0 _- y4 K
/ l+ k5 T# Q5 A( J4 S-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-' m- T. p# v: t/ ~ }* @) v
**** CoolFire FAQ ****
5 \; @6 R9 z) h- N9 J
3 r- k. e; \- x' d[Q1]请问一下你的letmein 2.0何时出来?2 M( f* t9 [' e
[A1]因为最近实在是太忙了, 所以有很多的事情都没有办法依照预定的行程作完,所以最近也都不敢再多排订行程,看看最近首页更新的状况也应该知道我们实在是没有时间多作别的事了, 所以要先跟期待 LetMeIn 2.0 的人先说生抱歉, 但是我们的 Idea 还是在持续增加中,所以如果有空写 LetMeIn 2.0 的时候将会推出很棒的版本, 请再等等吧~~~ 这阵子先过了再说!!
# R" g2 k. m' {( b& y) [. }8 i( ~5 m
1 l2 W$ B% S+ s: x& h[Q2]请问一下letmein 1.0 的setup keys-要如何设定? 如果用 netterm 要找login name& passwd在letmein要怎样设定不断换行, 而不会文字一直加长?
+ K8 W9 A# `% B4 }" w3 t! `[A2] LetMeIn 1.0 已经有作一份中文的简易说明来补充原先说明档的不足,所以如果你对该软体有不清楚的地方请先阅读这个说明档之後再提出问题, NetMeIn 1.0 是在 NetTerm下作的测试,所以使用 NetTerm 配合 LetMeIn 应该不会有问题, 请再试试看!/ M1 @ k% P1 @+ g
0 Z1 \+ ^+ C9 B, ]8 r- m[Q3]请问 "最新之系统安全 mailliast" 要到那里去看? 还是要订阅? 如何订阅呢?是英文or 中文?
& ~7 `% k8 q# r4 v) @[A3]原本想要在这次首页更新的时候加入一些 Mail List 订阅的连结点,但是因为时间太匆促所以没有作, 先跟各位说声抱歉了, 你可在国外的 Hacker 站找到,或是先订阅下面这一个List 来看看, 不过目前这类的 Mail List 都是英文的." v, E& a# ~2 M) ?/ M
( |; ~4 v; u8 l0 I写到: Majordomo@ns2.rutgers.edu5 C. M# r; P/ w0 y) J; R; F5 i
标题: (空白不填) 1 Q% a* O( \' z5 ?; n
内容: SUBSCRIBE www-security 你的 E-Mail 信箱6 m+ C& l. F, ]1 [+ S' p
, c6 N0 m% ~+ a3 Z! M; T3 d" x[Q4]为什麽 De-sort 不能用? Key In ..... 为什麽会这样??. Q5 `2 k0 L/ K2 n2 K
C:\Program Files\LetMeIn>de-sort
, ~' j5 |, r) D1 O6 SDe-Sort V0.1 (C)1996 By FETAG Software Development Co. R.O.C. TAIWAN.. t. M3 L* M. Q/ t+ |. l+ q1 |
/ k+ y- h& P. f# g
This program will:
# }7 A/ E3 Z: {
3 b( A4 C# }0 o% c[1] Delete reiteration word from a dictionary file
9 E( n- ~5 x5 H1 _% Y[2] Write the new file to a temp file
2 \6 Y7 A) e4 _$ Z0 o8 s5 J; {! r[3] Delete old dictionary file, M- `1 m2 O# X% d8 }6 z
[4] Rename new dictionary file as old one's file name. q# {# g" w) s- u7 L% M- [4 o9 {
: m, D- C% f) h
Dictionary file name: 1
( n- ~7 t: p8 @% n: t{Now Start To Check}( o+ d5 ` c* A& _& c$ U
1 F7 v$ E9 Z y+ bSome error found when program processing, Code= 531 O* h: M1 O8 t$ q8 R0 c- I
% ]8 q- T' B5 {1 D& t5 B0 ^7 p) BDe-Sort Author: James Lin E-Mail: fetag@stsvr.showtower.com.tw
! j$ v$ n% I( B: DFETAG Software Development Co: http://www.showtower.com.tw/~fetag
6 @1 [- B c7 |3 H6 wC:\Program Files\LetMeIn>
* b! H/ x y. ^[A4]出现 Error Code = 53 代表开档有问题, 你所输入的档名 '1' 这个档案可能不存在,你
, f% S$ U* e, B( U! n: q应该检查看看这个档案是否存在於目前目录, 否则就应该给它目录名称, 其它的ErrorCode 可以参考 QuickBasic 或 Basic PDS 的书籍来查出错误发生的原因是甚麽!9 W4 u2 g; t) s. B4 R
$ U7 v) \6 ?9 N2 c9 _, K5 R8 u[Q5]小弟自从放寒假後,"高-Net"费用 往上狂飙, 急起直追请问你有Crack 过 "高-Net"吗??
: V( [: M# ^& K5 p8 A5 A! N3 E"高 - Net"的防备似乎蛮强的!我是你的忠实读者,你的作品coolhc-1,coolhc-2,cool-3,我都有努力钻研学习,但就是弄不到 etc/passwd, 不知是不是我资质太低 ~~#@$%烦请高0 @: C1 e% v+ B+ l
手帮忙弄到 etc/passwd Ps: coolhc-2,and coolhc-3 最後的那句(高-Net 还是除外)是说"高-Net"可以或不可以 Crack ,如果不可以就不用帮我Crack 了![A5]当然还是有漏洞, 我有稍微试过, 只要是新发现的 Bug,他们会很快的有人将漏洞补上,而且该 ISP 有许多的工作人员, 并且采用计时收费的方式, 所以就算你 Crack 了,也是将帐目算到别人头上, 有点缺德, 所以不需要 Crack 它, 大家不要申请它这个 ISP就好了! 不然还是请你看看系统安全的 Mail List 了解最新的系统安全消息!比它们快一步进入系统就可以了! 这个文章还是以教学为目的, 无法给你 ISP 的 /etc/passwd!( C" x' N, ], a% o9 [: d. u+ k8 A' D
/ g3 @4 e4 ?" K1 V5 S3 L j
[Q6]Hinet 密码 to Dic: 因为 Hinet 的密码格式是 1abcdefg 所以我就依照 coolhc-3的程式设计了这个东西! (0aaaaaaa ~ 9zzzzzzz) 希望会有用! 欢迎批评,指教,修改.9 Z% N( e* t+ f
5 K) ^5 G! n) }9 Q0 E
--------------- HinetPas.BAS Start Here
c' B8 o" N2 Y1 `/ v6 Y-------------------------------------------------------------------------------
9 U- t. h J% l* v% z1 |--------
% h+ f4 f+ w4 r( H( b1 [& vDIM No$(10)4 y4 c% C x6 d8 D
DIM Eng$(26)4 ~& c# T+ V/ W# ?' G7 i
DIM LastWord$(26)4 P0 k2 [' x" f1 b
DIM a$(26)
8 ?2 q% V# X+ m4 ?+ {DIM b$(26): P m. E) c% w$ U. z2 ~7 z
DIM c$(26): Z& a# z7 d% [ k8 Y5 e0 t
DIM d$(26)1 d+ t% L" P/ ~8 G( k" J
DIM e$(26)6 [$ E% P ]; M4 m% E
" w4 Q- J7 t1 [! _; B
DATA "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"% Y: ~2 O: s! e
DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",$ L' P4 U* r: [+ Q
"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z". O/ k7 S9 z2 o
DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o"," C7 d" q1 q) A0 m7 W
"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"
2 p1 ]# v {- t: w d5 _ W$ }DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",) h2 }* I, R" k- X# L
"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"
8 J/ C9 t, D' o5 ~: K9 v1 C( ~DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",
, u2 s6 G. P3 i; y& x" N"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"
" Q6 t* p$ L+ `/ f. C. lDATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",
" J8 T' z% d( N, J8 z) k"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"8 A2 a" F! G M; E/ ^- b& @% p3 i# F
DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",
& j% O% S& Z8 W, L E4 o8 }1 g9 D& U"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"# @0 V$ U2 E |8 m- M7 [$ x
DATA "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",( u1 K" ? U" N$ I' S
"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"% c. u/ d4 Q3 N8 G/ \
FOR I = 1 TO 10
0 t9 A, K: O4 x6 a' Z# NREAD No$(I)- ?$ ~3 e9 g4 q; D1 `1 U
PRINT No$(I)
V: t b! F2 z! b n' F# m h, ENEXT I
" a% P4 N! H7 ^3 a1 Q8 t% U
9 G) U4 Z9 |1 L4 WFOR I = 1 TO 26
) f1 n) L5 A+ m @READ Eng$(I)/ b0 |- T% i9 F, P' j2 K% {' _
NEXT I4 ]! x1 {; B& y1 d2 E
* p9 ]# }0 ^, e3 _2 Q$ xFOR I = 1 TO 26. Z4 r! @' O% `7 @
READ LastWord$(I)" r* H x2 p6 k$ W# W% Y& j9 |# n
NEXT I
5 G) O6 V" x! y1 {: M6 w: \FOR I = 1 TO 266 ^. B: h/ _; ]* H2 d2 Z3 u
READ a$(I)
7 v0 i% P% w: X7 o% C1 nNEXT I7 k1 Q# j% ^5 h$ o( ]
FOR I = 1 TO 26
8 o i9 S' e; c% S8 ~! W: x$ oREAD b$(I)! T& B& R8 Q# ~' e$ i
NEXT I
& m* i! l" H/ R# |: {4 X; o+ p( U) a4 D- R y, W) v# X
FOR I = 1 TO 26
# h1 R R- e6 H! `/ B* fREAD c$(I)! @7 F) k# D- u3 c- y
NEXT I& ?7 K: q+ q, r3 S) o3 s2 S
- [( W( @# j5 m
FOR I = 1 TO 26
- _' @9 v/ u+ hREAD d$(I)
# m' W3 m5 e- \; ONEXT I
8 X- j& p9 S, Y0 A& R3 m
& i5 a% d) U+ U4 cFOR I = 1 TO 26
- Y6 U6 H$ K- l& `) {3 DREAD e$(I)
" k; t! I0 d: [3 v3 g4 ]: _' hNEXT I
4 q4 A/ u! a$ \2 s+ d* ?6 D( `0 s! Z$ Y6 |( U* g5 g
" w( f% x8 ^% I T5 Q' z, @
OPEN "Hinetpas.txt" FOR OUTPUT AS #1
; O; w' v% y; C, a1 o2 _, A% O
n& R7 V' S. |' Z0 O0 j$ GFOR I = 1 TO 10
1 Q) P7 Q$ _& {% \FOR J = 1 TO 260 ^: G2 E7 D% G1 f% }) V
FOR k = 1 TO 26
' L+ j+ H6 d' ?FOR l = 1 TO 264 d8 H3 k1 {. J1 } B
FOR m = 1 TO 26
- \0 j) ^8 Z: bFOR n = 1 TO 266 B+ R; U' z2 |
FOR o = 1 TO 26
( s: h# H8 j/ {# l, K# R, oFOR p = 1 TO 26. ^- x9 {' c, [/ V% C: j4 }& D$ Q
PRINT #1, No$(I) + Eng$(J) + LastWord$(k) + a$(l) + b$(m) +
8 G/ J" _9 g4 G7 H* ^/ o# Jc$(n) + d$(o) + e$(p)
$ R( d! @# L# a5 kNEXT p/ ^$ V2 }! [/ F' Z1 j9 j
NEXT o. Q0 F8 H( F, e1 u4 f
NEXT n7 }9 G* F! k6 \6 F, e7 K
NEXT m
% W D- h$ }6 q8 Y6 v/ E- iNEXT l
" H1 u" P5 W' B5 X2 _7 QNEXT k
9 {. r% D- m4 e ENEXT J
- E% Q' T, o v; |/ CNEXT I; Z, w1 o( T% y' g" l2 e
CLOSE : END; z( s( `* x$ e- I# _' s' _
--------------- Cut Here, End of HiNetPas.BAS; ]( x. T/ a( x2 K: V! M$ f0 G2 V- S
-------------------------------------------------------------------------------5 w5 Q, g/ P$ v# r$ i6 \
-' s" ?# `! \- R
[A6]谢谢这位网友, 你的 For... Next 的 Deep 实在太长了,不得不将格式改变一下才能放
6 I' P* E& u' m- Z进文章中. 也希望有更多人的集思, 写出更多字的字典档!
5 t+ F/ d1 h- W! A( i
h6 G, d) T6 R- x* j
9 ^4 l% F; i( T1 g7 J[Q7]我用pass2dic时没辨法转成文字档ㄟ, 会有错误说(以下的讯息)请问要如何更正...
, ^& ]) c+ F7 c* N$ T/ L' ]Some error found when program processing, Code= 75) O: F8 y2 @) p# _
[A7]试过了, 都没有办法产生这样的 Code, 所以请看看磁碟是否防写, 或参考 BasicPDS的
" H2 a$ p0 J( Y% [8 O1 a书籍寻找该 Error Code 的解释或说明.+ T: Q+ l- I' g4 J% V/ n
( Q C' @$ Y6 F, V: a9 p[Q8]请问一下，passwd除了会放在/etc/之下，还有可能会放在哪儿？
" _ {0 a8 z' [" ^- Z2 v[A8]有有可能是 /etc/ 目录中的 passwd.??? 或 shadow 或 shadow.??? 都有可能.
! s+ J3 n8 r, {$ i. Z" [9 q& ^/ t1 t8 S/ W' S/ O/ m' Y0 \9 B3 Z, D
[Q9]我有在你的HOMEPAGE DOWNLOAD CoolHC#1.txt$ b; T) b) E1 f( \) K" f% X+ w- ~
里面有些步骤不懂如:1.(首先要先连上某6 ^0 v6 e% o6 q) A2 M- ?0 M
一台你已经有帐号的 Telnet 主机.....)? 是不是在刚上HINET时出现拨号视窗下选=3- K6 f8 W% ~# G5 m% a( I, I. v
' S, Z5 R1 t5 Z! n9 l
进入TELNET?还是SELECT=1 进入PPP後用WS-FTP 找寻etc/pass 的档案?$ M* A" T' Z% a4 M! j
2.(我有在你的HOMEPAGE DOWNLOAD A letme.. of program 有点像claymore,不过不会使用
M1 l5 g$ ^' w" u# N. z9 uQ.他不把所有的设定都用好後按"START BF"在 DELAY 未结束时,把游标移到要 CRACK 的
' q$ q6 h7 e$ JPASSWORD BOX?但是出现了很长的数字也没有 CRACK? 3.(我在一些国外的WAREZ 看过有关HACK
8 m# n' P1 W, s0 c; _UNIX的文件里有写都包函一段 "C"语言,是不是能在 TELNET 下输入执行程式就会自动CHECK
: w8 b4 t% W% o# NPASSWORD?是不是你在 "COOLHC#1.TXT里有保留一段进入 SYSTEM 的程式?
3 t; u( L' R: U' Y# I4 E4.(有时用WS-FTP下找PASSWORD时,不是隐藏就是没用的档案,是否有方法让隐藏档显示?
: a. ~9 T# Y M" `# j; Z; a5.你有一个AUTOHACK是不是一种利用拨电话的方式进入主机?(有点像电影中的战争游戏)?
1 J0 }1 H6 G! \& F! c$ ~! o) l6.像SHADOW.C的档案要如何组译成执行档?# V6 t/ ?2 O% f! x
[A9]好多的问题喔, 我一个一个回答吧! 1.LetMeIn! 是用在 PPP 模式, 不是 Telnet模式, 你% c/ ^0 i: F2 a$ H( A2 e! n
先连上 PPP 模式後开启 NetTerm 然後开 LetMeIn! 在 LetMeIn! 中作好设定按下Start键後再回到 NetTerm 等待自动输入. 2.Telnet 可在你的 Win95 中找到, 只要连上 PPP模式就可以使用, 你也可以使用 NetTerm 之类的软体, 不一定要在连线时选 Telnet模式.3. LetMeIn! 需要在启动後回到 Telnet 软体才会自动 Crack 4.AutoHack是自动拨号寻找有连接数据机的电话号码, 对 InterNet 来说可能没有用出吧! 5.用这一期 CoolHC所说的 KOS 中有 Shadow.c 可以试试. 6.用 cc 指令可以编译, 但要看你的 ISP有没有提供.: R- l- ?; C& o8 x
5 W# e( @, k& P5 c8 @7 V# b1 i[Q10]请问我抓到的一些字典档 .Z 格式, 为何无法用 uncompress 解开,解开後都是一些乱码& Y$ d; {& V( V# |: k+ u3 s
[A10]如果你用 Windows 或是 Win95 的话, 试著安装 WinZip 应该就可以解开了 !!$ m4 `- |& Q* A3 y7 E/ E, B
1 D; }$ f) \6 W5 x! j D* f, K' X2 z
[Q11]请问能够提供更多的crack document吗(能有中文吗,英文的有点吃力说)或是介绍更多的: f3 b/ `- \9 r8 {
Crack Tools.
" X% }0 M7 X2 x* i O[A11] CoolHC 就是中文的呀! 但是其它的当然只有英文的可以看罗,现在有没有多少人投入在
3 w7 ~0 G) ~1 c& O; a1 [" ?写这样的东西呀~~ 本期的新工具就有介绍 KOS,如果下此有好工具也会一并提出来介绍,若有网友使用的心得也可以传给我放在 Home Page 上!
; G5 X3 r8 ?8 _) g* z6 T; |0 p" G9 ~! U) Z$ r4 s) R
**** 後语 ****! I" E( g: \# {/ q& ?
" O$ O: }; z/ N; p F* xCoolFire 改 E-Mail 了! 因为 HotMail 都要用 WWW 浏览器才能收信, 有点火大,所以这次在
5 ^! a: ^% u% C$ F' s, V1 A( k# n4 vCyberSpace 申请了一个新的帐号, 请写信给我的时候不要投错信箱了喔~~~~
; c9 {3 A5 C) h* `' q5 ~E-Mail: coolfire@cyberspace.org8 ?2 K# ^# A# H
! M$ |; _5 _, K5 S& J我们的首页感谢大家的支持, 现在人数已经超过 2,600 了, 这是一个地下站(未对外正式公布)
- k+ s, s( g; z' o* R) E# f很棒的一个数字, 在与其它工作室人员研究之後, 暂时不对外公布站址, 如果你是 "误闯"到本* k* i0 T3 s9 _, e6 n2 ]
站来的! 我们欢迎你的加入, 但目前尚不考虑对外公布站址,请您在告诉你的朋友有这麽一个站
5 L/ q+ F1 m0 J5 N) l% t存在的时候, 请他不要随便告诉别人 (请只告诉你信赖的朋友;或对电脑有一份特别狂热的人,我们都欢迎他们的加入), 我们目前所采用的方式将是开放式的!对首页部份暂时不以密码方式处理., s0 J/ _, B( t+ @5 n; t I1 }
9 [( Y- f/ U# |0 V4 J# U" J" U** 不要 Crack 这个首页的 ISP!!!! 否则 FETAG Sofeware's Hacking Page将会完全关闭, 再; J0 U5 t. e9 ^0 v% O. L) p/ Q: \, Z
也不寻找其它的地方来放置, 希望给你的是使用电脑的 "知识",不要利用它来夺取任何的"权利", 本首页著重的是教育, 而不是一 的教导攻击的方法, 希望大家对於政府机关(org.tw) 或教育机构 (edu.tw) 不要作任何的破坏!! 还有我的 ISP......:D |: Q: H# q& f* o, [2 q4 M% f
! \, z" u6 m2 J k# A3 `$ g0 R------4 A3 R0 V% h$ ]+ {* N" M
首页更新部分因为最近都太忙了, 所以每个人都没有时间写, 希望各位见谅, 这次特别把CoolHC的内容增加, 希望可以让你学到更多, 如果有人有写类似这样的文章, 请寄给我一份,
2 Z2 \8 v# T9 S8 N: c, v' x3 |1 X我也会将它放到首页上的~~~:)0 Y: }- k/ p& v2 f! V1 j5 `& B& e
' U$ {2 t' Y0 z9 [) D3 k8 ]------* e0 p* T4 A! z! X) J) P
再次重申, Crack 别人站台之後不要破坏别人站台中的资料, 此篇文章仅作为教育目的,不主张你随便入侵他人主机.... (高-Net 还是除外)... 请勿将这类技术使用於破坏上 (又...如果第三次世界大战开打, 你可以任意破坏敌国的电脑网路... 我全力支持),最严重的情况(如果你真的很讨厌该主机的话)... 就将它 Shut Down.... 好了! 别太暴力了!) e3 F& a, O( u: z; f$ o
% j6 G0 |9 q+ r' ^! [9 Z2 G
|
关注公众号
发表于 2011-1-12 16:27:13
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡