mirc-scripts.is74 || IRC RusNet

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » mirc-scripts.is74 || IRC RusNet » Scripts » Распространённые IRC скрипты

Распространённые IRC скрипты

Страница: 1

Сообщений 1 страница 8 из 8

1

  • Автор: BloodJack
  • Администратор
  • BloodJack
  • Откуда: Russia, Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 11
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    22 минуты
  • Последний визит:
    2009-06-29 18:27:10

Сюда кладём наиболее распространённые скрипты "away" и т.п.
P.S.: если мной будет обнаружен скрытый троян в коде выложенного скрипта, вам придётся туго ..

0

2

  • Автор: blbl
  • Я за вами наблюдаю!
  • blbl
  • Откуда: Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    41 минуту
  • Последний визит:
    2009-07-11 22:06:16

скрипт шифровки\расшифровки сообщений через ключ. пример: //echo -a $enc(mircscriptsis74,hello) получаем 050C1E0F1C0B17051C1B1B0C1F5B5B и так же наоборот.
alias enc {
  var %s, %i 1, %n $len($$1), %m $len($$2)
  var %k $str($2,$ceil($calc(%n / %m)))
  var %m $len(%k)
  while (%i <= %n) {
    %s = %s $+ $base($xor($asc($mid($1,%i,1)),$asc($mid(%k,%i,1)) % %m),10,16,2)
    inc %i
  }
  return %s
}

alias dec {
  var %s, %i 1, %n $calc($len($$1) / 2), %m $len($$2)
  var %k $str($2,$ceil($calc(%n / %m)))
  var %m $len(%k)
  while (%i <= %n) {
    %s = %s $xor($base($mid($1,$calc(%i * 2 - 1),2),16,10),$asc($mid(%k,%i,1)) % %m)
    inc %i
  }
  bset &ret 1 %s
  return $bvar(&ret,1,%n).text
}

0

3

  • Автор: blbl
  • Я за вами наблюдаю!
  • blbl
  • Откуда: Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    41 минуту
  • Последний визит:
    2009-07-11 22:06:16

баним юзера с определенным ником.
on *:JOIN:*: { if ($nick == ник) { mode $chan +b $address($nick,2) | kick $chan $nick пашолнах! } }

0

4

  • Автор: BloodJack
  • Администратор
  • BloodJack
  • Откуда: Russia, Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 11
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    22 минуты
  • Последний визит:
    2009-06-29 18:27:10

зачот темка ;)

0

5

  • Автор: BloodJack
  • Администратор
  • BloodJack
  • Откуда: Russia, Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 11
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    22 минуты
  • Последний визит:
    2009-06-29 18:27:10

Конвертер раскладки eng\rus

В скрипты вписываем:

