Results 1 to 7 of 7

Thread: Steam Account Checker

  1. #1
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Steam Account Checker

    Hey Guys, If you play counter-strike on steam then this may be useful to you, it finds information for an inputted STEAMID and either displays information in SCAR or it can save it to a .cfg and display the information In-Game.

    If you know what a STEAMID is then you'll most likely know what this script is about, if you don't know what a STEAMID is then you'll never have to use it.

    Anyways thought I'd post it.
    Let me know what you think.

    EDIT: If you are going to use this, download the script at the bottom. DO NOT copy and paste from the SCAR code because it seems to stuff up the code a little bit, it puts in [url]'s and stuff which arn't meant to be there.
    I only put put the SCAR code there to have a look at.

    SCAR Code:
    program Steam_Account_Checker_By_TurboBk;

    Var
      Time, TTime, H, M, S: Integer; // Timer Vars
      GID, TID, SteamID, Steam, CheatyG, VAC: String; // Page Vars
      Alias, Member, Location, Games, Friends, Status, PStatus: String; // Steam Vars
      GInt: Integer; // Games Var
      CGList, CGInfo, CGName, CGStatus: String; // CheatyG Vars

    Function SteamID_CommunityID(SteamID: String): String;
    Var
      raw: String;
      y, z: Integer;
    Begin
      raw := Replace(SteamID, 'STEAM', '');
      raw := Replace(raw, ':', '');
      y := StrToInt(StrGet(raw, 3));
      z := StrToInt(Copy(raw, 4, Length(raw)));
      Result := Int64ToStr((( z * 2 ) + 76561197960265728 + y));
    End;

    Function CommunityID_SteamID(CommunityID: Integer): String;
    Var
      ID: Integer;
      IDD: Extended;
      a, b: String;
    Begin
      ID := (CommunityID - 76561197960265728);
      IDD := (ID / 2);
      a := GetOthers(FloatToStr(IDD));
      b := Replace(FloatToStr(IDD), '.5', '');
      Case a Of
        '.': Result := ('STEAM_0:1:' + b);
        Else Result := ('STEAM_0:0:' + b);
      End;
    End;

    Function GetID(S: String): String;
    Begin
      Result := '';
      If (Pos('STEAM_0:', S) <> 0) Then
        If InRange(Length(S), 11, 18) Then
          Result := 'SteamID';
      If Not (Result = '') Then Exit;
      If (Length(S) = 17) Then
        Result := 'CommunityID';
      If Not (Result = '') Then Exit;
      Result := 'Error';
    End;

    Procedure WriteToCfg(S: String);
    Var
      FNum: Integer;
    Begin
      FNum := RewriteFile('C:\Program Files\Steam\steamapps\' + S + '\counter-strike\cstrike\CheckID.cfg', False);
      If WriteFileString(FNum, GetDebugText) Then
      Begin
        ClearDebug;
        WriteLn('Information saved to CheckID.cfg');
      End Else
      Begin
        ClearDebug;
        WriteLn('Failed to save Information to CheckID.cfg');
      End;
      CloseFile(FNum);
    End;

    Procedure GetAccountInfo(ID: String; LoginName: String; InGame: Boolean);
    Begin
      WriteLn('Gathering Information for ID...');
      WriteLn('Please wait.');
      WriteLn('');
      Time := GetSystemTime;
      GID := GetID(ID);
      Case GID Of
        'SteamID':     Begin
                         SteamID := ID;
                         TID := SteamID_CommunityID(ID);
                       End;
        'CommunityID': Begin
                         TID := ID;
                         SteamID := CommunityID_SteamID(StrToInt64(ID));
                       End;
        'Error':       Begin
                         WriteLn('** Error: Invalid SteamID or CommunityID **');
                         WriteLn('');
                         TerminateScript;
                       End;
      End;
     
      WriteLn('Gathering Information from Steam.');
      Steam := '';
      Steam := GetPage('http://steamcommunity.com/profiles/' + TID);
      If (Steam = '') Then
      Begin
        WriteLn('** Error: Could not retrieve info from Steam **');
        Alias := 'N/A';
        Games := 'N/A';
        Friends := 'N/A';
        Status := 'N/A';
        PStatus := 'N/A';
      End Else
      Begin
        Alias := Between('<title>Steam Community :: ID :: ', '</title>', Steam); // Current Alias
        Member := Between('Member since:', '<div class', Steam);
        Member := Replace(Member, '</div>', '');
        Member := Copy(Member, 4, (Length(Member) - 12));
        Member := Replace(Member, '     ', '');
        If (Pos('September', Member) <> 0) And (Pos('2003', Member) <> 0) Then
          Member := 'Unknown (Earlier than 2003)';
        //Location := Between('<h1></h1>', '; <img style="m', Steam);
        //Location := Between('<h2>', 'bsp', Location);
        //Location := Between('<h2>', '&n', Location);
        Location := Between('<!-- profile section -->', '<!-- /profile section -->', Steam);
        If (Pos('inform', Location) <> 0) Then
        Begin
          Location := 'N/A';
        End Else
        Begin
          Location := Between('<h1>', '<img style="m', Location);
          Location := Between('<h2>', ';', Location);
          Location := Between('<h2>', '&nbsp', Location);
        End;
        If (Location = '') Then Location := 'N/A';
        Friends := Between('friends">View all ', ' friends</a></p>', Steam); // Number of Friends
        If Not InRange(StrToInt(Friends), 0, 100000) Then Friends := 'N/A';
        Status := Between('<div id="inCommon">', '</div>', Steam); // Get Online / Offline
        If (Pos('Offline', Status) <> 0) Then Status := 'No' Else Status := 'Yes'; // Status Online / Offline
        If (Pos('class="errorPrivate">', Steam) <> 0) Then
          PStatus := Between('<p class="errorPrivate">', '</p>', Steam); // Profile Status
        If (Pos('private.', PStatus) <> 0) Then PStatus := 'Private';
        If (PStatus = 'Private') Then
        Begin
          Member := 'N/A';
          Location := 'N/A';
          Games := 'N/A';
          Friends := 'N/A';
          Status := 'N/A';
        End;
        If (Pos('set', PStatus) <> 0) Then PStatus := 'Not Set Up';
        If (PStatus = 'Not Set Up') Then
        Begin
          Alias := 'N/A';
          Member := 'N/A';
          Location := 'N/A';
          Status := 'N/A';
          Games := 'N/A';
          Friends := 'N/A';
        End;
        If Not (PStatus = 'Private') And Not (PStatus = 'Not Set Up') Then PStatus := 'Normal';
        If (PStatus = 'Normal') Then
        Begin
          Games := Between('">View all ', ' games</a></p>', Steam); // Number of Games
          GInt := StrToInt(Games);
          If Not (GInt > 0) Then Games := 'N/A';
          If (GInt >= 500) Then PStatus := 'Valve Staff';
        End;
      End;
     
      WriteLn('Gathering Information from CheatyG.');
      CheatyG := '';
      CheatyG := GetPage('http://cheatyg.net/database.php');
      If (CheatyG = '') Then
      Begin
        WriteLn('** Error: Could not retrieve info from CheatyG **');
        CGInfo := 'N/A';
        CGName := 'N/A';
        CGStatus := 'N/A';
        CGList := 'N/A';
      End Else
      Begin
        If (Pos(SteamID + '</a>', CheatyG) <> 0) Then CGList := 'Yes' Else CGList := 'No'; // Listed on CheatyG
        If (CGList = 'Yes') Then
        Begin
          CGInfo := Between(SteamID + '</a>', '</font></td>', CheatyG);
          CGName := Between('target=''_blank''>', '<font', CGInfo);
          CGName := Between('<td>', '</td>', CGName);
          CGStatus := Between('<font color=''', '''>', CGInfo);
          If (CGStatus = 'red') Then CGStatus := 'Cheat' Else CGStatus := 'Legit';
        End;
      End;
     
      WriteLn('Gathering Information from VAC.');
      VAC := '';
      VAC := GetPage('http://www.vacbanned.com/vacbanned.php?var=' + SteamID);
      If (VAC = '') Then
      Begin
        WriteLn('** Error: Could not retrieve info from VAC **');
        VAC := 'N/A';
      End Else If (Pos('not', VAC) <> 0) Then VAC := 'No' Else VAC := 'Yes';
     
      TTime := (GetSystemTime - Time);
      ConvertTime(TTime, H, M, S);

      If InGame Then
      Begin
        ClearDebug;
        WriteLn('alias w5 "wait; wait; wait; wait; wait"');
        WriteLn('alias w10 "w5; w5"');
        WriteLn('alias w25 "w10; w10; w5"');
        WriteLn('alias w100 "w25; w25; w25; w25"');
        WriteLn('say "** ID Checker - by iCaL* Executed **');
        WriteLn('w100');
        WriteLn('w100');
        WriteLn('say "* Account Status: ' +PStatus);
        WriteLn('w100');
        WriteLn('say "* Profile Alias: ' + Alias);
        WriteLn('w100');
        WriteLn('say "* Currently Online: ' + Status);
        WriteLn('w100');
        WriteLn('say "* Member Since: ' + Member);
        WriteLn('w100');
        WriteLn('say "* Location: ' + Location);
        WriteLn('w100');
        WriteLn('say "* Steam ID: ' + SteamID);
        WriteLn('w100');
        WriteLn('say "* Steam Games: ' + Games);
        WriteLn('w100');
        WriteLn('say "* Steam Friends: ' + Friends);
        WriteLn('w100');
        WriteLn('say "* Listed on CheatyG: ' + CGList);
        WriteLn('w100');
        If (CGList = 'Yes') Then
        Begin
          WriteLn('say "* Listed Name: ' + CGName);
          WriteLn('w100');
          WriteLn('say "* Listed Status: ' + CGStatus);
          WriteLn('w100');
        End;
        WriteLn('say "* VAC Banned: ' + VAC);
        WriteLn('w100');
        WriteLn('say "* CommunityID: [url]http://steamcommunity.com/profiles/[/url]' + TID);
        WriteLn('w100');
        If (M <> 0) Then
          WriteLn('say "* Took ' + IntToStr(M) + ' Minute[s] and ' + IntToStr(S) + ' Second[s] to gather Information.')
        Else WriteLn('say "* Took ' + IntToStr(S) + ' Seconds to gather Information.');
        WriteToCfg(LoginName);
      End Else
      Begin
        WriteLn('');
        WriteLn('* Account Status: ' + PStatus);
        WriteLn('* Profile Alias: ' + Alias);
        WriteLn('* Currently Online: ' + Status);
        WriteLn('* Member Since: ' + Member);
        WriteLn('* Location: ' + Location);
        WriteLn('* Steam ID: ' + SteamID);
        WriteLn('* Steam Games: ' + Games);
        WriteLn('* Steam Friends: ' + Friends);
        WriteLn('* Listed on CheatyG: ' + CGList);
        If (CGList = 'Yes') Then
        Begin
          WriteLn('* Listed Name: ' + CGName);
          WriteLn('* Listed Status: ' + CGStatus);
        End;
        WriteLn('* VAC Banned: ' + VAC);
        WriteLn('* CommunityID: [url]http://steamcommunity.com/profiles/[/url]' + TID);
        If (M <> 0) Then
          WriteLn('* Took ' + IntToStr(M) + ' Minute[s] and ' + IntToStr(S) + ' Second[s] to gather Information.')
        Else WriteLn('* Took ' + IntToStr(S) + ' Seconds to gather Information.');
      End;
    End;

    begin
      ClearDebug;
      GetAccountInfo('STEAM_X:Y:ZZZZ', '', False);
      // GetAccountInfo: Used to retrieve info on a STEAMID or CommunityID.
      // Use: ID - 'Input either a STEAMID or a CommunityID'.
      // Use: LoginName - 'If "InGame" is set to 'True' you must enter your steam account login name so we can save the CheckID.cfg to the right folder'. *Not Needed*
      // Use: InGame - 'False' to display info in debug box, 'True' to save info in your cstrike folder to display info In-Game.
      // Use: ** If you want to display info In-Game then you must then do these simple steps **
      // Use: 1. Navigate to your 'cstrike' folder. Common Path: C:\Program Files\Steam\steamapps\**LoginName**\counter-strike\cstrike.
      // Use: 2. Once in the 'cstrike' folder create a file in there called 'CheckID.cfg' make sure its a CFG File.
      // Use: 3. Then double click on a file called 'config.cfg' to edit it, scroll all the way down to the bottom under '+jlook' type this command:  bind "\" "exec CheckID.cfg"  Then Save!
      // Use: 4. Now to the good bit, open CS and connect to a server, find a SteamID or get a friends CommunityID copy it and alt+tab out of CS and input it into SCAR and click 'Run Script'.
      // Use: 5. Once you see the message, "Information saved to CheckID.cfg" maximize CS and press your bind key [\] while in a server and WAH LAH! =]
    end.
    Last edited by turbobk; 01-27-2010 at 03:25 AM.
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

  2. #2
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    3 views and no replies?

    If you downloaded the script please let me know how it went for you. :\
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

  3. #3
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    pretty unique script, wanna try to make a rs script and get members? Because I think you have the potential.
    Oh Hai Dar

  4. #4
    Join Date
    Jan 2010
    Location
    Australia
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very nice script

  5. #5
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Main_Ftw View Post
    pretty unique script, wanna try to make a rs script and get members? Because I think you have the potential.
    Thanks alot mate, I've made a few RS Scripts that work very well.
    I've just never wanted to post them, I don't need the 'SRL Member''s badge really anyway, I like people looking at me thinking I can't script.

    SRL Member would be nice though..


    Quote Originally Posted by Andyz0r View Post
    Very nice script
    Lol? Teh real Andyz0r?
    Thanks for the compliment, who know who this is btw?
    How come your on this forum? Found a new page containing 'CheatyG'?

    Oooh 8th on google.. LOL!
    Last edited by turbobk; 01-29-2010 at 02:18 AM.
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

  6. #6
    Join Date
    Jan 2010
    Location
    Australia
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by turbobk View Post
    Lol? Teh real Andyz0r?
    Thanks for the compliment, who know who this is btw?
    How come your on this forum? Found a new page containing 'CheatyG'?

    Oooh 8th on google.. LOL!
    Yeah it's the real Andyz0r.
    By the way, check the cheatyG News page.

    I'm not sure who you are, but the alias sounds awfully familiar!

  7. #7
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Andyz0r View Post
    Yeah it's the real Andyz0r.
    By the way, check the cheatyG News page.

    I'm not sure who you are, but the alias sounds awfully familiar!

    Be sure to take a look at turbobk's Steam Account Checker script from the SRL forums.
    Haha that's awesome mate!
    Thanks alot!

    And if you don't know who I am then it must remain a secret!
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •