Ircd Telnet Hakkında Bilgiler
Server Kapanırsa Nasıl Açılır?Telnete Login ve pass yazarak giriş yağınız.
“cd ircd” Yazarak klasöre giriniz. ( unreal için ircd … Elite için Elite3.1.1 … Ptlink İçin Ptlink5.*.*)
Sonra klasöre ” ./ircd ” yazarak serverınızı açınız…
Servicesler Giderse Nasıl Getiririm ?
Telnete Login ve pass yazarak giriş yağınız.
“cd services” Yazarak klasöre giriniz.
sonra ” ./services ” yazınız.
Servicesleriniz Ayarladğınız Servera girmiş Olacaktır…
Ircop-Admin Yazimi…
Telnete login ve password yazilarak giris yapin.
“cd ircd” yazarak ircd porgraminizin oldugu klasore girin.(unreal Elite veya baska ircd programlari icin fakli olabilir.)
“pico ircd.conf” yazarak ircd.conf dosyanizin içine girin.
Herhangi bir yere satir açin veya bos bi satira geçin.
“O:*@* per_sifresi per_nicki:O:1″ sekilde yazin. ( NO: network admin AO: server admin a :services admin TO: technical admin )
Daha sonra “ctrl + x” e basin.
Size kayit edilmesini istiyormusunuz seklinde bi soru sorulacaktir.
“Y” tusuna basip onaylayin.
Hangi klasore kayit edilecegini soran bi yazi cikacaktir karsiniza.
Zaten ircd.conf yazili oldugu icin sadece “enter”‘a basip onaylayin.
Yaptiginiz degisiklikleri aktif hale geçirmek için irc severinizda “/rehash” yazin veya telnette “killall -HUP ircd” komutunu yazin
IRcop Veya Admininizi Yazdiniz…
Motd Yazimi
Telnete login ve password yazilarak giris yapin.
“cd ircd” yazarak ircd porgraminizin oldugu klasore girin.(unreal Elite veya baska ircd programlari icin fakli olabilir.)
“pico ircd.motd” yazarak ircd.motd dosyanizin içine girin.
Karsiniza bos bi ekran çikacaktir.
MOTD da gozukmesi istediginiz seyleri bos ekrana yazin.
Daha sonra “ctrl + x” e basin.
Size kayit edilmesini istiyormusunuz seklinde bi soru sorulacaktir.
“Y” tusuna basip onaylayin.
Hangi klasore kayit edilecegini soran bi yazi cikacaktir karsiniza.
Zaten ircd.motd yazili oldugu icin sadece “enter”‘a basip onaylayin.
Motd Yazdiniz…
Telnet Sifresi Değisimi…
Telnete login ve password yazilarak giris yapin.
“passwd” komutunu yazin.
Size once mevcut sifreniz sorulacaktir.Once giriste kullandiginiz sifreyi yazin.
Daha sonra yeni kullanmak istediginiz sifre sorulacaktir.Yeni sifrenizi giriniz.
Guvenlik için yeni sifreniz bir kez daha sorulacaktir.Tekrar giriniz.
Isleminiz tamamlanmis lacaktir.(Sifreniz en az 6 karakterli ve birbiriniz takip eden rakam veya harflerden olusamaz)
PassWordunuz Değisti…
Server Kapatma
Telnete login ve password yazilarak giris yapin.
“ps x” komutunu yazin.
Karsiniza bir dokuman çikacaktir.
Burda yaninda ./ircd yazan satirdaki pid numarasina bakin
“kill -9 pid_numarasi” seklinde yazarak irc serverinizi kapatabilirsiniz.
Daha sonra “cd ircd” yazarak ircd klasorune giris yapin.
“./ircd” yazarak serverinizi tekrar açabilirsiniz.
Services Kapama Veya Restart Etme…
Oncelikle Services admin yada Root iseniz irc serverinizda /msg operserv restart ile bu islemi yapabilirsiniz.
Eger Bu ozelliklere sahip degilseniz.Telnete login ve password yazilarak giris yapin.
“ps x” komutunu yazin.
Karsiniza bir dokuman çikacaktir.
Burda yaninda ./servicesyazan satirdaki pid numarasina bakin
“kill -9 pid_numarasi” seklinde services’lerinizi kapatabilirsiniz.
Daha sonra “cd services” yazarak services klasorunuze girin.
“./services” seklinde yazarak serviceslerinizi tekrar açabilirsiniz.
Auto Join Kanalini degistirme veya iptal etme..
Telnete girdikten sonra sirasiyla sunlari yapiniz;
cd services
cd data
pico services.conf
cikan yazilar arasinda AutoJoinChan “zurna” turunde bi yazi cikacaktir. zurna yerine
yazdiginiz kanala userlar otomatik girecektir. Hic bi kanal istemiyorsaniz satirin basina
# isareti koyunuz ( yani #AutoJoinChan “kanal” ).
ctrl-x sonra y yazip kaydettikten sonra degisikliklerin aktif olmasi icin serverda
ve services admin veya root iken /msg operserv restart yazmaniz gerekmekte.
Baska Servera Link Atma…
Services’ler sizde kalacaksa Servicesler Sizde Kalmayacaksa
C:karsi_ip:sifre:karsi_domain ort:50 C:karsi_ip:sifre:karsi_domain ort:50
N::karsi_ip:sifre:karsi_domain::50 N:karsi_ip:sifre:karsi_domain::50
H:*::irc.karsi_domain.com H:*::irc.karsi_domain.com
Seklinde ekleyip serveri rehash edin. H:*::services.karsi_domain.com
U:services.karsi_domain.com*:*
Seklinde ekleyip serveri rehash edin.
Link atma: Kendi Telnetinize ” cd ircd ” yazarak klasöre giriniz…Sonra ” pico ircd.conf ” yazıp ircd.conf dosyası-
nın içine giriniz…Buranın Boş Bir Tarafına Yukarıdaki Komutları Yazınınız…(Kendi Serverınız Ve Servicesler Sizde
kalıcaksa Sol Taraf)…Eğer ircd.conf’un İçinde Bu Tip C/N/H/U Line Ları Görürseniz Onlarıda Değiştirebilirisiniz..
Telnet şifre değişimi
Makineye telnet ile bağlandıktan sonra, ( passwd ) komutunu yazın, önce eski şifrenizi soracaktır. Eski şifrenizi yazın, daha sonra iki kere yeni şifrenizi yazın. Şifreniz değişmiştir
Sunucuya 1 ip’den 3 giris yapildiginda kline atmasinin sebebi
services.conf dosyasında bulunan (DefSessionLimit limit) satırında limit yerine istediğiniz limiti ayarlarsanız, ayni ip limiti o sayı olur. Bunu ayarladıktan sonra servisleri kapatıp açmak gerekir.
Kanal ve nick düsme süresinin azaltilmasi
Nickler 21 günde düşüyor, kanallar 14 günde. Bunların sürelerini değiştirmek için:
Epona Servisler için; services.conf dosyasında, nick kayıt düşme süresi; N***pire 21d. Buradaki 21 yerine hangi sayıyı yazarsanız kullanılmayan nick için kayıt silme gün siniri o olur. Kanal düşme süresi; C***pire 14d. Ayarları yaptıktan sonra servisleri kapatıp açmak gerekir.
Sunucu servisini Access sisteminden, Aop ve Sop’ a dönüstürmek
Sistemi değiştirmek icin services dizininde bulunan services.conf dosyasındaki, CSDefXOP satiri, #CSDefXOP seklinde değiştirip, servisleri acip kapamaniz yeterlidir. İki satir arasındaki fark değiştirdiğiniz satirin başına diyez(#) işareti konmuş olmasıdır. Bu işaret satiri geçersiz hale getirir.
Sendpass komutunu aktif hale getirmek
Sendpass komutu, kullanıcılar şifrelerini unuttuklarında nick bilgilerinde kayitli olan email adresine şifrelerinin gönderilmesine yarar. Bu komutu aktif hale getirebilmek için yukarıda olduğu gibi services.conf dosyasında bulunan, RestrictMail satirini, #RestrictMail olarak değiştirdiğinizde aktif olacaktır. Servisleri kapatıp açmanız gerekir
Servislerin dilini Türkçe’ye çevirmek
Epona Servislerin services.conf dosyasında bulunan, NSDefLanguage 1 satırını, NSDefLanguage 6 olarak değiştirdiğinizde servisler Türkçeleşecektir
Oper flagları…
O lobal /* Global IRCOPYetkisi Verir */
o local /* Local IRCOP Yetkisi Verir */
a services-admin /* Services AdminYetkisi Verir */
A admin /* Admin Yetkisi Verir */
r can_rehash /* Rehash Yetkisi Verir */
D can_die /* Die Yetkisi Verir */
R can_restart /* Restart Yetkisi Verir */
h helpop /* Helper Yetkisi Verir */
w can_wallops /* Wallops Yetkisi Verir */
g can_globops /* GlobalOps Yetkisi Verir */
c can_localroute
L can_globalroute
k can_localkill /* Kill Yetkisi Verir */
K can_globalkill /* Global-Kill Yetkisi Verir */
b can_kline /* Kline Yetkisi Verir */
Z can_gzline /* G-Zline Yetkisi Verir */
t can_gkline /* G-line Atma Yetkisi Verir */
B can_unkline /* Kline Acma Yetkisi Verir */
n can_localnotice /* Local-Notice Görüntüleme Yetkisi Verir */
G can_globalnotice /* Global-Notice Yetkisi Verir */
N netadmin /* Netadmin Yetkisi Verir */
C coadmin /* Co-Admin Yetkisi Verir */
z can_zline /* Zline Atma Yetkisi Verir */
W get_umodew /* Whois Görüntüleme Yetkisi Verir */
H get_host /* Host Gizleme Modudur Conf Dosyanizdaki Sabit Oper-Host Alacaktir */
v can_override
IRC Operator : OHWq
Co-Admin : OorDhwgqcLkbZtBnGCzWHv
Server Admin : OoArDqhwgcLkbZtBnGzWHv
Services Admin : OoArqDhwgcaLkbZtBnGCzWHv
NetAdmin : OoArDhwgcaqNLkbZtBnGCzWHv
Local Operator : oHWq
Full Yetki : OaANCorRDhgqwnGcLkKbtBzZtvHW
Telnet Genel Komutlari
AppRedir;(path:filename.exe); : Ie uzerinden program calistirir. c:command.com;100
CaptureScreen : Ekrandan goruntu alir
DelFile;(filename.exe) : Dosya siler
DisableKeys;1;(keys) : harfleri iptal eder [kullanici klavyeyi kullanamaz]
DisableKeys;0; : Klavye tekrar aktif olur
DisableKeys;1;abcdefghijklmnopqrstuvwxyzåäö : Harfler kullanilmaz hale gelir
DownloadFile;(path:filename.exe) : istediginiz dosyayi cekersiniz
Eject;1 : CD-ROM’u acar
Eject;0 : CD-ROM’u kapar
ExitWin;1 : Windos’u kapar
GetApps : Calisan prg.lari listeler
GetACL : Admin Listi verir
GetInfo : Info penceresini verir
GetDisks : Hardiskindeki dosyalari gosterir
GetSetup : Server icin ayarlari verir
GetUser : Kullanici hakkinda bilgi verir
GetVolume : Sesi acar
KeyClick;1 : Key click on
KeyClick;0 : Key click off
Listen;1 : Start (keyboard) bir nevi keyloger adamin yazdiklarini gorursunuz
Listen;0 : Stop listening
Message;(message) : Messagebox halinde mesaj yolalrsiniz
NewSetup;serverport;1;password;youremail;VICTIMSem ail;smtpse rver : Sends the new admindata (1.7)
Password;1;any : ENTER’a bas ve ServerPwd;cehennem : Passwordu deistirir(1.6)
PlaySound;(file.wav) : wav dosyasi calar
PortRedir;(listen tcp port);(ip);(destination port) : Redirect the specified port
Record;10 : 10 saniyelik ses kaydeder
RemoveServer;1 : Server’i kaldirir
RemoveServer;0 : Kaldirmayi iptal eder
ShowImage;(file.exe) : Resim gosterir
SendKeys;(words) : Mesaj yollar * tusu ile yazdiginiz siler
SendKeys;2;13 : Sends ozel tuslar [sag,sol,yukari,asagi]
SetACL;(ip)| : Set (admin) access IP`s
SetMousePos;(xpos);(ypos) : Mouse’u oynatirsiniz
SwapButton;1 : Mouse’un tuslarinin yerlerini degistirir
SwapButton;0 : Mouse’u eski haline getirir
StartApp;(file.exe) : Program calistirir
UploadFile;(file.exe);(size);(destination dir) : Dosya yollarsiniz
URL;() : yazdığınız siteye gider a gider
Ekleyen : Birkan
Tekrar Koruması
on 1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 3) {
/mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13Tekrar Yasaktir2 [14!2] 7¤
unset %*_ [ $+ [ $nick ] ] |
}
}
Ekleyen : Birkan
Log Viewer
Alias Logvw {
IF $Window(@Logvw) == $null { Window -aemk0l12Sz @Logvw }
RafraichirLogs
If (%Log.AfficheInfoRepLog == $true) { InfoRepertoireLog }
}
Alias RafraichirLogs {
Clear -l @Logvw
Titlebar @Logvw - $logdir - ( $findfile($shortfn($logdir), *.log, 0, .aline -l @Logvw $nopath($1)) logs )
NickListColorLog
}
menu @Logvw {
dclick: {
If ($mouse.lb == $true) && ($sline(@Logvw,1) != $null) { $AfficheLog($sline(@Logvw,1)) }
Else { LogvwCfg }
}
$iif($sline(@Logvw,1) != $null,Afficher le contenu du log) : $AfficheLog($sline(@Logvw,1))
-
$iif($line(@Logvw,0,0) > 0,Nouvelle Recherche) : RechercheDansLog
$iif(%Log.MemoLigne != $null,Continuer la recherche) : RechercheDansLog %Log.MemoLigne
-
$iif($sline(@Logvw,1) != $null,Supprimer) : $SupprimeLog($sline(@Logvw,1))
$iif($sline(@Logvw,1) != $null,Renommer) : $RenommeLog($sline(@Logvw,1))
$iif($sline(@Logvw,1) != $null,Copier dans …) : $CopieLog($sline(@Logvw,1))
-
&Informations
.Sur le répertoire de log : InfoRepertoireLog
.Sur le fichier log : InfoFichierLog $sline(@Logvw,1)
-
&Effacer le contenu de la fenêtre : Clear @Logvw
-
&Rafraichir les logs : RafraichirLogs
-
&Configurer Logviewer : LogvwCfg
&Fermer Logviewer : /Window -c @Logvw
}
Alias AfficheLog {
Var %NumLigne = 1, %MaxLigne = $lines($shortfn($logdir $+ $1)), %TextFichier
If (%Log.EffaceFenetre == $true) { /Clear @Logvw }
If (%Log.AfficheInfoFichier == $true) { InfoFichierLog $1 }
LOADBUF -p @Logvw $shortfn($logdir $+ $1)
}
Alias SupprimeLog {
Var %NbFichier = $sline(@Logvw,0), %MessConfirm = $iif(%NbFichier > 1,Désirez-vous vraiment supprimer les fichiers sélectionnés ?,Désirez-vous vraiment supprimer le fichier $1 ?)
If $input(%MessConfirm, 72, Logvw) == $true {
Var %Compt = 1
While (%Compt <= %NbFichier) {
If (%Log.SuppLogCorbeille == $true) { .Remove -b $shortfn( $logdir $+ $sline(@Logvw,%Compt) ) }
Else { .Remove $shortfn( $logdir $+ $sline(@Logvw,%Compt)) }
Echo $color(info text) -at $sline(@Logvw,%Compt) supprimé.
Inc %Compt
}
RafraichirLogs
}
}
Alias RenommeLog {
Var %NouveauNom = $input(Indiquez le nouveau nom :, 73, Logvw, $1)
If %NouveauNom != $null {
If $right(%NouveauNom,4) != .log { %NouveauNom = %NouveauNom $+ .log }
.Rename $shortfn($logdir $+ $1) $shortfn($logdir $+ %NouveauNom )
RafraichirLogs
}
}
Alias CopieLog {
Var %NouveauRep = $sdir($logdir,Indiquez le répertoire ), %CopierLog == $true
If %NouveauRep != $null {
If $exists(%NouveauRep $+ $1) { %CopierLog = $input(Le fichier %NouveauRep $+ $1 existe déjà désirez-vous l’écraser ?, 72, Logvw) }
If (%CopierLog == $true) {
.Copy -o $shortfn( $logdir $+ $1 ) $shortfn( %NouveauRep $+ $1 )
SupprimeLog $1
RafraichirLogs
}
}
}
Alias RechercheDansLog {
Var %CritereRech = $iif($1 == $null,$input(Indiquez votre critère de recherche :, 129, Logvw),%Log.MemoCritere)
If %CritereRech != $null {
Var %NumLigne = $iif($1 != $null,$calc($1 + 1),1), %MaxLigne = $line(@Logvw,0,0)
:LigneSuivante
If (%NumLigne > %MaxLigne) { Goto FinRecherche }
If %Log.RespecteCase == $true {
If $line(@Logvw,%NumLigne,0) isin %CritereRech { Goto Trouver }
}
Else {
If ($pos($upper($line(@Logvw,%NumLigne,0)),$upper(%CritereRech),1) != $null) { Goto Trouver }
}
Inc %NumLigne
Goto LigneSuivante
:Trouver
If %Log.MemoLigne != $null { Rline @Logvw %Log.MemoLigne %Log.MemoText }
%Log.MemoLigne = %NumLigne
%Log.MemoText = $line(@Logvw,%NumLigne,0)
%Log.MemoCritere = %CritereRech
Sline @Logvw %NumLigne
Rline @Logvw %NumLigne 4Trouvé –> $line(@Logvw,%NumLigne,0)
:FinRecherche
If (%NumLigne > %MaxLigne) { Var %Retour = $input(Le critère de recherche %CritereRech n’a pas été trouvé.,68) }
}
}
Alias InfoFichierLog {
Var %FichierLog = $shortfn($logdir $+ $1)
If ($exists(%FichierLog) == $true) && ($1 != $null) {
.Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
.Aline 4 @Logvw ¤¤¤¤ Nom du fichier ………………. : $1
.Aline 4 @Logvw ¤¤¤¤ Taille / Nombre de lignes …. : $file(%FichierLog).size octets / $lines($shortfn($logdir $+ $1)) lignes.
.Aline 4 @Logvw ¤¤¤¤ Créé le ………………………… : $asctime($file(%FichierLog).ctime,dd/mm/yyyy à hh:nn:ss)
.Aline 4 @Logvw ¤¤¤¤ Modifié le ……………………… : $asctime($file(%FichierLog).mtime,dd/mm/yyyy à hh:nn:ss)
.Aline 4 @Logvw ¤¤¤¤ Accédé le ……………………… : $asctime($file(%FichierLog).atime,dd/mm/yyyy à hh:nn:ss)
.Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
}
}
Alias InfoRepertoireLog {
Var %TailleRep = 0, %NumFichier = 1, %NbFichier = $findfile($shortfn($logdir), ¤.log, 0)
:FichierSuivant
%TailleRep = $calc( %TailleRep + $file($findfile($shortfn($logdir), ¤.log, %NumFichier)).size )
Inc %NumFichier
If (%NumFichier <= %NbFichier) { Goto FichierSuivant }
.Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
.Aline 4 @Logvw ¤¤¤¤ Nom du répertoire …………… : $logdir
.Aline 4 @Logvw ¤¤¤¤ Taille / Nombre de fichiers … : %TailleRep octets / %NbFichier fichiers.
.Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
}
Alias NickListColorLog {
Var %NumLog = 1, %NbLogs = $line(@Logvw,0,1)
:LogSuivant
If (%NumLog > %NbLogs) { Goto FinListeLog }
If $left($line(@Logvw,%NumLog,1),1) == $chr(35) { Cline -l 4 @Logvw %NumLog }
Else { Cline -l 12 @Logvw %NumLog }
Inc %NumLog
Goto LogSuivant
:FinListeLog
}
Alias LogvwCfg {
If $dialog(LogvwCnfg).hwnd == $null { /Dialog -md LogvwCnfg LogvwCnfg }
Else { /Dialog -iev LogvwCnfg LogvwCnfg }
}
Dialog LogvwCnfg {
TITLE “Configuration de Logviewer”
SIZE -1 -1 310 155
CHECK “Afficher les informations sur le log avant son contenu ?”, 100, 2 2 306 20, LEFT, FLAT
CHECK “Afficher les informations sur le répertoire des logs ?”, 200, 2 22 306 20, LEFT, FLAT
CHECK “Afficher Logviewer au démarrage du script ?”, 300, 2 42 306 20, LEFT, FLAT
CHECK “Mettre les logs supprimés dans la corbeille Windows ?”, 400, 2 62 306 20, LEFT, FLAT
CHECK “Respecter les majuscules/minuscules lors d’une recherche ?”, 500, 2 82 306 20, LEFT, FLAT
CHECK “Effacer la fenêtre avant d’afficher un nouveau log ?”, 600, 2 102 306 20, LEFT, FLAT
BUTTON “&Valider”, 10, 155 130 70 20, OK, FLAT
BUTTON “&Annuler”, 20, 235 130 70 20, CANCEL, FLAT
}
ON *:DIALOG:LogvwCnfg:init:0: {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetControlMDX 30 listview showsel rowselect infotip report extsel > $cc_views
mdx SetDialog $dname bgcolor 16772585
mdx SetColor $dname 2 text 255
mdx SetColor $dname 10 text 16711680
mdx SetColor $dname 100,200,300,400,500,600 textbg 16772585
mdx SetColor $dname 100,200,300,400,500,600 background 16772585
If %Log.AfficheInfoFichier == $true { Did -c LogvwCnfg 100 }
If %Log.AfficheInfoRepLog == $true { Did -c LogvwCnfg 200 }
If %Log.AfficherLogvw == $true { Did -c LogvwCnfg 300 }
If %Log.SuppLogCorbeille == $true { Did -c LogvwCnfg 400 }
If %Log.RespecteCase == $true { Did -c LogvwCnfg 500 }
If %Log.EffaceFenetre == $true { Did -c LogvwCnfg 600 }
}
ON *:DIALOG:LogvwCnfg:sclick:10: {
%Log.AfficheInfoFichier = $iif($did(LogvwCnfg,100).state == 1, $true, $false)
%Log.AfficheInfoRepLog = $iif($did(LogvwCnfg,200).state == 1, $true, $false)
%Log.AfficherLogvw = $iif($did(LogvwCnfg,300).state == 1, $true, $false)
%Log.SuppLogCorbeille = $iif($did(LogvwCnfg,400).state == 1, $true, $false)
%Log.RespecteCase = $iif($did(LogvwCnfg,500).state == 1, $true, $false)
%Log.EffaceFenetre = $iif($did(LogvwCnfg,600).state == 1, $true, $false)
}
Ekleyen : Birkan
Script Sayacı
on 1:start:{
if (%sayac == $null) {
set %sayac 1
|; ##### Dileyen ßaglanti Menusunu Yerlestirir Onu Nereye Koycam Demeyin
|; ######Vea Kod Cakisiyo
}
%sayac = %sayac + 1
baslat | *** ßurayada scriptinizin alias ßölümüne (yoksaki alias.txt acmak
| #######zor olmasa gerek) sayaciniz acldıgnda yazacak msjı Giriniz ben
| ##baslat# dedim mski yazdiracak koda siz dilediginizi diyebilirsiniz ama
| #######aliasesa o sekilde ekleyin sekilde ekleyin
}
}
alias baslat {
echo Script kullanıma Hazır
echo Script daha önce %sayac Kere Calıstırıldı
| vsvsvs
}
Ekleyen : Birkan
Whois Koruması
Aşağıda verdiğim kod, size whois çekildiği zaman kullanıcı bilgilendirme ve ya cezalandırma kodurur.
Bu kodu mIRC’nizde ALT tuşuyla beraber R harfine basıp, açılan pencereye yapıştırmalısınız.
Not: Bu kodun sorunsuz çalışması için +h moduna sahip olmalısınız.
on *:snotice:*/whois*: {
notice $2 5 bana whois çektiniz sorun nedir $2 $+ .
notice $2 5 Nick/serverban yardımı için, #operhelp kanalını, IRC/SVS türü sorunlar için #help kanalını ziyaret ediniz.
inc -eu10 $+(%,whoisflodding,$2) 1
if $($+(%,whoisflodding,$5),2) == 2 {
notice $2 5Lütfen gereksiz whois çekmeyiniz aksi takdirde sunucudan uzaklaştırılacaksınız!
}
elseif ($($+(%,whoisflodding,$2),2) == 3) {
kill $2 5Gereksiz whois çektiğiniz için uyarı aldınız.
}
elseif ($($+(%,whoisflodding,$2),2) == 4) {
gzline $2 1h 5Gereksiz whois çektiğiniz için Serverban cezası aldınız.
}
}
Ekleyen : Birkan
Unreal Kurulumu
UnreaL IRCd Kurulumu
Mesela Unreal in Unreal3.2.3 version onu kurcaksınız. sırasıyla şunları yapınız :
- Bilgisayarınıza indirdiğiniz Unreal3.2.3.tar.gz dosyasını ftp yolu ile gesabınıza atınız.
- Telnete login pass girdikten sonra tar xfz Unreal3.2.3.tar.gz komutunu yazınız.
- Sonra cd Unreal3.2 yazınız.
- Bunun ardından ./Config yazınız. burda dikkat,
karşınıza %51 gibi dolan bişey çıkacaktır. %100 olana kadar entere basın. sonra size bir takın sorular sorulcaktır. hepsinde entere basın. yanlız serverinizdeki Aop ve Sop işaretlerinin & ~ olmasını istiyorsanız bu bölümde :
Do you want to enable prefixes for chanadmin and chanowner?
This will give +a the & prefix and ~ for +q (just like +o is @)
Supported by the major clients (mIRC, xchat, epic, eggdrop, Klient, PJIRC, etc.)
with the notable exceptions of irssi, KVIrc and CGI:IRC.
This feature should be enabled/disabled network-wide.
[Yes] ->
Sorulan yere yes yazıp enterliyoruz.
- Bu işlemi bitirdikten sonra make yazıyoruz
- Make işlemi de bittikten sonra Unrealircd.conf bulup İçinde değiştirilmesi gereken yerleri değiştirip Unreal3.2 nin içine atıyoruz.
- Herhangi bir hata ile karşılaşmadıysanız kurulum işlemi bitmiştir.
- Serverinizi ./Unreal start komutu ile çalıstırabilirsiniz.
Ekleyen : Birkan
100 dolarlık laptop’a Microsoft da katıldı
Bilgisayarlar daha önce Linux işletim sistemiyle sunuluyordu
Dünyanın en büyük yazılım şirketi Microsoft,
“100 dolarlık laptop” projesine katıldı.
Projeyi başlatan ve bilgisayarları geliştiren Her Çocuğa Bir Laptop
kuruluşu, laptopları satın alacak ülkelerin işletim sisteminin
siparişten önce bilgisayarlara yüklenmesi talebi üzerine Microsoft’un
projeye dahil edildiğini belirterek, Windows yüklü dizüstü
bilgisayarların denenmesine dört ülkede hazirandan itibaren
başlanacağını açıkladı.
Projenin mimarı Massachusetts Institute of Technologie’den (MIT)
Profesör Nicholas Negroponte, şimdiye dek açık kaynak Linux işletim
sistemiyle sunulan bilgisayarlara daha fazla sipariş gelmesini sağlamak
için projeye Windows’un dahil edilmesinin “umutsuz bir önlem” olduğu
eleştirilerini reddetti.
Prof Negroponte, şimdiye dek 600 bin adet satılan ve gelişmekte olan
yoksul ülke çocuklarına yönelik bilgisayarlardan 60 ila 90 gün içinde
400 bin sipariş daha gelmesini beklediğini söyledi.
Beklenen siparişler gelmediği için 100 dolara satılması umulan dizüstü
bilgisayarlar, şu anda 188 dolara (Windows XP ile 198 dolar) mal oluyor.
Ekleyen : Birkan
Döner yerken bir kere daha düşünün!
Haftada iki kez yemek bile kalp hastalıklarına davetiye çıkarmaya yetiyor
İngiltere’de yapılan araştırma, bir porsiyon dönerli sandviçin, bir şarap bardağı dolusu sıvı yağa eşdeğer kızartma yağı içerdiğini ortaya koydu.
Araştırmada ayrıca, haftada iki defa döner gibi yağlı yiyeceklerle beslenen bir kişide 10 yıl içinde kalp krizinin meydana gelebileceği kaydedildi.
İngiliz Portsmouth Hastaneler Birliği Beslenme ve Diyet Bölümü Şefi Denise Thomas, döner kebap, pizza ve cips türü gibi hazır yiyeceklerin en sağlıksız yiyecekler olduğunu kaydetti.Bir döner kebap sandviçin 111 gram yağ içerdiğini, bunun da günlük gereksinimin iki misline eşdeğer olduğunu ifade eden Thomas, “Eğer döner kebap 400 gram ise bu da yemeğin dörtte birinin yağ olduğu demektir. Bu yağın çoğu da doymuş yağdır. Yani kolesterolünüzü artırır ve sonuçta damarlarınızı tıkar” dedi. Beslenme ve Diyet Uzmanı Thomas, “Haftada iki kez dönerli sandviç yerseniz kalp hastalıklarına davetiye çıkarmış olursunuz” dedi. Thomas, sorun çıkmaması için daha çok meyve ve bitkisel yiyeceklerle beslenme tavsiyesinde bulundu. Bu arada Yemek Standartları Ajansı, bu tür yiyecklerin üzerine kırmızı işaret konulması ve yağ oranlarının da yazılmasını istedi.
Ekleyen : Birkan
“Hayatta herkes üç maymunu oynuyor”
Yönetmen Nuri Bilge Ceylan, Cannes Film Festivali’nde Altın Palmiye için yarışan filmi “Üç Maymun” ile ilgili bugün festival sarayında düzenlediği basın toplantısında, filmin ismi ile ilgili bir soruya karşılık, “Hayatta, hepimiz bir şekilde üç maymunu oynuyoruz. Günlük hayatımızın birçok durumunda bunu görmek mümkün. Bu ismi filme çok uygun bulduğumuz için koyduk” dedi.“Üç maymunun, yani görmedim, duymadım, söylemedim durumunun günlük hayatta yaşandığını ve gerçeklerden kaçmaya çalışıldığını” belirten Ceylan, “filmdeki karakterlerde bu yaklaşımların görüldüğünü” ifade etti.
“Senaryonun yazılmasından sonra filmin sonuna kadar sürekli değişiklikler yapıldığını” anlatan Ceylan, “çekim esnasında, senaryoda öngörülenin dışında sanatçının performansına göre alternatif çekimler de yaptığını ve bunları daha sonra bunları değerlendirdiğini” söyledi.
Ceylan, “Oyuncuların performansına bağlı olarak, bazen çekimler öncesinde planladığımızdan daha farklı bir şey çıkabiliyor, bunları da montaj aşamasında değerlendiriyoruz” dedi.
Bir soru üzerine Ceylan, “siyasetle ve güncellikle de ilgilenmediğini, daha çok önem verdiği konunun hayatın içinde insanın heyecan, zaaf, korku, sevinç gibi farklı duygularını yansıtmak olduğunu” ifade etti.
Filmin başrol oyuncusu Yavuz Bingöl de “Ceylan’ın, oyuncuların doğaçlama yeteneklerine önem verdiğini” belirterek, “bu filmdeki rolünün, doğaçlamaya oldukça uygun olduğunu” söyledi.
Filmde rol alan diğer oyunculardan, aynı zamanda senaryoya katkıda bulunan Ercan Kesal da “filmin senaryosunun, oyuncuyu da özgür kıldığını, filmin zenginliğinin altında da bunun yattığını” belirtti.
“Ceylan’ın sessizliği çok fazla kullanan bir yönetmen olduğunu” kaydeden Kesal, “amatör bir oyuncu olduğunu, esas mesleğinin doktorluk olduğunu” ifade etti. Kesal, “Ceylan’ın gerçekçi ve hayatı anlatan doğal anlatımının, kendisi gibi bir amatör oyuncunun bile bu rolü oynamasına olanak sağladığını” söyledi.
Basın toplantısına filmin oyuncularından Yavuz Bingöl, Hatice Arslan, Ercan Kesal, Ahmet Rıfat Şungar, Cafer Köse ve filmin yapımcılığı ile dağıtımını üstlenen şirketin temsilcileri, ayrıca senaryoya önemli katkıda bulunan Ebru Ceylan katıldı.
Ceylan’ın, bu akşam galada gösterilecek filmi, ”küçük zaafların büyük yalanlara dönüşerek parçaladığı bir ailenin gerçeği örtbas ederek her şeye rağmen bir arada kalma çabasını” anlatıyor.
Filmle konusuyla ilgili basına dağıtılan bilgi notunda, ”Altından kalkamayacağı acılara ya da sorumluluklara maruz kalmamak için gerçeği bilmek istememek, onu görmemek, duymamak, hakkında konuşmamak ya da günümüz tabiriyle üç maymunu oynamak, onun varolduğu gerçeğini ortadan kaldırır mı” ifadesini kullanıldı.
Ekleyen : Birkan
vedaXy Helper Script v 3.5
vedaXy Helper Script 3.5 i Dowloand İçin Tıklayınız…
Ekleyen : Birkan