SRCDS Steam group


Steam id finder
#1
 
Very easy and helpful program, direct download from my website.

auto detects your steam folder and scans logs. Displays the user name and steam id.
http://forum.basthijs.net/downloads.php?do=file&id=30
http://www.basthijs.net - game forum.
Reply
#2
Sounds good and should be helpful
Reply
#3
Thanks Big Grin. New tools that can make people less lazy and not join a server. To get there steam id.
Reply
#4
I wrote a function to do this in Delphi:
Code:
function GetSteamID(): String;
var
  Reg: TRegistry;
  Input: Integer;
  Beginning: Boolean;
  TextLine, SteamPath: String;
begin
  try
    // Init our classes.
    Reg := TRegistry.Create;

    // Obtain steam path.
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Valve\Steam\', false);
    SteamPath := Reg.ReadString('SteamPath');

    // Copy the file to prevent IO error.
    CopyFile(PChar(SteamPath + '/Steam.log'), PChar(SteamPath + '/Steam2.log'), False);

    // Read the last entry containing a steamid.
    Input := FileOpen (SteamPath + '/Steam2.log', 0);
    FileSeek(Input, 0, 2);
    repeat
      ReadBack(Input, TextLine, Beginning);
      if Pos('for ', TextLine) <> 0 then
      begin
        // Delete all the crap and keep the steamid.
        Delete(TextLine, 1, Pos('for ', TextLine) + 3);
        Result := 'STEAM_' + TextLine;
        // Free.
        Reg.Free;
        FileClose(Input);
        DeleteFile(SteamPath + '/Steam2.log');
        Exit;
      end;
    until Beginning;

    // Free.
    Result := '0';
    Reg.Free;
    FileClose(Input);
    DeleteFile(SteamPath + '/Steam2.log');
  except
    Result := '0';
  end;
end;

This is the ReadBack function I use:
Code:
procedure ReadBack(const F: Integer; var Line: String; var Beginning: Boolean);
const
  MAXLINELENGTH = 256;
var
  Current, Before: LongInt;
  Buffer: array [0..MAXLINELENGTH] of Char;
  P: PChar;
begin
  Current := FileSeek(F, 0, 1);
  Before := Current - MAXLINELENGTH;
  if Before < 0 then
    Before := 0;
  FileSeek (F, Before, 0);
  FileRead (F, Buffer, Current - Before);
  Buffer[Current - Before] := #0;
  P := StrRScan(Buffer, #10);
  if P = nil then
  begin
    Line := StrPas(Buffer);
    FileSeek(F, 0, 0);
    Beginning := True
  end
  else
  begin
    Line := StrPas (p + 1);
    FileSeek (F, Before + LongInt(P) - LongInt(@Buffer), 0);
    Beginning := False
  end;
  if Length(Line) > 0 then
    if Line[Length (Line)] = #13 then
    begin
      SetLength (Line, Length(Line) - 1)
    end
end;
Reply
#5
Just made my own site on this theme:

http://www.steamidfinder.com

Toungue
Reply
#6
That's pretty neat Broseph!
~ Mooga ...w00t? - SRCDS.com on Twitter
[Image: 76561197965445574.png]
Please do not PM me for server related help
fqdn Wrote:if you've seen the any of the matrix movies, a game server is not all that different. it runs a version of the game that handles the entire world for each client connected. that's the 2 sentence explanation.
Reply
#7
Cool. Since this seems to be the historic thread for Steam ID Finders here's my submission. I created it primarily for estimating the age of private steam accounts. I play a lot of CS:GO and if a guy is suspicious AND has a new account I usually report them. So, here's my steam ID finder.

Reply
#8
For dota2 players I suggest to use this Steam Id Finder
Main feateres:
support steamid32 (account id you can get from dotabuff)
Simplicity
Reply
#9
I don't need that! I've got http://ihavenfi.net/steamid Smile
Jonas E. Smile
Reply


Forum Jump:


Users browsing this thread: 3 Guest(s)