Ok, I asked around and found a different approach.
I'm not sure how to incorporate this new sub into my existing script, any ideas?
sub Steam() {
print "File Containg username:password > ";
chomp(my $steam = <STDIN>);
open(S, $steam) || die("Error: $!");
my @steamcheck = <S>;
close(S)...
I have compared them, The only difference in the failed login is underneath the login box it says "Incorrect Login" and the successful login page is totally different...
For some reason the script isn't detecting the "Incorrect Login
Ya I tried that so this is my last resort, the script itself works but it isn't recognizing keywords when the login was successful/failure so it doesn't correctly print back the response whether the login worked or not..which is my problem
I'm not brute forcing anything,
I have a list of accounts I buy/sell/trade and it's important for me to be able to check if they all work without having to individually check 1 by 1 and this is the best way I can think of.
Ok, I made a script that should connect to steamcommunity.com, try logging in from a .txt file of username/passwords, and print back to me if the login was successful or not...
I'm sorta new to PERL so I'm not 100% positive on what to look for, but here is whats happening.
I don't know how the...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.