Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 675
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

MaFetas 1 savaitė
ozzWANTED 3 savaitės
saulyzas 5 savaitės
TOMIJUS 6 savaitės
Reikalas15 savaitės
Jaunelis21 savaitės
lanis21 savaitės
And2s22 savaitės
Memento Mori27 savaitės
Quwqkibor29 savaitės
asirija33 savaitės
tomeem35 savaitės
weberiz39 savaitės
mRokass41 savaitės
kartoonas42 savaitės
grunskiz45 savaitės
Bruksnys45 savaitės
illusion45 savaitės
ordo46 savaitės
Jurgaila47 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.138.174.45
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,537
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up šypsosi

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

And2s
2024 Lie. 17 19:07:04
2008 pirmą kart čia patekau, man buvo 10m ir čia pramokau programavimo.. smagu skaityti senas žinutes, tokia nostalgija akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

ozzWANTED
2024 Sau. 17 01:01:00
Desperatiškus komentarus šaukykloje su accountu po mėnesio prasibuvimo, ištryniau. Pasaulis ir taip juodas. Įjungiam šviesą, prašviesės. šypsosi

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
Blogi prisijungimai.
Forumas | Modai, įskiepiai, panelės (PHP-FUSION) | Naujų modų pristatymai
Autorius: Poker Peržiūrų: 5476      Spausdinti temą
2008 Bal. 23 13:04:03          1 žinutė iš 17
Spausdinti pranešimą
Dar nemačiau jog kas pristatytu toki moda,tai pasidalinsiu aš.Modas nera mano kurtas.Modo tikslas yra toks:kai kiekvienas narys suves neteisinga pass ,modas logins vartotojo Varda IP adresa,laika(kada bandė prisijunkt)

>>>>>Diegimas<<<<<


1 Imetame aplankala y infusions direktorija

2 Atsidartome maincore.php ir susirandame:
redirect(BASEDIR."setuser.php?error=3");



Dedame šita koda:
// -- START RECORD BAD LOGIN -- \\
if(file_exists(INFUSIONS."bad_login/admin.php")){
$result = dbquery("INSERT INTO ".$db_prefix."bad_login VALUES('', '".USER_IP."', '".time()."', '".$_POST['user_name']."')");
$check = dbquery("SELECT * FROM ".$db_prefix."bad_login WHERE login_ip='".USER_IP."'");
$cdata = dbarray($check);
if(dbrows($check) >= 10){
$blacklist_ip = USER_IP;
$blacklist_email = "";
$blacklist_reason = "10 failures @ login";
$list = dbquery("INSERT INTO ".$db_prefix."blacklist VALUES('', '$blacklist_ip', '$blacklist_email', '$blacklist_reason')");
}
}
// -- END RECORD BAD LOGIN -- \\



Bendras vaizdas ,kaip viskas turi atrodyt:
redirect(BASEDIR."setuser.php?error=2", "script");
      }
   } else {
      // -- START RECORD BAD LOGIN -- \\
      if(file_exists(INFUSIONS."bad_login/admin.php")){
         $result = dbquery("INSERT INTO ".$db_prefix."bad_login VALUES('', '".USER_IP."', '".time()."', '".$_POST['user_name']."')");
         $check = dbquery("SELECT * FROM ".$db_prefix."bad_login WHERE login_ip='".USER_IP."'");
         $cdata = dbarray($check);
         if(dbrows($check) >= 10){
            $blacklist_ip = USER_IP;
            $blacklist_email = "";
            $blacklist_reason = "10 failures @ login";
            $list = dbquery("INSERT INTO ".$db_prefix."blacklist VALUES('', '$blacklist_ip', '$blacklist_email', '$blacklist_reason')");
         }
      }
      // -- END RECORD BAD LOGIN -- \\
      redirect(BASEDIR."setuser.php?error=3");
   }
}





Tikiuosi kam nors pravers ;]

Redagavo kiskiss 2008 Bal. 23 13:04:04
2008 Bal. 23 13:04:46          2 žinutė iš 17
Spausdinti pranešimą
Esmes tai taip ir nesupratau. Man asmeniskai sitas kodas jokios naudos neduotu saite. Bet malada esi, kad bandai kitiems padeti. 10+ tau.
ex best admin!
2008 Bal. 23 14:04:45          3 žinutė iš 17
Spausdinti pranešimą
Esme yra tokia:

Draugus laikyk arčiau o priešus dar arčiau.
2008 Bal. 23 14:04:01          4 žinutė iš 17
Spausdinti pranešimą
O tai čia kaip prie savo pačių acc bandys jungtis?
2008 Bal. 23 14:04:54          5 žinutė iš 17
Spausdinti pranešimą
Kai badoma jungtis prie egzistuojančiu vartotoju.
Draugus laikyk arčiau o priešus dar arčiau.
2008 Bal. 23 14:04:47          6 žinutė iš 17
Spausdinti pranešimą
Nu čia kai bandys jungtis prie kažkokio acc ir suves neteisingą pass užlogins tą žmogu kuris vedė tam vartojui. šypsosi
Rules: 21 & 22 Read first!
2008 Bal. 23 14:04:44          7 žinutė iš 17
Spausdinti pranešimą
Tai as supratau, kad logins blogus prisijungimus, bet nesuprantu, kuo sis kodas gali buti naudingas. na nebent naujokams. man is jo jokios naudos nebutu.
ex best admin!
2008 Bal. 23 14:04:51          8 žinutė iš 17
Spausdinti pranešimą
Šitą modą jau seniau teko matyti, bet jis neblogas, reiks gal panaudot pas save šypsosi
2008 Bal. 23 14:04:25          9 žinutė iš 17
Spausdinti pranešimą
Priglausim. :}
[galingų saliutų foto]
2008 Bal. 30 10:04:03          10 žinutė iš 17
Spausdinti pranešimą
Paimsiu.
2008 Geg. 1 17:05:08          11 žinutė iš 17
Spausdinti pranešimą
Būtų neblogai, jei dar būtų IP ban'o funkcija.merkia akį
onja rulez, anje?
2008 Geg. 1 17:05:53          12 žinutė iš 17
Spausdinti pranešimą
Taigi įdėk tą ip į black listą ir viskas šypsosi
Rules: 21 & 22 Read first!
2008 Geg. 1 17:05:33          13 žinutė iš 17
Spausdinti pranešimą
Reikia pridėt dar vieną veiksmą (mygtuką), kurį paspaudus įvyktų užklausa (ip bano).
2008 Geg. 1 19:05:40          14 žinutė iš 17
Spausdinti pranešimą
Še šiandien geras kaško..

<?php
/*---------------------------------------------------+
| PHP-Fusion 6 Content Management System
+----------------------------------------------------+
| Copyright © 2002 - 2005 Nick Jones
| http://www.php-fusion.co.uk/
+----------------------------------------------------+
| Released under the terms & conditions of v2 of the
| GNU General Public License. For details refer to
| the included gpl.txt file or visit http://gnu.org
+----------------------------------------------------*/
require_once "../../maincore.php";
require_once BASEDIR."subheader.php";
require_once ADMIN."navigation.php";

if (!checkrights("IP")) fallback("../../index.php");

if (isset($_GET['delete']) && is_numeric($_GET['delete'])){
   $query = dbquery("DELETE FROM ".$db_prefix."bad_login WHERE login_id='".$_GET['delete']."'");
   redirect(FUSION_SELF);
}
if (isset($_GET['ban'])){
 $result = dbquery("INSERT INTO ".$db_prefix."blacklist (blacklist_ip,blacklist_email,blacklist_reason) VALUES ('".$_GET['ban']."','','Pakliuvo iš logo į juodąjį sąrašą');");
 redirect(FUSION_SELF);
} elseif(isset($_GET['lookup']) && is_numeric($_GET['lookup'])){
   $query = dbquery("SELECT * FROM ".$db_prefix."users WHERE user_ip='".$_GET['lookup']."'");
   if(dbrows($query) != 0) {
      opentable(dbrows($query)." Members Found");
      $counter = 0;
      while ($data = dbarray($query)){
         echo "<a href='".BASEDIR."profile.php?lookup=".$data['user_id']."'>".$data['user_name']."</a>";
         echo "<br />".$data['user_ip'];
         $counter++;
         if(dbrows($query) >= 2 && $counter <= dbrows($query)) echo "<br /><br />";
      }
   } else {
      opentable("Brak b³źdnych logowań");
      echo "Wskazany adres IP nie naleæy do æadnego uæytkownika.";
   }
   closetable();
} else {
   $result = dbquery("SELECT * FROM ".$db_prefix."bad_login");
   opentable("Portalo klaidos");
   if(dbrows($result) != 0){
      echo "<center><table width='500px'><tr><td>";
      echo "<span style='font-weight:bold'>IP Adresas</span></td><td><span style='font-weight:bold'>Laikas</span></td><td><span style='font-weight:bold'>Nick</span></td><td><span style='font-weight:bold'>Nustatymai</span></td></tr>";
      while($data = dbarray($result)){
         echo "<tr><td><a href='http://www.ripe.net/fcgi-bin/whois?".$data['login_ip']."'target='_blank'>";
         echo $data['login_ip']."</a></td>";
         echo "<td>".ucwords(showdate("%d.%m.%Y %H:%M:%S", $data['login_time']))."</td>";
         echo "<td>".$data['login_user']."</td>";
         echo "<td><a href='".FUSION_SELF."?delete=".$data['login_id']."'>Trinti logą</a><td></tr>";
                        echo "<a href='?ban=".$data['login_ip']."'>Užbaninti vartotoją</a>";
      }
      echo "</table></center>";
   } else {
      echo "<center>Nie odnotowano æadnego b³źdnego logowania.</center>";
   }
   closetable();
}

echo "</td>\n";
require_once BASEDIR."footer.php";
?>
2008 Geg. 2 22:05:49          15 žinutė iš 17
Spausdinti pranešimą
Tai cia ideta ta auto ban sistema. Ta prasme 10 kartu kas iveda neteisinga pasworda tai gauna banna merkia akį gera apsauga no visokiausiu brudukietas
Mu online http://www.mu-zona.visiems.lt
2008 Geg. 2 22:05:38          16 žinutė iš 17
Spausdinti pranešimą
Dragelis, tai tik 'Baninti' (P.S. užrašas gal ir netoks) mygtuką įdėjo
2008 Geg. 3 21:05:58          17 žinutė iš 17
Spausdinti pranešimą
Ledų pardavėjas parašė:
Dragelis, tai tik 'Baninti' (P.S. užrašas gal ir netoks) mygtuką įdėjo


if (isset($_GET['ban'])){
 $result = dbquery("INSERT INTO ".$db_prefix."blacklist (blacklist_ip,blacklist_email,blacklist_reason) VALUES ('".$_GET['ban']."','','Pakliuvo iš logo į juodąjį sąrašą');");
 redirect(FUSION_SELF);




Spankimbas , kad nežinau. :|
Peršokti į forumą: