botlending forum  

Go Back   botlending forum > Eggdrop & TCL > Tcl scripting

Tcl scripting Tcl scripting related questions

Reply
 
LinkBack Thread Tools Display Modes
Old 24-12-2004, 12:41   #1 (permalink)
Junior Member
 
DarkEngel's Avatar
 
Join Date: Nov 2004
Location: In space...
Posts: 50
Rep Power: 0
DarkEngel is an unknown quantity at this point
Lightbulb UserSet AntiHack

Am incercat sa fak USERSET ANTIHACK.Am fakut setarea in sine si am modificat la !addhost & !delhost,ca odata ce antihack este ON sa nu mai poata fi schimbate.In yx_95_local_q am modificat la auth:
Code:
	if { [passwdok $ident $pass]}   {

		tell $x 4 "$ident [getuser $ident XTRA SECNICK] [getuser $ident XTRA SECHOST] [getuser $ident XTRA SECTIME]"

		setuser $ident HOSTS

		setuser $ident HOSTS $host

		if {[getuser $ident XTRA PERMIDENT] != ""} { setuser $ident HOSTS [getuser $ident XTRA PERMIDENT] }

		setuser $ident XTRA SECNICK $nick		

		setuser $ident XTRA SECHOST [lindex $mix 0]

		setuser $ident XTRA SECTIME "[ctime [unixtime]]" 

		chattr  $ident +Q

		return "as $ident succeeded"                       } else { 

		tell $x 10; return "FAILED: wrong password for $ident"}}}
in

Code:
        if { [getuser $ident XTRA ANTIHACK == "on"] } {
        if { [$host != [getuser $ident XTRA HOST]] || ![passwdok $ident $pass]} {
        if { [getuser $ident XTRA REPORTING == "on"]} {
        storenote $botnick $ident "Somebody tried to login with a wrong host.He had: nick:$nick, host:$host, time:[ctime [unixtime]].Pass that he tried to use: $pass"
        } else { puthelp "PRIVMSG $nick :$nick,you don't have the correct host, and ANTIHACK for $ident it's enabled, so you can't auth!"
        } else {
                if { [passwdok $ident $pass]}   {

		tell $x 4 "$ident [getuser $ident XTRA SECNICK] [getuser $ident XTRA SECHOST] [getuser $ident XTRA SECTIME]"

		setuser $ident HOSTS

		setuser $ident HOSTS $host

		if {[getuser $ident XTRA PERMIDENT] != ""} { setuser $ident HOSTS [getuser $ident XTRA PERMIDENT] }

		setuser $ident XTRA SECNICK $nick		

		setuser $ident XTRA SECHOST [lindex $mix 0]

		setuser $ident XTRA SECTIME "[ctime [unixtime]]" 

		chattr  $ident +Q

		return "as $ident succeeded"                       } else { 

		tell $x 10; return "FAILED: wrong password for $ident"}}

        } else {

        if { [$host != [getuser $ident XTRA HOST]] || ![passwdok $ident $pass]} {
        if { [getuser $ident XTRA REPORTING == "on"]} {
        storenote $botnick $ident "Somebody tried to login with a wrong host.He had: nick:$nick, host:$host, time:[ctime [unixtime]].Pass that he tried to use: $pass"
        } else { puthelp "PRIVMSG $nick :$nick,you don't have the correct host, and ANTIHACK for $ident it's enabled, so you can't auth!"
        } else {
                if { [passwdok $ident $pass]}   {

		tell $x 4 "$ident [getuser $ident XTRA SECNICK] [getuser $ident XTRA SECHOST] [getuser $ident XTRA SECTIME]"

		setuser $ident HOSTS

		setuser $ident HOSTS $host

		if {[getuser $ident XTRA PERMIDENT] != ""} { setuser $ident HOSTS [getuser $ident XTRA PERMIDENT] }

		setuser $ident XTRA SECNICK $nick		

		setuser $ident XTRA SECHOST [lindex $mix 0]

		setuser $ident XTRA SECTIME "[ctime [unixtime]]" 

		chattr  $ident +Q

		return "as $ident succeeded"                       } else { 

		tell $x 10; return "FAILED: wrong password for $ident"}}}
Este bine asta din auth? Sunt sigur ca ceva`i gresit
DarkEngel is offline   Reply With Quote
Old 24-12-2004, 22:43   #2 (permalink)
Member
 
Kurupt's Avatar
 
Join Date: Jun 2004
Location: Hermannstadt
Age: 24
Posts: 108
Rep Power: 36
Kurupt will become famous soon enough
Send a message via Yahoo to Kurupt
Default ..

anithack e posibilitatea ca doar userii la care le corespunde hostul sa se poata loga. so tot ce trebuie modificat e la auth
__________________
Owner of #ro-tcl
Kurupt is offline   Reply With Quote
Old 24-12-2004, 23:11   #3 (permalink)
Junior Member
 
DarkEngel's Avatar
 
Join Date: Nov 2004
Location: In space...
Posts: 50
Rep Power: 0
DarkEngel is an unknown quantity at this point
Default Ok

Ok,so la addhost etc las normal,dar asta la auth e bine?
DarkEngel is offline   Reply With Quote
Old 30-12-2004, 02:31   #4 (permalink)
Administrator

aka aqwzsx
 
Join Date: Jun 2004
Posts: 827
Blog Entries: 126
Rep Power: 3
UniversaliA is on a distinguished road
Default

Testezi/incerci si spui tu noua daca e bine sau rau, daca ai probleme - intrebi.
UniversaliA is offline   Reply With Quote
Reply

Bookmarks


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
!userinfo & !userset UniversaliA #a&a 4 08-08-2004 22:02


All times are GMT +3. The time now is 07:41.


Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.