Keskustelu: Ohjelmointikysymykset: VB6: VB ja virukset?

Pystyiskö Visual Basicilla tekemään viruksia omaan käyttööni. En tietenkään lähtisi sitä levittelemään, vain vähän pilailisin. Viruksen ominaisuuksiin kuuluisi formatointi taikka ihan jotain pientä taustan vaihto, cd-luukun avaus. Toivon teidän vastaavanne viestiin. Kiitos jo etuäteen...

No tottakai sillä pystyisi tekemään... tee vaikka sellainen, että sammuttaa koneen satunnaisesti...

Hmm... Koodia? Lähinnä formatointiin ja luukun avaukseen.

Tähän taisi olla jossain koodivinkkikin... Eli avaa CD-luukun.

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub Main()
    Dim CD As Long
    CD = mciSendString("Set CDAudio Door Open", "", 0, 0)
End Sub

Tuon voi laittaa kokonaan moduleen joten koko formia ei tarvi. Ja sulkevassa on melkein sama homma, vain sana "Open" pitää muuttaa "Closed"iksi.

~Sose~

mun mielestä toisen koneen formatointi on aika ilkeetä

SQ:han sanoi että omaan käyttöön...

Omaan käyttöön? Oman kovalevyn formatointiin? :)
Eikös suurin osa noistakin kaikista uusista "huippuviruksista" ole väänetty VB:llä ;|

Elikkä saisko sellasta autorunia kun laitan disketin sisään "virus" automaattisesti avaa CD aseman? Ja sulkee vaikka 5 sekunnnin päästä. Tai sekin olis hauskaa rupeis tulostamaan jotain.

ei mun mielest disketille saa autorunnia mut cdeelle saa

Ja jos puhut oikeista disketeistä, niin ei autorun onnistu. Pitää olla taustalla joku softa, mikä tarkistelee korppuaseman tilaa, ilman ääniä päästämättä, mikä taasen ei taida onnistua.. CD:n autorun toimii siten, että joku windows-palvelu tarkistelee puolen sekunnin välein jotain, taikka niin, että cd-aseman ajuri lähettää viestin kernelille cd-aseman luukusta..

tarvii vaa osata tehä autorun.inf tai joku semmonen ja siihen komennot ja siihenkin on ohjelmia olemassa

Noh ei voi mitään. Entäs tiettynä aikana se aktivoitus?

Vaikka 19.00

ei muokkaus onnistu vai?
yhdessä vb oppaassa on käsitelty aikojen käsittelyä (https://www.ohjelmointiputka.net/oppaat/opas.php?tunnus=vbpvm)

Ei onnistu ei.

En tiedä onnistuuko, mutta tarkista if:illä mikä päivä on ja mikä minuutti. Jos on tietty päivä ja tietty minuutti, avaa CD:asema...

lainaus:

Elikkä saisko sellasta autorunia kun laitan disketin sisään "virus" automaattisesti avaa CD aseman? Ja sulkee vaikka 5 sekunnnin päästä.

Autorunia ei saa tehtyä levykkeelle, vain CD:lle. Eikä se autorun toiminto mikään vaikea ole itsekään tehdä: tehdään vain CD:lle tiedosto AUTORUN.INF ja Windows osaa itse käynnistää tiedostossa määritellyn tiedoston olettaen että autorunia ei ole kytketty pois päältä Windowsin asetuksista

Autorun tiedosto on yleensä tämän näköinen tekstitiedosto (alla oleva on Windows XP:n CD:ltä löytyvä autorun.inf):

[AutoRun]
open=setup.exe
icon=setup.exe,0

edit: Ja tuon tiedoston pitää olla sitten CD:n juurihakemistossa.

Tuli tuosta autorun.inf-jutusta mieleen, että voi sen tehdä kiintolevyllekkin. Siten saa vaikka vaihdettua levyaseman kuvaketta (ainakin Win98:ssa). Jättää vaan tuon open-rivin pois. Jos open-rivin jättää, niin kiintolevyn kuvaketta kaksoisnapauttamalla käynnistyy määritelty ohjelma niin kuin CD-levyilläkin.

Joku aika sitten asiasta käytiin keskustelua ja joillekkin lähetinkin VB-lähdekoodit "viruksen" luomista varten. Kyseessähän ei ollut virus koska tartunta rutiineja ei ollut - ainoastaa satunnainen CD aseman availu, koneen jälleenkäynnistys, piippailu, hiiren näppäinten vaihto vasen kätisestä oikea kätiseen jne... eli oikeastaan pilaohjelma.

Siinä on älykäs ajastin, eli ns.WaitTimer, joka ei käytä resursseja lainkaan vaan aktivoituu automaattisesti tiettyyn aikaan. Ohjelma osaa piilottaa otsensä siten, ettei se näy missään prosessina.

Ei sulla olis sitä koodia?

Ois laita sähköpostilla osoitteesi niin kaivan sen sinulle - kuten kaikille muillekkin sanoin, se on kommentoimaton - ota itse selvää... takuuta ja tuotetukea en tarjoa ;)

Pistä mullekki jos kerkeet! vaikka oon ITELLE tehny tommosia aika paljo!

Äyh... ei tarvi laittaa sähköpostia - en muistanut, että täällähän näkyy nykyisin ne profiilissa ;)...

sace: Joo laitan sullekkin...

Hei antti oisin kiitollinen jos mullekin pistäisit sen maililla tulemaan =)

Antti, pistä ihmeessä mullekin! Ois kiva laittaa koulun koneelle... Exe:ä en tarvi. Kääntelen sitten ite, jos kääntelen.

~Sose~

Huom. kaikille jolle paketin lähetin.
Poistakaa kommentoitu kohta Sub Main'ista:

b = 1 'Int(Rnd(Now) * 7) + 1 ->
b = Int(Rnd(Now) * 7) + 1

Siinä oli pakoitettu toiminnonvalinta aina ykköiseksi. (joku demojuttu - unhoittunut)

Toivottavasti toimii

Antti: pistäs mullekkin:
hmantysaar@hotmail.com
Pelkkä lähdekoodi riittää...

Laitan koko koodin kommentoituna vinkkipalstalle - joudun vain siivoamaan koodia hieman... eiköhän se sinne ilmesty.

KILL *.*

Tollasen ohjelman pistää c-aseman juureen niin hyvin toimii, mutta jo pitää olla silleen että ohjelman sijainnilla ei ole mitään väliä, niin kokeile tätä (en ole varma toiminnasta):

KILL C:\*.*

Tuo nyt ei ole kovin tehokas tapa siivota tiedostoi.. tiedostot, jotka on prosessien käsiteltävänä eivät poistu suoraan, vaan taitaa lykätä erroria näytölle jos teet vaikka:

Kill C:\WINDOWS\USER.EXE

Jossain codeguru.com:ista löytyi Forcedel-niminen apuohjelma joka toimii vain uudemmissa windozeissa (NT, 2k, XP), ja pystyi poistamaan minkä tahansa fileen, oli se sitten prosessin alla tai ei..

Softa löytyy nyt koodivinkkinä nimellä pilailuohjelma:
https://www.ohjelmointiputka.net/koodivinkit/23787-vb6-pilailuohjelma

Lainattu Soselta:

lainaus:

Sub Main()
    Dim CD As Long
    CD = mciSendString("Set CDAudio Door Open", "", 0, 0)
End Sub

Vastaavasti CD-luukun sulkeminen: Korvaa yllä olevasta lainauksesta sana "Open" sanalla "Closed"... Näin muistelisin, en anna 100% takuuta.

Toimiva koodi API-funktio esittelyineen(Temen vinkistä se puuttuu...) löytyy pilailuohjelmasta.