egghelp/eggheads community

Connecting vBulletin Users Database Table with IRC

2011-10-23T07:23:41-04:00

this should do the trick, bit late with the response but...

Code:

package require mysqltcl 3.05package require md5 namespace eval reqs { namespace eval sett { #START SETTINGS    variable req_chan "#YOUR_CHAN" #DB CONNECTION variable db_host "DB_HOST" variable db_port "3306" variable db_username "DB_USER" variable db_password "DB_PASSWORD" variable db_name "DB_NAME" #CHANNEL USER TABLE variable db_table "TABLE_NAME" variable db_user "USERNAME_FIELD" variable db_pass "PW_FIELD" variable db_salt "SALT_FIELD" #BINDS bind MSGM -|- "*" reqs::user_add_voice::voice_add_user #END SETTINGS NAMESPACE } # SCRIPT STARTS namespace eval user_add_voice {  proc voice_add_user {nick uhost handle text} { set check_nick [lindex $text 0] set get_pass [lindex $text 1] set salt [lindex $text 1]# from what you said above# $password_hash = md5(md5($password_text) . $user_salt);# but without acces to a forum db i cannot test and have no idea on how the pws are stored/encrypted...set check_pass [md5 [md5 $salt][md5[$getpass]]set find_it [::mysql::connect -host $reqs::sett::db_host -port $reqs::sett::db_port -user $reqs::sett::db_username -password $reqs::sett::db_password -db $reqs::sett::db_name]; set it_find [::mysql::sel $find_it "SELECT $reqs::sett::db_user,$reqs::sett::db_pass FROM $reqs::sett::db_table WHERE $reqs::sett::db_user = '$check_nick' AND $reqs::sett::db_pass = '$check_pass'" AND $reqs::sett::db_salt = '$check_pass'"-flatlist]; ::mysql::endquery $find_it ::mysql::close $find_it if {$it_find == ""} {putquick "NOTICE $nick :invalid login";return} else { set valid_nick [lindex $it_find 0] set valid_pass [lindex $it_find 1] if {![isvoice $nick $reqs::sett::req_chan] && $check_nick == "$valid_nick" && $check_pass == "$valid_pass"} {   putquick "MODE $reqs::sett::req_chan +v $nick"    putquick "NOTICE $nick :thanks for logging in.."     } else {            return          }       }    } }      #END NAMESPACE }

untested

Statistics: Posted by doggo — Sun Oct 23, 2011 7:23 am

Connecting vBulletin Users Database Table with IRC

2011-07-06T17:54:55-04:00

I'm very interested in this, However I would like it if the bot had o:line access to be able to kick people off the server within 10 seconds if they did not /msg bot username pass.

I saw this in another forum and thought it might be helpful for this thread.
https://www.vbulletin.com/forum/showthr ... connecting

If it is at all possible for somebody to code this, this would be awesome.

I also want the bot to invite users to multiple channels on authorization and I want it to have commands so that I can add people to @ list +list and regular.

Also depending upon what access they have (@+) I'd like them to be invited to those channels as well.

WOULD LOVE TO SEE THIS!!!!!!!!!! I dont know anything about this type of coding or how to put it into my IRCD, but I'm willing to learn and if somebody is able to create this, would be nice for a step by step tutorial. <3 in advance.

Statistics: Posted by Murtific — Wed Jul 06, 2011 5:54 pm

Connecting vBulletin Users Database Table with IRC

2011-04-25T16:42:22-04:00

Hello dude, i saw a field called "salt" in my vb_user table contain random characters that adds the extra encryption, can you write something so the tcl can read both the password and the salt fields together as vbulletin read them?

someone assured for me that vbulletin use this method of hashing:

Code:

$password_hash = md5(md5($password_text) . $user_salt);

please help me

Statistics: Posted by danswano — Mon Apr 25, 2011 4:42 pm

Connecting vBulletin Users Database Table with IRC

2011-04-25T11:48:22-04:00

i saw some were trying to get the password for external use but he has a problem because he is using arabic, but can you take a look at his code if it might be useful?

http://www.vbulletin.com/forum/showthre ... sword+hash

i also found those cases for md5+salt

Code:

– md5($pass.$salt) – md5($salt.$pass)– md5($salt.md5($pass))– md5($salt.$pass.$salt)– md5($salt.'–'.md5($pass))– md5(md5($salt).$pass)– md5(md5($salt).md5($pass))– md5(md5($pass).$salt)– md5(md5($pass).md5($salt))– md5(md5($username.$pass).$salt)– md5($salt.$pass.$username)– md5($salt.md5($salt.$pass))– md5($salt.md5($pass.$salt))– md5($salt.md5($pass).$salt)– md5($username.md5($pass).$salt)

can i use them as they are in replacement of?
set check_pass [md5 $get_pass]

Statistics: Posted by danswano — Mon Apr 25, 2011 11:48 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T10:10:01-04:00

This worked buddy but if anyone knows the user's email will login as him, any idea how to use md5 with salt in your script?

Statistics: Posted by danswano — Mon Apr 25, 2011 10:10 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T10:02:14-04:00

http://www.vbulletin.com/forum/showthre ... 1fca9f8658

sounds tricky.. maybe auth users who provide usename and email just to test.. it does what you want..

Code:

package require mysqltcl 3.05 namespace eval reqs { namespace eval sett { #START SETTINGS    variable req_chan "#YOUR_CHAN" #DB CONNECTION variable db_host "DB_HOST" variable db_port "3306" variable db_username "DB_USER" variable db_password "DB_PASSWORD" variable db_name "DB_NAME" #CHANNEL USER TABLE variable db_table "TABLE_NAME" variable db_user "USERNAME_FIELD" variable db_email "EMAIL_FIELD" #BINDS bind MSGM -|- "*" reqs::user_add_voice::voice_add_user #END SETTINGS NAMESPACE } # SCRIPT STARTS namespace eval user_add_voice {  proc voice_add_user {nick uhost handle text} { set check_nick [lindex $text 0] set check_email [lindex $text 1] set find_it [::mysql::connect -host $reqs::sett::db_host -port $reqs::sett::db_port -user $reqs::sett::db_username -password $reqs::sett::db_password -db $reqs::sett::db_name]; set it_find [::mysql::sel $find_it "SELECT $reqs::sett::db_user,$reqs::sett::db_email FROM $reqs::sett::db_table WHERE $reqs::sett::db_user = '$check_nick' AND $reqs::sett::db_email = '$check_email'" -flatlist]; ::mysql::endquery $find_it ::mysql::close $find_it if {$it_find == ""} {putquick "NOTICE $nick :invalid login";return} else { set valid_nick [lindex $it_find 0] set valid_email [lindex $it_find 1] if {![isvoice $nick $reqs::sett::req_chan] && $check_nick == "$valid_nick" && $check_email == "$valid_email"} {    putquick "MODE $reqs::sett::req_chan +v $nick"    putquick "NOTICE $nick :thanks for logging in.."     } else {            return          }       }    } }      #END NAMESPACE }

maybe someone else knows how to send the password?

Statistics: Posted by doggo — Mon Apr 25, 2011 10:02 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T09:43:07-04:00

i found something useful here

http://www.vbulletin.com/forum/showthre ... protection

We use a double md5 hash with a salt. Without the salt its moderately hard to get a value that works for the password.

something like md5(md5(password)salt)

Statistics: Posted by danswano — Mon Apr 25, 2011 9:43 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T09:34:35-04:00

Maybe they changed, it's vbulletin version 4, do you know what they are using? can i help you with something so you can know?

Statistics: Posted by danswano — Mon Apr 25, 2011 9:34 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T09:33:20-04:00

how are the paswords stored in your database are you sure its md5?

Statistics: Posted by doggo — Mon Apr 25, 2011 9:33 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T09:25:51-04:00

Thanks, it loaded now but i'm getting invalid login

any idea why?

Statistics: Posted by danswano — Mon Apr 25, 2011 9:25 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T09:19:23-04:00

i have tested again and updated the code in the previous post

i wrote it late last night, so there were bound to be some errors:P

quick test

Code:

[02:16pm] * doggo sets mode: +h NZB-Bot`[02:17pm] -> *NZB-Bot`* doggo PiKEYs   < wrong pass!>[02:17pm] -NZB-Bot`- invalid login[02:17pm] -> *NZB-Bot`* doggo PiKEY   [02:17pm] * NZB-Bot` sets mode: +v doggo[02:17pm] -NZB-Bot`- thanks for logging in..

loads and runs ok

Code:

[14:22] Rehashing ...[14:22] main_conf.conf loaded without errors[14:22] egghttp.tcl API v1.1.0 by strikelight now loaded.[14:22] egghttp.tcl loaded without errors[14:22] alltools.tcl loaded without errors[14:22] action.fix.tcl loaded without errors[14:22] vb_script.tcl loaded without errors[14:22] Listening at telnet port ******** (all).[14:22] Userfile loaded, unpacking...

Statistics: Posted by doggo — Mon Apr 25, 2011 9:19 am

Connecting vBulletin Users Database Table with IRC

2011-04-25T08:39:14-04:00

Error while loading vb-script.tcl: missing close-brace

when i loaded the scripts in the eggdrop,conf like this:

Code:

source scripts/vb-script.tcl

i got this error

[13:03:13] missing close-brace
while executing
"namespace eval reqs {
namespace eval set {

#START SETTINGS
variable req_chan "#chan"

#DB CONNECTION
variable db_host "localhost"
variable db_po..."
(file "scripts/vb-script.tcl" line 3)
invoked from within
"source scripts/vb-script.tcl"
(file "eggdrop.conf" line 219)
[13:03:13] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Statistics: Posted by danswano — Mon Apr 25, 2011 8:39 am

Connecting vBulletin Users Database Table with IRC

2011-04-24T22:11:23-04:00

I'm sorry dude but i'm not that pro in eggdrop, where do i paste those settings and do i need additional tcl? Thanks.

if you save all the above code into a file called vb-script.tcl save to the scripts DIR and edit these to match your user database tables

Code:

#DB CONNECTION variable db_host "DB_HOST" variable db_port "3306" variable db_username "DB_USER" variable db_password "DB_PASS" variable db_name "DB_NAME" #CHANNEL USER TABLE variable db_table "TABLE_NAME" variable db_nick "USERNAME_FIELD" variable db_pass "MD5_PASSWORDED_FIELD"

and add the line

Code:

if {[catch {source scripts/vb-script.tcl} err]} {putlog "Error while loading vb-script.tcl: $err"} else {putlog "vb-script.tcl loaded without errors"}

to your eggdrop.conf, then .restart your eggdrop via the partyline

Statistics: Posted by doggo — Sun Apr 24, 2011 10:11 pm

Connecting vBulletin Users Database Table with IRC

2011-04-24T19:24:44-04:00

I'm sorry dude but i'm not that pro in eggdrop, where do i paste those settings and do i need additional tcl? Thanks.

Statistics: Posted by danswano — Sun Apr 24, 2011 7:24 pm

Connecting vBulletin Users Database Table with IRC

2011-04-25T09:18:50-04:00

ive tested and seems to work ok..

just edit the SETTINGS part and restart the bot..

usage

Code:

/MSG botnick site_name site_pass

Code:

package require mysqltcl 3.05namespace eval reqs {namespace eval sett {#START SETTINGS    variable req_chan "#YOUR_CHAN"#DB CONNECTIONvariable db_host "DB_HOST"variable db_port "3306"variable db_username "DB_USER"variable db_password "DB_PASS"variable db_name "DB_NAME"#CHANNEL USER TABLEvariable db_table "TABLE_NAME"variable db_user "USERNAME_FIELD"variable db_pass "MD5_PASSWORDED_FIELD"#BINDS bind MSGM -|- "*" reqs::user_add_voice::voice_add_user #END SETTINGS NAMESPACE } # SCRIPT STARTS namespace eval user_add_voice {  proc voice_add_user {nick uhost handle text} { set check_nick [lindex $text 0] set get_pass [lindex $text 1] set check_pass [md5 $get_pass] set find_it [::mysql::connect -host $reqs::sett::db_host -port $reqs::sett::db_port -user $reqs::sett::db_username -password $reqs::sett::db_password -db $reqs::sett::db_name]; set it_find [::mysql::sel $find_it "SELECT $reqs::sett::db_user,$reqs::sett::db_pass FROM $reqs::sett::db_table WHERE $reqs::sett::db_user = '$check_nick' AND $reqs::sett::db_pass = '$check_pass'" -flatlist]; ::mysql::endquery $find_it ::mysql::close $find_it if {$it_find == ""} {putquick "NOTICE $nick :invalid login";return} else { set valid_nick [lindex $it_find 0] set valid_pass [lindex $it_find 1] if {![isvoice $nick $reqs::sett::req_chan] && $check_nick == "$valid_nick" && $check_pass == "$valid_pass"} {    putquick "MODE $reqs::sett::req_chan +v $nick"    putquick "NOTICE $nick :thanks for logging in.."     } else {            return }} } }      #END NAMESPACE }

** code updated to fix the missing } **

Statistics: Posted by doggo — Sun Apr 24, 2011 6:02 pm