It's easier if you just reget the script from the same url. This contains the new addition to dump the html given at the end of the redirect trail which will then create "whereis-tcl.html". This will give me the page which is blocking your access. After that I can craft an http reply which will basically be clicking a box on that page and going to the member page reserved for gold members. I wont necessarily need your password anymore...shahrul wrote:Hi,
i dont see any whereis-tcl.html location.
i think, i give my login to you and fix it. can u?
after that i will change the passwd? -_-
That shouldn't happen with the html response you've provided.shahrul wrote:speechles, where are you?
Here is a play-by-play of what happens (#read the comments)...Shahrul's pastebin wrote:588. Gold Member<br>
Code: Select all
... snipped irrelevant parts ...
# get data, to check if we are logged in or not
set html [::http::data $http]
# copy the html to a file here, this may be a stupid ad.
# Need to do this so users can give the html for the
# GOLD MEMBER and other accounts..
set c [open "whereis-tcl.html" w]
puts $c $html
close $c
# bypass the stupid ad trying to get you to become a pay member....
if {[regexp -nocase {"/member/">} $html]} {
catch {set http [::http::geturl "http://www.ip-adress.com/member/" -headers [list Referer [string map {" " "%20"} $value] Cookie [join $::whereisCookies {;}]] -timeout [expr 1000 * 10]]} error
# error condition 1: invalid http session
if {![string match -nocase "::http::*" $error]} {
putserv "privmsg $chan :\002Whereis\002: Login Failed: [string totitle $error] \( http://www.ip-adress.com/member \)"
set ::whereisLogged 0
return 0
}
# error condition 2: http error
if {![string equal -nocase [::http::status $http] "ok"]} {
putserv "privmsg $chan :\002Whereis\002: Login Failed: [string totitle [::http::status $http]] \( http://www.ip-adress.com/member \)"
set ::whereisLogged 0
return 0
}
# get html
set html [::http::data $http]
}
# cleanup http token
::http::cleanup $http
# cleanse html of problematic undisplayable characters
regsub -all {(?:\n|\t|\v|\r|\x01)} $html " " html
# check that 'login failed' isn't within the html
if {![string match -nocase "*login failed*" $html]} {
# wasn't found, we must be logged in. ;)
# do we have any quota left?
if {![regexp -nocase {<div class="row2">.*?<span class="limit.*?>(.*?)</span.*?<span class="limit.*?>(.*?)</span.*?<span class="limit.*?>(.*?)</span><br>} $html - daily remain extra]} {
# no, are we a gold member account?
if {![regexp -nocase {Gold Member<br>} $html]} {
# no, we should message we are exceeded...
putserv "privmsg $chan :\002Whereis\002: Account quota appears to have been exceeded..."
# then we should logout
set lf [whereisLogout $nick $uhost $hand $chan $text]
# and return 0 to indicate logged out
return 0
} else {
# yes, we are a gold member, set some fake variables
set daily 999 ; set remain 999 ; set extra 0
}
}
# yes, set state as logged in
set ::whereisLogged 1
... snip ...
Code: Select all
# no, are we a gold member account?
if {![regexp -nocase {Gold Member<br>} $html]} {
My apologies I should've included something for this when it was created.Fraud wrote:Very nice Script. Thanks a lot for this.
I am using this Script in a german channel and i hav problems with displaying äöü. Is it possible to get this in any way solved.
Example : Ländercode
Should be: Ländercode
This happens in a different spot than merely logging in. Try just using !wlogin and !wprev or !wnext to test the accounts login feature. Because the message your showing happens when doing !whereis <nick/ip/host-name> lookups.shahrul wrote:Hi,
i have re-download the tcl and still got this error.
<IP> returns no useful information for me to reply with... ;/
this is whereis.html provided.
http://pastebin.com/LDjG8DUX
Code: Select all
} else {
# we have no output at all, declare
puthelp "privmsg $chan :$text returns no useful information for me to reply with... ;/"
# if we are logged in, this doesn't count against our quota so add back the 1 we took away. ;)
if {$::whereisLogged > 0} { incr ::whereisRemain 1 }
}
Actually, the bot is connected with efnet server.. and i use !whereis <ip><@shahrul> !wlogout
<@boss> Whereis: Logout Successful! Accout (1/1) blah@email.com
<@shahrul> !wlogin
Whereis: Login Successful! Account (1/1) (blah@email.com; Gold Member)
<@shahrul> !wprev
<@boss> Whereis: Previous Account (1/1) blah@email.com
<@boss> Whereis: Login Successful! Account (1/1) (blah@email.com; Gold Member)
<@shahrul> !wnext
<@boss> Whereis: Next Account (1/1) blah@email.com
<@boss> Whereis: Login Successful! Account (1/1) (blah@email.com; Gold Member)
<@shahrul> !whereis 94.125.252.41
<@boss> 94.125.252.41 returns no useful information for me to reply with... ;/
My apologies I should've included something for this when it was created.Example : Ländercode
Should be: Ländercode
And here is what it saysreturns no useful information for me to reply with... ;/
-> !wlogin
-> Whereis: Login Successful! Account (1/3) (****@****l.com; DailyLimit: 25 witb 25 remaining.)
-> !wStatus
-> Whereis: Always login; Logged in; Account (1/3) (****@****l.com; DailyLimit: 25 witb 25 remaining.)
-> !whereis 188.80.1**.***
-> 188.80.1**.*** returns no useful information for me to reply with... ;/
...are you aware that many websites and most hackers use IP addresses to monitor your personal business and that your home address and other personal information about you can be retrieved once your IP address is known?
What does that mean?
If your IP address isn’t hidden, virtually anyone with Internet access can track you directly to your home. Everyone can see this information - including hackers! Your firewall does not hide your IP address - Our award winning software can do this.
To say that "virtually anyone with Internet access can track you directly to your home" with just your IP address and that "Everybody can see this information" is a patently false set of claims. Granted, a WAN IP address can be correlated to its user (and that user's physical address) at any particular time from the ISP's connection logs. But it's extremely unlikely that anyone without a court order will be provided such information, and especially anyone other than law enforcement personnel. This applies to dynamic as well as static IP addresses.Remember: With your IP address you are recognized on any site. Your IP is logged and then it can be used to track it back to your home. Secure your Privacy Now, stop hackers and stay invisible.