Dump IP berdasarkan AsNumber

filename=dump-fb.rsc
addrlist=cidr_facebook
rm -rfv IP ASN "$filename";
echo "AS32934 FACEBOOK
AS54115 FACEBOOK
AS32934 FACEBOOK
" > ASN
echo > IP
echo -e '/ip firewall address-list\n add list="cidr_dump" address=0.0.0.1\n rem [find list="cidr_dump"]' > "$filename" ;
#apt-get -q -y install libnet-netmask-perl
clear
d=$(date +%H)
if [ $d -lt 12 ]
then
  echo -e " Met pagi Om,"
elif [ $d -lt 16 ]
then
   echo -e " Met siang om,"
elif [ $d -lt 20 ]
then
  echo -e " Sore om,"
else
  echo -e " Malem om,"
fi
echo -e ' Ini daftar AS Number yang akan di-dump :\n\n' ;
cat ASN;
echo -e ' Silahkan Tunggu...\n\n' ;
tail -f IP &
for ASN in $(cat ASN | awk '{print $1}');
do
{ whois -h whois.radb.net -- "-i origin $ASN" | grep '^route:' | perl -MNet::Netmask -ne'm!(\d+\.\d+\.\d+\.\d+/?\d*)! or next; $h = $1; $h =~ s/(\.0)+$//; $b=Net::Netmask->new($h); $b->storeNetblock(); END {print map {$_->base()."/".$_->bits()."\n"} cidrs2cidrs(dumpNetworkTable)}'; } >> IP
sleep 5
done
echo "";
echo -e '### ====== COPY DARI SINI ====== ###'
sort -V IP | uniq | awk '{print "add list=cidr_dump address=" $1}' >> "$filename"
echo -e '### ====== EOF ====== ###' >> "$filename"
sed -i '4d' "$filename"
cat "$filename"

Continue

Link Raptor Cache

https://github.com/raptorjs/raptor-cache
https://github.com/isunbejo/raptor-web-panel-admin-bahasa-indonesia/blob/master/raptor10b-r001.sh

Continue

script mikrotik cek pppoe status

Pekerjaan networking khususnya manage mikrotik tak selamanya harus di depan layar. Ada kalanya disiasati dengan menggunakan robot atau script. Sehingga saat saat kita tidak bisa monitor, selalu ada robot yang selalu setia menjalankan tugas sesuai kemauan kita pas kita tidak bisa handle. Kali ini saya akan bahas mengenai cek status pada pppoe (cocok banget sm pengguna indih*** nich, haha).
Baiklah, sebelumnya saya jelaskan apa maksud dari script di bawah ini.
Kasus :
default route ke ISP, google lempar ke indi**** dengan jalan di-mark-routing
ketika indihome putus alias pppoe-client diskonek maka script akan mendeteksi dan menjalankan perintah. Keunggulan script berikut ini tidak terus menerus menjalankan perintah, ada filter sehinga hanya menjalankan perintah saat kondisi diskonek saja. Selanjutnya silahkan kembangkan sendiri. Mari langsung saja scriptnya

/interface pppoe-client
   :global valuepppoe
   :local clientstatus
    monitor pppoe once do={:set clientstatus $status;:set valuepppoe $status}
   :if ($clientstatus !="connected") do={
      :log warning "status pppoe $clientstatus"
      /ip fire mangle enable [find comment="route-google"]
      :set valuepppoe diskonek
}
   :if ($clientstatus ="connected" && $valuepppoe="diskonek" ) do={
      :log warning "status pppoe $clientstatus"
      /ip fire mangle disable [find comment="route-google"]
      :set valuepppoe konek
}

yang saya tandai merah silahkan diganti sesuai nama pppoe-client yang anda buat.

Bila berhasil jangan lupa komen di bawah. terima kasih.

Continue

Dump AS-Number denga script

Langsung saja buat file terserah, jangan lupa install

apt-get -q -y install libnet-netmask-perl

kemudian buat file misalnya coba.sh

echo -n "as numbernya contoh AS55666    = "
read asnum
whois -h whois.radb.net -- -i origin $asnum| grep '^route:' | perl -MNet::Netmask -ne'm!(\d+\.\d+\.\d+\.\d+/?\d*)! or next; $h = $1; $h =~ s/(\.0)+$//; $b=Net::Netmask->new($h); $b->storeNetblock(); END {print map {$_->base()."/".$_->bits()."\n"} cidrs2cidrs(dumpNetworkTable)}' | awk '{print "/ip firewall address-list add list=cidr_tertentu address=" $1}';

kalau ingin multi AS Number bisa gunakan script berikut ini

rm -rfv IP ASN dump.rsc;
echo "AS58816 GARENAINDO
" > ASN
echo > IP
echo -e '/ip firewall address-list\n add list=cidr_dump address=0.0.0.1\n rem [find list="cidr_dump"]' > dump.rsc ;
#apt-get -q -y install libnet-netmask-perl
clear
d=$(date +%H)
if [ $d -lt 12 ]
then
  echo -e "     Met pagi Om,"
