• 8 odgovora
  • 5.031 pregleda
VB revenge rutine 04.06.2002. u 16:57 · pre 296 meseci #1
Radim na jednom projektu u VB a zove se revenge, sami mislim da znate što bi program trebao da radi.

Trebam VB subrutine kako bi što se da dobro pošalio sa ostalim "lamerima"

Što se tiče subrotina trebaju da budu win9x/NT/2000 kompatibilne.
A evo malo primjera što več imam :

Listanje aplikacija
kill aplikacije (nonsystem i stvarno nepotrebne, recimo koji notepad il slično)
run random aplikacije
reboot/shutdown/logoff
desktop remover/theme sampler
CDR/DVD drive open/close
app as system service, hide app in task manager (win95 only, radim na kodu za nt i 2000)
mouse config (doubleclick, pointers, hide ...)
playing random wav,CD ....
zaštita kod kill programa u task manager-u (nemuguče killati)
deaktivacija/aktivacija uz pomoč posebne kode (encrypt/decrypt) i load original parameeter settings kod deaktivacije ...
Browser revenge (startup page, oblika ....)
Clipboard messing
pasting & copyiing problems ....
System messages
"remote-control ???" - aka BO (možda ako bude cool - Hm dobra je fora i za backdor,trojans enablere ...)

Annoy other programs (Office, AV,FW, Irc, ... messengera, skripti, makroji ...) - Tu je stvarno veliko mogučnosti !!!
Change registry settings ....

Dobro bi bilo ako ima tko koju dobru subrutinicu ili linkove !!! za ovakava annoying proggy neka postuje ( ali samo u VB5 ili 6 !!) !!!

Hvala več unaprijed
Potpis
Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."
Re: VB revenge rutine 08.06.2002. u 09:00 · pre 296 meseci #2
Ma šta je to VB-ovci, nitko nezna ni jednu rutinicu da napiše ???
Potpis
Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."
Re: VB revenge rutine 09.06.2002. u 10:23 · pre 296 meseci #4
Gledajuci ovo mislim da imas sve sto ti treba da se s nekim doobro posalis. Ne vidim sta bi jos moglo.
Potpis
Fear not the dark within this night
Beneath the sky of deadly light
Of raging fire seen from afar
The fear inside of who you are
Re: VB revenge rutine 09.06.2002. u 14:23 · pre 296 meseci #5
Upravo mi je palo na pamet, ustvari i nije mi bas palo ali me je mnogo iznerviralo. Sto ne napravis nesto sto ce da prikazuje non stop reklame. Ne znam da li trebam da ti pisem subrutinu jer to i nije nesto preterano tesko jedino da nadjes dobar izbor reklama na netu i da ih konstatno menjas:)) Ne znam za druge ali mene bi to mnogo nerviralo. Vise nego da mi neko izbrise ceo sadrzaj HD!
Potpis
Fear not the dark within this night
Beneath the sky of deadly light
Of raging fire seen from afar
The fear inside of who you are
Re: VB revenge rutine 09.06.2002. u 23:35 · pre 296 meseci #6
Hm, dobro ovo sa reklamama .. ali još uvijek ...

a što se tiče procedura možeti i sami uklopiti bilo koju, možda i koju koja je več uključena u gornji izbor ...
Potpis
Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."
Re: VB revenge rutine 10.06.2002. u 02:16 · pre 296 meseci #7
'Mozes napr. postaviti da prilikom otvaranja bilo kog ili odredjenog
'programa trazis nesto(InputBox da upise "Neko me zajebava")
'i da tek nakon toga otvori program
'Ovo je primjer da zapise u .txt file kada i koji program je otvoran
'i da se potom sam zatvori
Code:
Private Sub Form_Load()
If Command$ <> "" Then
Open "c:\spijun.txt" For Append As #1
Print #1, Command$ & " " & CStr(Now)
Close #1
Call Shell(Command$, vbNormalFocus)
End If
End
End Sub

'Naravno ovo moras promijeniti u Registry
Code:
'HKEY_CLASSES_ROOT\exefile\shell\open\command to: "C:\spijun.exe" "%1" %*


Marko_L : Dodati code tagovi

[Ovu poruku je menjao Marko_L dana 17.06.2005. u 23:02 GMT+1]
Re: VB revenge rutine 10.06.2002. u 06:29 · pre 296 meseci #8
Pa to je baš ono šta sam htio !!!
Bravo !!!

Baš ti dobra fora !
A to ču napraviti tako, kao da je datoteka več otvorena i rezervirana za nekog usera, to če naravno biti random event i neče "upaliti" svaki put kad bude tko otvarao različite tipove dokumenata (*.txt, *.doc, *.exe ...)

Sad sam se sjetio još nešto, u win98 i starima Office-u, normal.dot je u istom direktoriju kao i word pod \template, a u novijem u $Documents and Settings$$User$Application DataMicrosoftTemplates, znači treba napisati i rutinu za pregled usera (NT,2000,XP), pregled "Settings Dir-a", koja mislim neče raditi problema ...

A napravit ču i datoteku, koja če uz pravilan ključ sama deinstalirati program (setup programa neče biti) i vratiti prijašnje stanje.

Baš ti hvala na ovome postu !!

Zna li tko kako dodati koji makro u normal.dot, a zna se uz pomoč kode, disablanje macro-security-a ili slične stvari. Dali AutoExec, AutoOpen i ostale rutine još rade u novim verzijama Office-a ?

Dobio sam i novu ideju, kako da napravim ovaj program kao worm/virii aplikaciju ?
Dali znate kako naprimjer Hotmail Messanger dodaje e-mail adresse u recimo Outlook Express ili kako se može mijenjati WAB e-mail account settingsi (koda) !!

Working on it now ...
Potpis
Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."
Re: VB revenge rutine 11.06.2002. u 02:53 · pre 296 meseci #9
Mozda bi bilo "pederski" da ostavis, recimo, program aktivan i da timerom
kontrolises dali postoji aktivna konekcija na internet.
U pozitivnom slucaju aktiviras drugi timer, sa intervalom(napr. 20 min)koji
ce poslati MsgBox "Vec si 20 min. na internetu. Znas li ti koliko to kosta?"
i da prekines vezu i iskljucis Timer2.
Stime nebi mogao provesti vise od 20 min. (ili <>) konektovan na internet.
Ako te interesuje da te neko ubije :-) mogu ti postaviti neko resenje.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme