Забывчивым админам и простым пользователям ПК :), ещё один вариант на околокомпьютерную тематику, навеянный информационной безопасностью |
||
| Наши проекты: | Журнал · Discuz!ML · Алгоритмы · Естественные науки · Wiki · DRKB · Помощь проекту | |
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [35.170.81.210] |
|
|
Короче, правила и никаких гвоздейДа здравствует всяк сюда входящий.
Этот раздел - единственное место на форуме, где можно поделиться не только
"сугубо программным" творчеством.
У многих имеется масса различных увлечений, поэтому этот раздел для вас.
Поделитесь с другими форумчанами фотографиями, графическими, музыкальными
работами, собственными литературными произведениями, даже если они всего из 4 строк...
Но хочу напомнить, что на раздел распространяются все
правила форума, а также просьба выполнять следующие требования:
- не выкладывать чужое творчество под своим именем (лучше вообще его не касаться)
- не создавать креативы наподобие пресловутого удаффа
- не уходить от темы при обсуждении темы
- по возможности пользоваться хостингом изображений и оставлять ссылки или превью.
С уважением, Дата, подпись.
Этот раздел - единственное место на форуме, где можно поделиться не только
"сугубо программным" творчеством.
У многих имеется масса различных увлечений, поэтому этот раздел для вас.
Поделитесь с другими форумчанами фотографиями, графическими, музыкальными
работами, собственными литературными произведениями, даже если они всего из 4 строк...
Но хочу напомнить, что на раздел распространяются все
правила форума, а также просьба выполнять следующие требования:
- не выкладывать чужое творчество под своим именем (лучше вообще его не касаться)
- не создавать креативы наподобие пресловутого удаффа
- не уходить от темы при обсуждении темы
- по возможности пользоваться хостингом изображений и оставлять ссылки или превью.
С уважением, Дата, подпись.
Забывчивым админам и простым пользователям ПК :), ещё один вариант на околокомпьютерную тематику, навеянный информационной безопасностью|
Сообщ. #1,
|
|
|
|
Прикреплённая картинка
ещё варианты на белом фонеПрикреплённая картинка
ещё варианты на чёрном фонеПрикреплённая картинка
ещё варианты на прозрачном фонеКод формирования всего этого безобразия средствами ImageMagick и VBScript 8)   Dim Img Symbols = "qwertyuiop[]asdfghjkl;zxcvbnm,./1234567890-=!@#$%^&*()_+QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?" Repeat = 30 FontS=48 MX=1575 MY=2205 Al=9 PSWDLen = 12 FName = "bground.png" Set Img = CreateObject("ImageMagickObject.MagickImage") DarkBGround=1 BGround="black" For FileN=0 To 9 Randomize FName = BGround&FileN&".png" Ret = Img.Convert("-size", MX&"X"&MY, "xc:"&BGround, FName) For FormN = 0 To 2 Call FormOne(Repeat, FontS+10*FormN, Al-2*FormN, PSWDLen-2*FormN) Next Next rem -------------------- Function GenPass( ByVal Plen) Pass = "" MLen = Len( Symbols ) Do While Plen > 0 Plen = Plen - 1 Pass=Pass&Mid(Symbols,1+Int(Rnd*MLen),1) Loop GenPass=Pass End Function rem -------------------- Sub FormOne( ByVal Rep, ByVal FS, ByVal Al, ByVal PSWlen ) Do While Rep > 0 Text="font-size "&FS&" rotate "&Rnd*50-25&" text "&Rnd*MX-MX/2&","&Rnd*MY-MY/2&" '"&GenPass(PSWlen)&"'" if DarkBGround > 0 Then If Rnd > Al/20 then R = 255 else R = 0 end if If Rnd > Al/20 then G = 255 else G = 0 end if If Rnd > Al/20 then B = 255 else B = 0 end if else If Rnd > Al/20 then R = 0 else R = 200 end if If Rnd > Al/20 then G = 0 else G = 200 end if If Rnd > Al/20 then B = 0 else B = 200 end if end if Ret = Img.Convert( FName, "-fill","rgba("&R&","&G&","&B&",0."&Al&")","-gravity","Center", "-draw", Text, FName) Rep = Rep - 1 Loop End Sub Все листы (3x10 шт.) и скрипт — одним файлом |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script Execution time: 0,1328 ] [ 20 queries used ] [ Generated: 8.12.19, 08:38 GMT ]