alias enru { editbox -a $replacecs($editbox($active),.,ю,$chr(44),б,q,й,w,ц,e,у,r,к,t,е,y,н,u,г,i,ш,o,щ,p,з,[,х,],ъ,a,ф,s,ы,d,в,f,а,g,п,h,р,j,о,k,л,l,д,;,ж,',э,z,я,x,ч,c,с,v,м,b,и,n,т,m,ь,.,ю,Q,Й,W,Ц,E,У,R,К,T,Е,Y,Н,U,Г,I,Ш,O,Щ,P,З,[,Х,A,Ф,S,Ы,D,В,F,А,G,П,H,Р,J,О,K,Л,L,Д,:,Ж,",Э,Z,Я,X,Ч,C,С,V,М,B,И,N,Т,<,Б,>,Ю,&,?,^,:,/,.,`,ё,$,;,",@,№,#) }
alias ruen { editbox -a $replacecs($editbox($active),.,/,б,$chr(44),й,q,ц,w,у,e,к,r,е,t,н,y,г,u,ш,i,щ,o,з,p,х,[,ъ,],ф,a,ы,s,в,d,а,f,п,g,р,h,о,j,л,k,д,l,ж,;,э,',я,z,ч,x,с,c,м,v,и,b,т,n,ь,m,ю,.,Й,Q,Ц,W,У,E,К,R,Е,T,Н,Y,Г,U,Ш,I,Щ,O,З,P,Ф,A,Ы,S,В,D,А,F,П,G,Р,H,О,J,Л,K,Д,L,Ж,:,Э,",Я,Z,Ч,X,С,C,М,V,И,B,Т,N,Ь,M,Б,<,Ю,>,?,&,:,^,ё,`,;,$,@,",#,№) }

В алиасы вписываем:
f9 /enru
f10 /ruen

P.S.: вместо f9\f10 мона чонеть другое .. :D

0

6

  • Автор: blbl
  • Я за вами наблюдаю!
  • blbl
  • Откуда: Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    41 минуту
  • Последний визит:
    2009-07-11 22:06:16

Поиск в google и yandex с проверками. например: /sgoogle проверка, и мы попадем на страницу http://www.google.ru/search?source=ig&amp;hl=ru&amp;rlz=&amp;q=&amp;meta=lr=&amp;aq=f
для удобства, можно использовать меню:
.Поисковики
..Google: set %gpoisk $$?="Введите запрос" | sgoogle %gpoisk | unset %gpoisk
..Yandex: set %ypoisk $$?="Введите запрос" | syandex %ypoisk | unset %ypoisk

alias sgoogle {
  if $1 isnum { echo -a sgoogle: it's number,said some text | return }
  if $1 == $null { echo -a sgoogle: you don't write something! | return }
  if ($1 != $null) && ($2 != $null) { run http://www.google.ru/search?source=ig&a … lz=&q= $+ $1 $2 $+ &meta=lr%3D&aq=f | return }
  if ($1 != $null) && ($2 != $null) && ($3 != $null) { run http://www.google.ru/search?source=ig&a … lz=&q= $+ $1 $2 $3 $+ &meta=lr%3D&aq=f | return }
  if ($1 != $null) && ($2 != $null) && ($3 != $null) && ($4 != $null) { run http://www.google.ru/search?source=ig&a … lz=&q= $+ $1 $2 $3 $4 $+ &meta=lr%3D&aq=f | return }
  if ($1 != $null) && ($2 != $null) && (3$ != $null) && ($4 != $null) && ($5 != $null) { run http://www.google.ru/search?source=ig&a … lz=&q= $+ $1 $2 $3 $4 $5 $+ &meta=lr%3D&aq=f | return }
  if ($6 != $null) { echo -a sgoogle: too many words! maximum 5! | return }
run http://www.google.ru/search?source=ig&a … lz=&q= $+ $1 $+ &meta=lr%3D&aq=f }

alias syandex {
  if $1 isnum { echo -a syandex: it's number,said some text | return }
  if $1 == $null { echo -a syandex: you don't write something! | return }
  if $1 != $null && $2 != $null { run http://yandex.ru/yandsearch?rpt=rad&text= $+ $1 $2 | return }
  if ($1 != $null) && ($2 != $null) && ($3 != $null) { run http://yandex.ru/yandsearch?rpt=rad&text= $+ $1 $2 $3 | return }
  if ($1 != $null) && ($2 != $null) && ($3 != $null) && ($4 != $null) { run http://yandex.ru/yandsearch?rpt=rad&text= $+ $1 $2 $3 $4 | return }
  if ($1 != $null) && ($2 != $null) && (3$ != $null) && ($4 != $null) && ($5 != $null) { run http://yandex.ru/yandsearch?rpt=rad&text= $+ $1 $2 $3 $4 $5 | return }
  if ($6 != $null) { echo -a syandex: too many words! maximum 5! | return }
run http://yandex.ru/yandsearch?rpt=rad&text= $+ $1 }

0

7

  • Автор: blbl
  • Я за вами наблюдаю!
  • blbl
  • Откуда: Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    41 минуту
  • Последний визит:
    2009-07-11 22:06:16

обнуление вашего молчания каждые 60 секунд, то есть дольше 60 секунд вы никогда не молчите

alias -l _unset-idle { if $status == connected { set %idle 1 | msg $me 1 | .timeridle 1 60 _unset-idle } }
on *:START: { if !$timer(idle) { .timeridle 1 60 _unset-idle } }
on *:CONNECT: { .timeridle 1 60 _unset-idle }
on *:OPEN:?:*: { if %idle { closemsg $nick | unset %idle } }

0

8

  • Автор: blbl
  • Я за вами наблюдаю!
  • blbl
  • Откуда: Челябинск
  • Зарегистрирован: 2009-06-13
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    41 минуту
  • Последний визит:
    2009-07-11 22:06:16

при отправки whois, показывает дополнительную строку с одинаковыми каналами вас и юзера.

raw 312:*: { var %i = 1, %c | while %i <= $comchan($2,0) { set %c %c $comchan($2,%i) | inc %i } | echo -a $2 common channels ( $+ $comchan($2,0) $+ ): $iif(%c,%c,none) }

0

Страница: 1

Вы здесь » mirc-scripts.is74 || IRC RusNet » Scripts » Распространённые IRC скрипты

Рейтинг форумов | Создать форум бесплатно