SRL Archive - Misc. Links and Programs

This is free for now to everyone here at srl. If you are logged in to lockerz when you use this page/script, it will log you out and you have to log back in.

Edit: I took down scar support functionality. But If you follow my link in siggy, and post/PM your fearnothing username, I can grant access to the service for free.

I dont think sending my account details to your site sounds safe tbh. Post the php so we can host it ourselfs

If i post the php… I couldn't sell the service of it in the future…

Use a test account to see its legit if you want.

It works :).

From: ZaSz
If i post the php… I couldn't sell the service of it in the future…

Use a test account to see its legit if you want.

Do you store the passwords as plain text?

I believe it works, but I just don't know how much I trust my password going to your site.

I don't store a single password. It only handles the user + pass for the login part of the script.

edit: You would have believed it works most likely if it originally had a nice layout and stuff, well, i am currently making it nicely laid out.

I was bored….

program New;

const
  Username = ''; //Username
  Password = ''; //Password
  Quickie = True; //Only login once then quit
  RandomNess = True; //Add randomness to the logins

////////////////////////////////////////////////////////////////////////////////
////////               Script Beyond This Point                        /////////
////////////////////////////////////////////////////////////////////////////////
  
var
  VActive: boolean;
  CResult: string;
  SCount, ECount, WaitMS: integer;

procedure GetPoints;
var
  STemp: string;
begin
  STemp := Trim(LowerCase(GetPage('http://fearnothing.net/ptz.php?user=' + Username + '&pass=' + Password)));
  if (STemp <> '') then
  begin
    STemp := Trim(between('<result>', '</result>', STemp));
    if (STemp <> '') then
    begin
      if (STemp <> 'false') then
      begin
        Inc(SCount);
        CResult := 'Got your login points for the day!';
      end else
      begin
        Inc(ECount);
        CResult := 'You already got your login ptz for the day!';
      end;
    end else
    begin
      Inc(ECount);
      CResult := 'You have entered a Invalid Account!';
      VActive := False;
    end;
  end else
  begin
    Inc(ECount);
    CResult := 'Unknown Error!';
  end;
  WriteLn(CResult);
  if Quickie then
    VActive := False;
end;

procedure Report;
begin
  ClearDebug;
  WriteLn('/----------------------------------------------------------------\');
  WriteLn('|           ZaSz''s Automatic Lockerz Login Script                |');
  WriteLn('|----------------------------------------------------------------|');
  WriteLn('|    Successful Logins: ' + Padr(IntToStr(SCount), 40) + ' |');
  WriteLn('|    UnSuccessful Logins: ' + Padr(IntToStr(ECount), 38) + ' |');
  WriteLn('|    Current Result: ' + Padr(CResult, 43) + ' |');
  WriteLn('\----------------------------------------------------------------/');
end;

procedure UserCheck;
begin
  if ((Username = '') or (Password = '')) then
  begin
    VActive := False;
    CResult := 'Please Fill out Account Information!';
  end;
end;

begin
  VActive := True;
  SCount := 0;
  ECount := 0;
  UserCheck;
  while VActive do
  begin
    Report;
    GetPoints;
    if (not (VActive)) then
      Break;
    WaitMS := MSecPerDay; //24 Hours (24 * 60 * 60 * 1000)
    if RandomNess then
      IncEx(WaitMS, Random(60 * 60 * 1000)); //1 Hour
    Wait(WaitMS);
  end;
  Report;
end.

[QUOTE=Dgby714;697794 Code:
[LEFT]WaitMS := 24 * 60 * 60 * 1000; //24 Hours

[/LEFT]

Why don't you just use the MSecPerDay constant..?

From: Sex
Why don't you just use the MSecPerDay constant..?

I didn't know there was one…..

Now you do :).

From: Sex
Now you do :).

If you look i alredy changed it lol…

So, you're trying to make money off idiots, and also not share your PHP source? :(

I haven't started trying to make money. And sorry about not sharing sauce :(

I don't want to be flooded with student loans when I go to college, so I gotta make money somehow.

When I sell, it would be useful for days you are gone or just forget, because it will do it automatic on my site. (When you register for the service)

Asking money for the service is not stupid imo.

Well it is, as you could just do this with a free script.
Here's just a little start, you only need to add the 'click the login button' thingy, which I can't do now as I just clicked it 'legit'.

program new;
var client : integer;
postdata : string;
const
email = '';
password = '';
begin
InitializeHTTPClient(true, true);
SetHTTPUserAgent(client, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2');
GetHTTPPage(client, 'http://www.lockerz.com');
PostData := 'remember+me=off&handle='+email+'&password='+password;
postdata := PostHTTPPage(client, 'http://www.lockerz.com/auth/login', postdata);
writeln('You got: '+GetNumbers(between('<span class="ptz_value">', '</span> PTZ</li>', postdata))+' PTZ.');
end.

stop me if this is me being stupid; but wouldnt it be the same amount of effort to start the script, than to just log onto this site yourself?

Im pretty much new to lockerz.. I know some basic things how you gain points and can exchange it for some cool prices or money cards but what does this script ? Is it like continues logging in and out and you gain points with it or ?

Mat, it does the daily login points. Jakey, right now, maybe, unless you leave your pc on 24/7, you can run dgby's connector to my site to do it.

Tell me if you get anyone buying it, cause I just thought of an AWESOME idea which I might sell if the customers are there.

If its automatic dailies, I'm also working on that :D

Nope :)

Almost ready to release the onsite service. When I do, I will be removing the main links functionality -.o, but, I will be offering a free months (Maybe more) service to srl.

What you guys can do now is go to fearnothing.net and sign up, if you want you can set your lockerz settings when you login.

I will be posting a new thread for it in the misc links section, and will request for this thread to be locked. (Not now, maybe later today or 2moro)

Student loans top about $5-6k. This probably wont help you dude :P

I've got 20k in student loans, still a year left of school, but prob won't need to take out too much next year.
and my university is pretty cheap…good luck making any kind of dent in that! (don't kid yourself, or us)

Well, if I get 100 people to use. (Not at srl, as I have decided for now srl gets free.) The service = $3 a month, minus paypal tax. Thats about $240 a month I make. Thats just an extra $2,880 a year. But if I advertise right I could get potentially more customers.

And I don't go to college for a couple years. This would pay for about half a years tuition.

Aye, go on MSN bro.
And I would pay for that service by the way. But only if it watched a shitload of videos + dailies and such ;).

I have the dailys close to fully functioning! And I accidentally used the script to do the daily's for you zytex + mats, but I answered ok for you guys lol.

And your no on msn :/

Video's. I do not think it is possible at this time.

Lol, is this really that hard to make that you're going to ask for payments?

Its more that I need the money, as I posted on your thread, but its free for srl, I decided that yesterday, if you looked 3 posts up to see…

You know you can get a job right?

< 16 = no job.

Er, I am getting a job during the summer at the Grocery Outlet/BGCA and I am 14…

14 and 9 months is minimum for Australia :) haha, thought I would put my word in :P hehe

Hey what happened to your Lockerz service ? I saw it missed a lot of dailies lately !

Soz for the gravedigg :p

http://villavu.com/forum/showthread.php?t=55897