Breadcrumbs

[Bloodz_Ninja]

i will release multiple software here!!

MD5 Encryptor:

Requirements:
1 Button = Encrypt
2 Text Boxes

Click on encrypt and replace all the codes with

Code: Select all

 Public Class Form1
    Public Shared Function MD5(ByVal Text As String, Optional ByVal Seperator As String = Nothing) As String
        Dim Hash As Byte()
        Dim Encoder As New System.Text.UTF8Encoding()
        Dim Hasher As New System.Security.Cryptography.MD5CryptoServiceProvider()
        Hash = Hasher.ComputeHash(Encoder.GetBytes(Text))
        Text = Replace(BitConverter.ToString(Hash), "-", Seperator)
        Return Text
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = MD5(TextBox1.Text)
    End Sub
End Class

Port Scanner:

Requirements:
2 Text box
2 numericupdown
and a button= Scan

Now double click on scan.. and of course replace with following codes

Code: Select all

Imports System.Net.Sockets
Imports System.Net

Public Class Form1

    Private Sub btnScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScan.Click
        Me.CheckForIllegalCrossThreadCalls = False
        For i As Integer = nudStart.Value To nudStop.Value
            Dim tmpThread As New System.Threading.Thread(AddressOf ScanPort)
            tmpThread.IsBackground = True
            tmpThread.Start(i) 'i represents the current port
        Next
    End Sub

    Private Sub PortScan(ByVal port As Integer)
        Try

        Catch ex As Exception
            Dim tmpClient As New TcpClient()
            Dim tmpEndPoint As New IPEndPoint(IPAddress.Parse(TextBox1.Text), port)
            tmpClient.Connect(tmpEndPoint)
            Threading.Thread.Sleep(50) '50 is the timeout ms
            If tmpClient.Connected = True Then
                lbPorts.Items.Add("Open Port: " & port)
            End If
        End Try  
    End Sub
End Class

Text To binary Converter:

Requirements:
2 Textbox
2 Buttons= button 1 - Text To Binary button 2 - Binary to Text

Now enter the following codes:

Code: Select all

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Val As String = Nothing
        Dim Result As New System.Text.StringBuilder
        For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
            Result.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
            Result.Append(" ")
        Next
        Val = Result.ToString.Substring(0, Result.ToString.Length - 1)
        TextBox2.Text = Val
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Val As String = Nothing
        Dim Characters As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^01]", "")
        Dim ByteArray((Characters.Length / 8) - 1) As Byte
        For Index As Integer = 0 To ByteArray.Length - 1
            ByteArray(Index) = Convert.ToByte(Characters.Substring(Index * 8, 8), 2)
        Next
        Val = System.Text.ASCIIEncoding.ASCII.GetString(ByteArray)
        TextBox2.Text = Val
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

This is part 1
i have many more to come

[pip]

Here is my opinion these have been released on youtube many times and other sites, so with that being said the credit price is to high for anyone to dl this especially when there is already like 500 of each of these. other than that i guess thanks for reposting more :shock:

[Shim]

nice tutorial man keep it up

[Bloodz_Ninja]

nice tutorial man keep it up

thanks
cooll;

Here is my opinion these have been released on youtube many times and other sites, so with that being said the credit price is to high for anyone to dl this especially when there is already like 500 of each of these. other than that i guess thanks for reposting more :shock:

my bad bro, how do i lower the price? idoit;

[pip]

nice tutorial man keep it up

thanks
cooll;

Here is my opinion these have been released on youtube many times and other sites, so with that being said the credit price is to high for anyone to dl this especially when there is already like 500 of each of these. other than that i guess thanks for reposting more :shock:

my bad bro, how do i lower the price? idoit;

on the posti is is changeable you click it in edit or something hard to say unless i actually am doing it lol

[Bloodz_Ninja]

nice tutorial man keep it up

thanks
cooll;

Here is my opinion these have been released on youtube many times and other sites, so with that being said the credit price is to high for anyone to dl this especially when there is already like 500 of each of these. other than that i guess thanks for reposting more :shock:

my bad bro, how do i lower the price? idoit;

on the posti is is changeable you click it in edit or something hard to say unless i actually am doing it lol

i lowered the price cooll;

[Livengood]

I agree with pip, but great tutorials. Great for some new members!

[Guy Fawkes]

great tutorial brother, i like these wahooo; helps alot

[Filip]

great tutorial brother, i like these wahooo; helps alot

Hello,

Please read rules here: viewtopic.php?f=120&t=454

Use reputation system for short thanks posts please!