Jump to content

bc-vnt

Active Members
 View Profile  See their activity

  • Posts

    595

  • Joined

  • Last visited

  • Days Won

    4

 Content Type 

Posts posted by bc-vnt

  3. MD5 Encrypter VB.NET for beginners + source code

    in Programe hacking

    Posted · Edited by Nytro

    Download : MD5 Encrypt.exe download - 2shared

    Imports System
    Imports System.Net
    Imports System.Text
    Imports System.Security
    Imports System.Security.Cryptography
    Public Class Form1

    Public Function MD5(ByVal Source) As String

        Dim Bytes() As Byte = ASCIIEncoding.ASCII.GetBytes(Source)
        Dim md5h As New MD5CryptoServiceProvider
        Dim Byt() As Byte = md5h.ComputeHash(Bytes)
        Dim I As Integer = (Byt.Length * 2 + Byt(Byt.Length / 8))
        Dim StrBuild As StringBuilder = New StringBuilder(I)
        Dim i2 As Integer

        For i2 = 0 To Byt.Length - 1
            StrBuild.Append(BitConverter.ToString(Byt, i2, 1))
        Next i2

        Return StrBuild.ToString().TrimEnd(New Char() {" "c}).ToLower

    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtMD5.Text = MD5(txtConvert.Text)
    End Sub

    Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
        txtMD5.Text = MD5(txtConvert.Text)
    End Sub

    Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
        Clipboard.SetDataObject(txtMD5.Text)
    End Sub

    End Class

    Sursa : Guida Creare un Encriptatore MD5 [ vb.net ]

  4. Port Scanner VB.NET + souce code for beginners

    in Programe hacking

    Posted · Edited by bc-vnt

    Download : WindowsApplication1.exe download - 2shared

    Imports System.Net.Sockets
    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Timer1.Start()
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Timer1.Stop()
        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            ListBox1.Items.Clear()
        End Sub

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            TextBox1.Text += 1
            Try
                Dim Range As TcpClient = New TcpClient(TextBox2.Text, TextBox1.Text)
                If Range.Connected = True Then
                    ListBox1.Items.Add(TextBox1.Text & "Is open")
                End If
            Catch ex As Exception
                ListBox1.Items.Add(TextBox1.Text & "Is close")
                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
            End Try

        End Sub
    End Class

    Am facut ceva si cu " Try " , cum mi-a sugerat @dariusmare

    https://rstcenter.com/forum/57134-spammer-source-code-4-begginers.rst

  5. Spammer + source code 4 begginers

    in Programe hacking

    Posted

    Bravo, esti primu care a inventat spammerul.

    Ce mai spammer, probabil ca e destul de usor sa convingi victima sa-l ruleze, sa zicem ca ai putea face asa ceva cu un java drive-by, dar stai, ca mai trebuie sa fie si activat. Am mai vazut genul de program pe HF, un idiot a postat un MessageBox Generator, adica afisa intr-un messagebox textul ce il scriai tu intr-un textbox. Sunt sigur ca acel program cum e si acesta imi vor fi utile pana la sfarsitul vietii.

    Meriti 1 os !

    WTF bwa -- @@chioara3 , SilviuSDS : Nu l-am up special pentru voi ... presupun ca sunteti uni din aia " nascuti invatati " am pus pentru ca deabea invat , cred ca si voi ati fost la fel la inceput + ca va fi de ajutor si altora care vor sa invete , dar cum voi sunteti MARII INVATATI ce sa va cer .

  6. Spammer + source code 4 begginers

    in Programe hacking

    Posted

    De unde veniti frate :| programe pentru spam se fac intr-un minut

    Lasa-i tata sa invete )

    @bc-vnt man poti adauga in titlu sau in descriere ca e Visual Basic.NET ca sa arate la search on google . Bravo, e bun pentru inceput, dar mai ai multe de invatat, cum ar fi sa pui mai multe Try ca sa nu iti dea errori, sa folosesti labeluri mai des, in rest, mi-a placut cum ai aranjat butoanele si textboxurile. Daca vrei poti continua proiectul sa il faci mai advanced. Daca ai cumva nevoie de ajutor trimite-mi pm si te voi ajuta cu placere, deoarece eu stapanesc destul de bine VB.NET.

    LE. Apropo, l-am puricat eu, de plictiseala , si e clean. Luati-l cu incredere.

    :|

    @Hotspot - Eu sunt la inceput in domeniu + ca acum ceva timp am vazut un topic de la un user " de ce nu este o particica pe forum pentru incepatori ", ok m-am gandit ca ar fi ok sa fac ceea ce invat pentru inceput si sa si arat altora care vor sa invete .

    @dariusmare - 10x man , daca intampin vreo problema sa fi sigur ca voi apela , momentan incerc sa fac tot ce imi sta in putinta sa invat singur .

  7. Spammer + source code 4 begginers

    in Programe hacking

    Posted · Edited by bc-vnt

    Download : http://www.2shared.com/complete/2qAD2UgT/Spammer.html

    VB.NET

    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
            Timer1.Interval = TextBox2.Text
            Timer1.Enabled = True
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Timer1.Interval = TextBox2.Text
            Timer1.Enabled = False
        End Sub

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            SendKeys.Send(TextBox1.Text)
            SendKeys.Send("{enter}")
        End Sub
    End Class

  14. Rds

    in Off-topic

    Posted

    am si eu o experienta in " domeniu' " asta de vreo 3-4 luni cam asa nu-mi mai aduc exact aminte , nu e mare chestie ,dar nici nu stateam pe net non-stop , in jur de 4-6 ore/ zii , nu s-a intamplat nimic .

  19. Contestatie proces verbal radar

    in Off-topic

    Posted

    este doar un amarat de proces verbal , din proprie experienta iti zic " nu intra in panica , nu are rost sa faci contestatie deoarece poti ajunge mai departe si nu o sa-ti placa , mai bine semneaza pentru el si data viitoare fi mai atent la bord .

    P.S - e Cuvantu' tau contra a lui ( gadeste).

×
×
  • Create New...