elif [ $d -lt 16 ]
then
   echo -e "    Met siang om,"
elif [ $d -lt 20 ]
then
  echo -e "     Sore om,"
else
  echo -e "     Malem om,"
fi
echo -e '       Ini daftar AS Number yang akan di-dump :\n\n' ;
cat ASN;
echo -e '       Silahkan Tunggu...\n\n' ;
tail -f IP &
for ASN in $(cat ASN | awk '{print $1}');
do
{ whois -h whois.radb.net -- "-i origin $ASN" | grep '^route:' | perl -MNet::Netmask -ne'm!(\d+\.\d+\.\d+\.\d+/?\d*)! or next; $h = $1; $h =~ s/(\.0)+$//; $b=Net::Netmask->new($h); $b->storeNetblock(); END {print map {$_->base()."/".$_->bits()."\n"} cidrs2cidrs(dumpNetworkTable)}'; } >> IP
sleep 5
done
cat IP | awk '{print "add list=cidr_dump address=" $1}' >> dump.rsc
echo -e '### ====== EOF ====== ###' >> dump.rsc
sed -i '4d' dump.rsc
cat dump.rsc

Continue

Smokeping Lighttpd

Berikut ini cara instalasi smokeping dengan lighttpd sebagai web servernya. Tentu Anda bertanya tanya mengapa menggunakan lighttpd ? Saya jawab simple aja, karena lebih ringan menggunakan lighttpd daripada apache. Langsung aja

apt-get install smokeping sendmail lighttpd php5 php5-cgi

pada file /etc/php5/cgi/php.ini ubah line berikut ini (aktifkan)

cgi.fix_pathinfo = 1

lalu pada /etc/lighttpd/lighttpd.conf ubah seperti berikut

server.modules = (
        "mod_access",
        "mod_alias",
        "mod_compress",
        "mod_redirect",
        "mod_cgi",
        "mod_fastcgi",
        "mod_accesslog",
#       "mod_rewrite",
)
server.document-root        = "/var/www/html"
server.upload-dirs          = ( "/var/cache/lighttpd/uploads" )
server.errorlog             = "/var/log/lighttpd/error.log"
server.pid-file             = "/var/run/lighttpd.pid"
server.username             = "www-data"
server.groupname            = "www-data"
server.port                 = 80
index-file.names            = ( "index.php", "index.html", "index.lighttpd.html" )
url.access-deny             = ( "~", ".inc" )
static-file.exclude-extensions = ( ".php", ".pl", ".fcgi" )
compress.cache-dir          = "/var/cache/lighttpd/compress/"
compress.filetype           = ( "application/javascript", "text/css", "text/html", "text/plain" )
# default listening port for IPv6 falls back to the IPv4 port
include_shell "/usr/share/lighttpd/use-ipv6.pl " + server.port
include_shell "/usr/share/lighttpd/create-mime.assign.pl"
include_shell "/usr/share/lighttpd/include-conf-enabled.pl"
dir-listing.activate        = "enable"
alias.url                  += ( "/cgi-bin/" => "/usr/lib/cgi-bin/",
                                "/ping" => "/usr/lib/cgi-bin/smokeping.cgi",
                                "/smokeping" => "/usr/share/smokeping/www" )
cgi.assign                  = ( ".pl"  => "/usr/bin/perl",
                               ".cgi" => "/usr/bin/perl",
                               ".rb"  => "/usr/bin/ruby",
                               ".erb" => "/usr/bin/eruby",
                               ".py"  => "/usr/bin/python",
                               ".php" => "/usr/bin/php-cgi" )

lalu restart /etc/init.d/lighttpd restart kemudian buka http://ip-smokeping/ping

Continue

Script Mikrotik Hotspot Quota Harian 1GB

Pemirsa, kali ini ada script untuk membuat limit harian 1GB dan setelah 30 hari akan diskonek pada hotspot mikrotik.

=== kuota 1GB per hari, expired 30 hari ===
on login script :
{
:local usernya $user;
:if ([/ip hotspot user find name=$usernya limit-bytes-total=1000000]="") do={/ip hotspot user set [find name=$usernya] limit-bytes-total=1000000};
:if ([/system schedule find name=$usernya]="") do={
/system schedule add name=$usernya interval=30d on-event="/ip hotspot user disable [find name=$usernya]\r\n/ip hotspot active remove [find user=$usernya]\r\n/system schedule remove [find name=$usernya-reset-counter]\r\n/system schedule remove [find name=$usernya]"
}
:if ([/system schedule find name="$usernya-reset-counter"]="") do={
/system schedule add name="$usernya-reset-counter" interval=1d on-event="/ip hotspot user reset-counter [find name=$usernya]"
}
}

Script diatas tambahkan pada hotspot on login script

Semoga bermanfaat.

Continue