bc-vnt

Cred ca este folositor blogu-l celor care vor sa invete . Visual Basic .NET | Free source code, tutorials and articles

M-am grabit si am uitat sa dau code , dupa cand am incercat sa-i dau cu edit code , nu merge sorry !

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 ]

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

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 .

@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 .

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

Sunt : IL FORUM DELLO SPAM - CIAO DAISUKE! In mare ce spune pe acel forum : Il cred un zeu , ii zic " ce forum crezi ca face pentru tine " in sensu ca il cred prea bun , bla bla

=))=))=))

Fa ce ai Zis , asta daca ai " spate "

e copy dupa un forum , nu-l pun pentru a nu face reclama , chiar daca e in italiana forumu' si nu var interesa sa faceti rev , dar asa ca chestie .

Welcome .

Publicitate ?

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 .

Adica ruleaza prostule ca eu nu-l folosesc sau cum , am incercat cu " COM 1-5 " daca nu a mers " pute " .

O fi , dar eu am incercat sa-i ajut pe cei carora le era " frica " sa-l ruleze Pune ru alt scan care ti se pare ok .

De curat e curat , dar nu merge .

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).

Florin Salam - Te iubesc din corason TV - YouTube Ha ha ha , Production !!

" Foca pe masa " face tot , in rest

CO2 pe bicicleta ))

Nu cred ca exista asa ceva , in caz ca trebuie sa il returneze celui care la trimis...