![[GUIDE] For wanna-be hackers LIKE projecthax and their scourge.](https://www.elitepvpers.com/forum/iconimages/sro-guides-templates/guide-wanna-hackers-like-projecthax-their-scourge_ltr.gif){kind=small}
First of all
In this topic, in Projecthax,
Anthony, a random noob moderator said:
________________________________________
So, DV3 sends your info to their server. By info I mean sro login. username/pass. Don't use it.
And then, WeeMan said:
Log packets and watch.
OK, First of all, he said that this PACKET is their Silkroad USERNAME and PASSWORD that is being sent to me; but, it actually ins't - so, flaming is the ONLY thing they can do.
THIS PACKET is their PROCESSOR ID, HD ID, WINDOWS PC ID.
So I want to help you guys from ProjectHax, and I will post here a source code, from MINIGUI, which is a standard software, that shows your processor ID - HD ID, WINID.
Here is the source code, some EPVPERS guy can compile it if they want, but from as far I know, Projecthax won't have skills to compile it, so I will post the EXE in the end of the file.
Thanks.
/*
* MiniGUI WMI Service Demo
*
* (c) 2008 Grigory Filatov <
>*/
#include "minigui.ch"
Procedure Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'WMI Service Demo' ;
MAIN ;
ON INTERACTIVECLOSE MsgYesNo ( 'Are You Sure ?', 'Exit' )
DEFINE BUTTON Button_1
ROW 10
COL 10
WIDTH 120
CAPTION 'Processor Info'
ACTION ProcessorInfo()
END BUTTON
DEFINE BUTTON Button_2
ROW 40
COL 10
WIDTH 120
CAPTION 'Disk Drive Info'
ACTION DiskDriveInfo()
END BUTTON
DEFINE BUTTON Button_3
ROW 70
COL 10
WIDTH 120
CAPTION 'Logical Disk Info'
ACTION LogicalDiskInfo()
END BUTTON
DEFINE BUTTON Button_4
ROW 100
COL 10
WIDTH 120
CAPTION 'Physical Media Info'
ACTION PhysicalMediaInfo()
END BUTTON
DEFINE BUTTON Button_5
ROW 130
COL 10
WIDTH 120
CAPTION 'Cancel'
ACTION ThisWindow.Release
END BUTTON
END WINDOW
Form_1.Button_4.Enabled := IsWinNT()
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
*--------------------------------------------------------*
#translate IFNOTCHAR( <exp1>,<exp2> ) ;
=> ;
IF( VALTYPE( <exp1> ) != "C",<exp2>,<exp1> )
#define IS_DATE(x) (VALTYPE(x) == "D")
#define IS_LOGICAL(x) (VALTYPE(x) == "L")
#define IS_NUMERIC(x) (VALTYPE(x) == "N")
#define CASE_AT(x,y,z) z[AT(x,y)+1]
#define TRIM_NUMBER(x) LTRIM(STR(x))
#define NULL ""
#define XTOC(x) CASE_AT(VALTYPE(x), "CNDLM", ;
{ NULL, ;
x, ;
IF(IS_NUMERIC(x),;
TRIM_NUMBER(x), ;
NULL), ;
IF(IS_DATE(x),DTOC(x),NULL),;
IF(IS_LOGICAL(x),;
IF(x,".T.",".F."), ;
NULL), ;
x })
*--------------------------------------------------------*
FUNCTION ProcessorInfo()
Local oWmi, oProc
Local cInfo := ""
oWmi := WmiService()
FOR EACH oProc IN oWmi:ExecQuery( "SELECT * FROM Win32_Processor" )
cInfo := ""
cInfo += "Manufacturer: " + oProc:Manufacturer + CRLF
cInfo += "Model: " + oProc:Name + CRLF
cInfo += "Description: " + oProc
escription + CRLFcInfo += "Speed: " + TRIM_NUMBER( oProc:CurrentClockSpeed ) + " MHz" + CRLF
cInfo += "ID: " + oProc:ProcessorID
MsgInfo( cInfo, oProc
eviceID )NEXT
Return nil
FUNCTION DiskDriveInfo()
Local oWmi, oDrive
Local cInfo := ""
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( "SELECT * FROM Win32_DiskDrive" )
cInfo += "Model: " + oDrive:Model + CRLF
cInfo += "Name: " + STRTRAN(oDrive:Name, "\\.\", "" ) + CRLF
if IsWinNT()
cInfo += "Signature: " + IF( IS_NUMERIC(oDrive:Signature), LTRIM( STR( Abs( oDrive:Signature ), 20, 0 ) ), "N/A" ) + CRLF
endif
cInfo += CRLF
NEXT
MsgInfo( cInfo, "Result" )
Return nil
FUNCTION LogicalDiskInfo()
Local oWmi, oDrive, cSerialNumber
Local cInfo := ""
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( "SELECT * FROM Win32_LogicalDisk" )
cSerialNumber := XTOC( oDrive:VolumeSerialNumber )
cInfo += "Volume: " + oDrive:Name + " Serial Number: " + IFEMPTY( cSerialNumber, "N/A", cSerialNumber ) + CRLF
NEXT
MsgInfo( cInfo, "Result" )
Return nil
FUNCTION PhysicalMediaInfo()
Local oWmi, oDrive
Local cInfo := ""
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( "SELECT * FROM Win32_PhysicalMedia" )
cInfo := "Serial: " + IfNotChar( oDrive:SerialNumber, "N/A" )
MsgInfo( cInfo, IfNotChar( STRTRAN( oDrive:Tag, "\\.\", "" ), "N/A" ) )
NEXT
Return nil
STATIC FUNCTION WMIService()
Static oWMI
Local oLocator
if oWMI == NIL
oLocator := CreateObject( "wbemScripting.SwbemLocator" )
oWMI := oLocator:ConnectServer()
endif
Return oWMI
Thanks, from - Forbannet.
First of all, those guys didn't saw that even if they log diferent accounts in teh same computer, the packet stills the same;
All they want to know is just FLAME and FLAME.
You guys are a bunch of noobs;
Não chegam nem aos meus pés, imagina do clockwork, deve ser por causa disso que eles, 0x, não falaram merda de mim, e vocês sim.
MORRAM NOOBS.
xD
Forbannet is honest and wouldn't make any keyloggers or pw stealers!
