Live is Journey

Block URL di Windows XP

Posted in Ilmu Komputer by Shoim Sapawie on the 21 November 2009

Pagi ini dapet kerjaan yang gampang-gampang susah, yaitu gara-gara Staf di kantor pada buka Facebook teus dan sedikit waktunya buat kerja maka si Boss minta FACEBOOK ditutup dari komputer masing-masing staf.

jaringan yang ada adalah jaringan intenet tidak melalui gateway alias dari ISP langsung nyolok modem bridge dan langsung nyolok ke komputer masing2 staf.. Tuh kan bingung gimana nutup salah satu URL tersebut.

setelah nanya mbah Google akhirnya dapat caranya yaitu melaui masing-masing Komputer tersebut di edit file Hosts-nya. Ini konfigurasinya :

1. Buk Start–>Run ..lalu ketikkan C:\WINDOWS\system32\drivers\etc
lalu cari file yang bernama : hosts dan editlah file tersebut seperti dibawah
ini :
# Copyright (c) 1993-1999 Microsoft Corp.
#
# This is a sample HOSTS file used by Microsoft TCP/IP for Windows.
#
# This file contains the mappings of IP addresses to host names. Each
# entry should be kept on an individual line. The IP address should
# be placed in the first column followed by the corresponding host name.
# The IP address and the host name should be separated by at least one
# space.
#
# Additionally, comments (such as these) may be inserted on individual
# lines or following the machine name denoted by a ‘#’ symbol.
#
# For example:
#
# 102.54.94.97 rhino.acme.com # source server
# 38.25.63.10 x.acme.com # x client host

127.0.0.1       localhost
127.0.0.1   www.facebook.com   facebook.com
127.0.0.1   www.friendster.com   friendster.com
127.0.0.1   www.twitter.com       twitter.com
127.0.0.1   www.tagged.com       tagged.com

lalu save file tersebut

artinya www.facebook.com dll diarahkan ke komputer local sehingga tidak bsia tebuka di browser

demikian coretan saya

terima kasih

Leave a Comment

Setting Mysql Ubuntu

Posted in Linux_koe by Shoim Sapawie on the 3 September 2009

MySql di Server Ubuntu ku kok macet gak bisa diakses dari komputerku? Nah loh..saking paniknya aku uninstall dulu tuh Mysql tapi aku backup data nya dari SSH, setalah install versi 5. nya Mysql akhirnya aku setting my.cnf nya yaitu:

nano /etc/mysql/my.cnf

Beri tanda # pada Bind address, defaultnya gak ada tuh pagarnya

# bind-address = 127.0.0.1

Untuk Mysql dump sesuaikan denagn kebutuhan anda, kalo akau setting 64M sedangkan defaultnya 16M

[mysqldump]

quick

quote-names

max_allowed_packet = 64M

Masuk ke Mysql

#mysqladmin -u root -p

Masukan password untuk user root

Lalu buat user disana

mysql>create user ‘shoim’@’localhost’ identified by ‘namakamu’;
mysql>grant all privileges on *.* to ‘shoim’@’localhost’

> with grant option;

Jika grant akses diatas gak bsia coba lakukan hal dibawah ini

mysql> grant all privileges on *.* to db_user @’%’ identified by ’db_passwd’;

Contoh :

grant all privileges on *.* to ’shoim’@'%’ identified by ‘namakamu’;

lalu restart service mysql nya

/etc/init.d/mysql restart

kalau masih error mysql-nya seperti dibawah ini :

root@shoim:~# sudo /etc/init.d/mysql restart * Stopping MySQL database server mysqld [fail] * Starting MySQL database server mysqld [ OK ] /usr/bin/mysqladmin: connect to server at 'localhost' failed error: 'Access denied for user 'debian-sys-maint'@'localhost' (using password: YES)'

maka masuk ke Mysql dengan user root

root@shoim:~#mysql -u root -p <password>

lalu tambahkan :

mysql> GRANT ALL PRIVILEGES ON *.* TO 'debian-sys-maint'@'localhost' IDENTIFIED BY 'n4aSHUP04s1J32X5';

lalu restart service Mysql nya sekali lagi :

root@shoim:~$ sudo /etc/init.d/mysql restart * Stopping MySQL database server mysqld [ OK ] * Starting MySQL database server mysqld [ OK ] * Checking for corrupt, not cleanly closed and upgrade needing tables.

Alhamdulilah Mysql nya udah jalan,

Leave a Comment

rsync tanpa password

Posted in Networking by Shoim Sapawie on the 21 August 2009

diinginkan melakukan rsync dari komputer A [172.20.140.32] ke komputer B [172.20.140.33]

============================
komputer A [172.20.140.32]
============================
1. Generate SSH encryption key pair untuk filecopy account.
[root@linux samba]# ssh-keygen -t dsa -f $HOME/.ssh/id_dsa -P ”
Generating public/private dsa key pair.
Your identification has been saved in /root/.ssh/id_dsa.
Your public key has been saved in /root/.ssh/id_dsa.pub.
The key fingerprint is:
b8:cb:90:e4:9f:94:6f:bb:a5:13:60:ae:21:36:3f:de root@linux

2. Copy public key komputer tujuan. [komputer B]
[root@linux samba]# scp /root/.ssh/id_dsa.pub root@172.20.140.33:public-key.tmp
root@172.20.140.33’s password:
id_dsa.pub 100% 600 0.6KB/s 00:00

============================
komputer B [172.20.140.33]
============================
3. Login ke komputer tujuan dan Create .ssh subdirectory pada home directory
[root@linux ~]# mkdir .ssh
[root@linux ~]# chmod 700 .ssh
[root@linux ~]# cd .ssh

4. Tambahkan public-key.tmp ke akhir file authorized_keys
[root@linux .ssh]# cat ~/public-key.tmp >> authorized_keys
[root@linux .ssh]# chmod 700 /root/.ssh
[root@linux .ssh]# rm ~/public-key.tmp

============================
komputer A [172.20.140.32]
============================
5. Lakukan test
[root@linux samba]# rsync -avz /dt03/sketsa2 root@172.20.140.33:/u01

6. buat schedulle dengan crontab, agar dpt dijalankan secara periodik
[root@linux samba]# vi /folder/rsync_01
/usr/bin/rsync -avz /dt03/sketsa2 root@172.20.140.33:/u01
/usr/bin/rsync -avz /dt02/foto_full root@172.20.140.33:/u01

[root@linux samba]# chmod a+x /folder/rsync_01

[root@linux samba]# crontab -e
55 20 * * * /folder/rsync_01

Leave a Comment

Auto Backup Mikrotik

Posted in Ilmu Komputer by Shoim Sapawie on the 29 July 2009

Setelah dipikir pikir kalau ada masalah dengan mikrotik yang dipakai maka akan repot juga kalo gak ada backupnya, maka aku cari cara bagaimana Mikrotik membuat backup secara periodic dan otomatis mngirim email ke suatu alamat email atau juga email kita berikut Scriptnya :
/system backup save;
:delay 10;
/tool e-mail send to=shoim@shoim.web.id subject=([/system identity get name] .  " Backup "  . [/system clock get date]) file=19216801.backup;
:delay 2;
/file remove 19216801.backup;

Script tersebut ditaruh di System>Script

Kalau susah bikin Scheduler di System>Scheduler

Mudah-mudahan bermanfaat

Leave a Comment

Menutup Port celah virus di Mikrotik

Posted in Networking by Shoim Sapawie on the 29 July 2009

Hari ini pusing banget pagi pagi udah ada info kalo Internet lemot banget, selidik punya selidik ternyata ada beberap computer yang broadcast virus dengan memanfaatkan port yang terbuka, akhirnya setelah googling googling aku dapat info untuk menutup portnya, yang pertama pasti buka mikrotiknya, masuk di menu terminal dan masukkan script dibawah ini :

/ip firewall filter

add chain=virus protocol=udp action=drop dst-port=1 comment="Sockets des Troie"

add chain=virus protocol=tcp action=drop dst-port=2 comment="Death"

add chain=virus protocol=tcp action=drop dst-port=20 comment="Senna Spy FTP server"

add chain=virus protocol=tcp action=drop dst-port=21 comment="Back Construction, Blade Runner, Cattivik FTP Server, CC Invader, Dark FTP, Doly Trojan, Fore, Invisible FTP, Juggernaut 42, Larva, MotIv FTP, Net Administrator, Ramen, Senna Spy FTP server, The Flu, Traitor 21, WebEx, WinCrash"

add chain=virus protocol=tcp action=drop dst-port=22 comment="Shaft"

add chain=virus protocol=tcp action=drop dst-port=23 comment="Fire HacKer, Tiny Telnet Server TTS, Truva Atl"

add chain=virus protocol=tcp action=drop dst-port=25 comment="Ajan, Antigen, Barok, Email Password Sender EPS, EPS II, Gip, Gris, Happy99, Hpteam mail, Hybris, I love you, Kuang2, Magic Horse, MBT Mail Bombing Trojan, Moscow Email trojan, Naebi, NewApt worm, ProMail trojan, Shtirlitz, Stealth, Tapiras, Terminator, WinPC, WinSpy"

add chain=virus protocol=tcp action=drop dst-port=30 comment="Agent 40421"

add chain=virus protocol=tcp action=drop dst-port=31 comment="Agent 31, Hackers Paradise, Masters Paradise"

add chain=virus protocol=tcp action=drop dst-port=41 comment="Deep Throat, Foreplay"

add chain=virus protocol=tcp action=drop dst-port=48 comment="DRAT"

add chain=virus protocol=tcp action=drop dst-port=50 comment="DRAT"

add chain=virus protocol=tcp action=drop dst-port=58 comment="DMSetup"

add chain=virus protocol=tcp action=drop dst-port=59 comment="DMSetup"

add chain=virus protocol=tcp action=drop dst-port=79 comment="CDK, Firehotcker"

add chain=virus protocol=tcp action=drop dst-port=80 comment="711 trojan, Seven Eleven, AckCmd, Back End, Back Orifice 2000 Plug-Ins, Cafeini, CGI Backdoor, Executor, God Message, God Message Creator, Hooker, IISworm, MTX, NCX, Reverse WWW Tunnel Backdoor, RingZero, Seeker, WAN Remote, Web Server CT, WebDownloader"

add chain=virus protocol=tcp action=drop dst-port=81 comment="RemoConChubo"

add chain=virus protocol=tcp action=drop dst-port=99 comment="Hidden  Port, NCX"

add chain=virus protocol=tcp action=drop dst-port=110 comment="ProMail trojan"

add chain=virus protocol=tcp action=drop dst-port=113 comment="Invisible Identd Deamon, Kazimas"

add chain=virus protocol=tcp action=drop dst-port=119 comment="Happy99"

add chain=virus protocol=tcp action=drop dst-port=121 comment="Attack Bot, God Message, JammerKillah"

add chain=virus protocol=tcp action=drop dst-port=123 comment="Net Controller"

add chain=virus protocol=tcp action=drop dst-port=133 comment="Farnaz"

add chain=virus protocol=tcp action=drop dst-port=135-139 comment="Blaster worm"

add chain=virus protocol=udp action=drop dst-port=135-139 comment="messenger worm

add chain=virus protocol=tcp action=drop dst-port=142 comment="NetTaxi"

add chain=virus protocol=tcp action=drop dst-port=146 comment="Infector"

add chain=virus protocol=udp action=drop dst-port=146 comment="Infector"

add chain=virus protocol=tcp action=drop dst-port=170 comment="A-trojan"

add chain=virus protocol=tcp action=drop dst-port=334 comment="Backage"

add chain=virus protocol=tcp action=drop dst-port=411 comment="Backage"

add chain=virus protocol=tcp action=drop dst-port=420 comment="Breach, Incognito"

add chain=virus protocol=tcp action=drop dst-port=421 comment="TCP Wrappers trojan"

add chain=virus protocol=tcp action=drop dst-port=445 comment="Blaster worm

add chain=virus protocol=udp action=drop dst-port=445 comment="Blaster worm

add chain=virus protocol=tcp action=drop dst-port=455 comment="Fatal Connections"

add chain=virus protocol=tcp action=drop dst-port=456 comment="Hackers Paradise"

add chain=virus protocol=tcp action=drop dst-port=513 comment="Grlogin"

add chain=virus protocol=tcp action=drop dst-port=514 comment="RPC Backdoor"

add chain=virus protocol=tcp action=drop dst-port=531 comment="Net666, Rasmin"

add chain=virus protocol=tcp action=drop dst-port=555 comment="711 trojan, Seven Eleven, Ini-Killer, Net Administrator, Phase Zero, Phase-0, Stealth Spy"

add chain=virus protocol=tcp action=drop dst-port=605 comment="Secret Service"

add chain=virus protocol=tcp action=drop dst-port=666 comment="Attack FTP, Back Construction, BLA trojan, Cain &amp;amp;amp; Abel, NokNok, Satans Back Door SBD, ServU, Shadow Phyre, th3r1pp3rz Therippers"

add chain=virus protocol=tcp action=drop dst-port=667 comment="SniperNet"

add chain=virus protocol=tcp action=drop dst-port=669 comment="DP trojan"

add chain=virus protocol=tcp action=drop dst-port=692 comment="GayOL"

add chain=virus protocol=tcp action=drop dst-port=777 comment="AimSpy, Undetected"

add chain=virus protocol=tcp action=drop dst-port=808 comment="WinHole"

add chain=virus protocol=tcp action=drop dst-port=911 comment="Dark Shadow"

add chain=virus protocol=tcp action=drop dst-port=999 comment="Deep Throat, Foreplay, WinSatan"

add chain=virus protocol=tcp action=drop dst-port=1000 comment="Der Spaeher, Direct Connection"

add chain=virus protocol=tcp action=drop dst-port=1001 comment="Der Spaeher, Le Guardien, Silencer, WebEx"

add chain=virus protocol=tcp action=drop dst-port=1010-1016 comment="Doly Trojan"

add chain=virus protocol=tcp action=drop dst-port=1020 comment="Vampire"

add chain=virus protocol=tcp action=drop dst-port=1024 comment="Jade, Latinus, NetSpy"

add chain=virus protocol=tcp action=drop dst-port=1025 comment="Remote Storm"

add chain=virus protocol=udp action=drop dst-port=1025 comment="Remote Storm"

add chain=virus protocol=tcp action=drop dst-port=1035 comment="Multidropper"

add chain=virus protocol=tcp action=drop dst-port=1042 comment="BLA trojan"

add chain=virus protocol=tcp action=drop dst-port=1045 comment="Rasmin"

add chain=virus protocol=tcp action=drop dst-port=1049 comment="sbin initd"

add chain=virus protocol=tcp action=drop dst-port=1050 comment="MiniCommand"

add chain=virus protocol=tcp action=drop dst-port=1053 comment="The Thief"

add chain=virus protocol=tcp action=drop dst-port=1054 comment="AckCmd"

add chain=virus protocol=tcp action=drop dst-port=1080-1083 comment="WinHole"

add chain=virus protocol=tcp action=drop dst-port=1090 comment="Xtreme"

add chain=virus protocol=tcp action=drop dst-port=1095-1098 comment="Remote Administration Tool RAT"

add chain=virus protocol=tcp action=drop dst-port=1099 comment="Blood Fest Evolution, Remote Administration Tool RAT"

add chain=virus protocol=tcp action=drop dst-port=1150-1151 comment="Orion"

add chain=virus protocol=tcp action=drop dst-port=1170 comment="Psyber Stream Server PSS, Streaming Audio Server, Voice"

add chain=virus protocol=udp action=drop dst-port=1200-1201 comment="NoBackO"

add chain=virus protocol=tcp action=drop dst-port=1207 comment="SoftWAR"

add chain=virus protocol=tcp action=drop dst-port=1208 comment="Infector"

add chain=virus protocol=tcp action=drop dst-port=1212 comment="Kaos"

add chain=virus protocol=tcp action=drop dst-port=1234 comment="SubSeven Java client, Ultors Trojan"

add chain=virus protocol=tcp action=drop dst-port=1243 comment="BackDoor-G, SubSeven, SubSeven Apocalypse, Tiles"

add chain=virus protocol=tcp action=drop dst-port=1245 comment="VooDoo Doll"

add chain=virus protocol=tcp action=drop dst-port=1255 comment="Scarab"

add chain=virus protocol=tcp action=drop dst-port=1256 comment="Project nEXT"

add chain=virus protocol=tcp action=drop dst-port=1269 comment="Matrix"

add chain=virus protocol=tcp action=drop dst-port=1272 comment="The Matrix"

add chain=virus protocol=tcp action=drop dst-port=1313 comment="NETrojan"

add chain=virus protocol=tcp action=drop dst-port=1338 comment="Millenium Worm"

add chain=virus protocol=tcp action=drop dst-port=1349 comment="Bo dll"

add chain=virus protocol=tcp action=drop dst-port=1394 comment="GoFriller, Backdoor G-1"

add chain=virus protocol=tcp action=drop dst-port=1441 comment="Remote Storm"

add chain=virus protocol=tcp action=drop dst-port=1492 comment="FTP99CMP"

add chain=virus protocol=tcp action=drop dst-port=1524 comment="Trinoo"

add chain=virus protocol=tcp action=drop dst-port=1568 comment="Remote Hack"

add chain=virus protocol=tcp action=drop dst-port=1600 comment="Direct Connection, Shivka-Burka"

add chain=virus protocol=tcp action=drop dst-port=1703 comment="Exploiter"

add chain=virus protocol=tcp action=drop dst-port=1777 comment="Scarab"

add chain=virus protocol=tcp action=drop dst-port=1807 comment="SpySender"

add chain=virus protocol=tcp action=drop dst-port=1966 comment="Fake FTP"

add chain=virus protocol=tcp action=drop dst-port=1967 comment="WM FTP Server"

add chain=virus protocol=tcp action=drop dst-port=1969 comment="OpC BO"

add chain=virus protocol=tcp action=drop dst-port=1981 comment="Bowl, Shockrave"

add chain=virus protocol=tcp action=drop dst-port=1999 comment="Back Door, SubSeven, TransScout"

add chain=virus protocol=tcp action=drop dst-port=2000 comment="Der Spaeher, Insane Network, Last 2000, Remote Explorer 2000, Senna Spy Trojan Generator"

add chain=virus protocol=tcp action=drop dst-port=2001 comment="Der Spaeher, Trojan Cow"

add chain=virus protocol=tcp action=drop dst-port=2023 comment="Ripper Pro"

add chain=virus protocol=tcp action=drop dst-port=2080 comment="WinHole"

add chain=virus protocol=tcp action=drop dst-port=2115 comment="Bugs"

add chain=virus protocol=udp action=drop dst-port=2130 comment="Mini Backlash"

add chain=virus protocol=tcp action=drop dst-port=2140 comment="The Invasor"

add chain=virus protocol=udp action=drop dst-port=2140 comment="Deep Throat, Foreplay"

add chain=virus protocol=tcp action=drop dst-port=2155 comment="Illusion Mailer"

add chain=virus protocol=tcp action=drop dst-port=2255 comment="Nirvana"

add chain=virus protocol=tcp action=drop dst-port=2283 comment="Hvl RAT"

add chain=virus protocol=tcp action=drop dst-port=2300 comment="Xplorer"

add chain=virus protocol=tcp action=drop dst-port=2311 comment="Studio 54"

add chain=virus protocol=tcp action=drop dst-port=2330-2339 comment="Contact"

add chain=virus protocol=udp action=drop dst-port=2339 comment="Voice Spy"

add chain=virus protocol=tcp action=drop dst-port=2345 comment="Doly Trojan"

add chain=virus protocol=tcp action=drop dst-port=2565 comment="Striker trojan"

add chain=virus protocol=tcp action=drop dst-port=2583 comment="WinCrash"

add chain=virus protocol=tcp action=drop dst-port=2600 comment="Digital RootBeer"

add chain=virus protocol=tcp action=drop dst-port=2716 comment="The Prayer"

add chain=virus protocol=tcp action=drop dst-port=2773-2774 comment="SubSeven, SubSeven 2.1 Gold"

add chain=virus protocol=tcp action=drop dst-port=2801 comment="Phineas Phucker"

add chain=virus protocol=udp action=drop dst-port=2989 comment="Remote Administration Tool RAT"

add chain=virus protocol=tcp action=drop dst-port=3000 comment="Remote Shut"

add chain=virus protocol=tcp action=drop dst-port=3024 comment="WinCrash"

add chain=virus protocol=tcp action=drop dst-port=3031 comment="Microspy"

add chain=virus protocol=tcp action=drop dst-port=3128 comment="Reverse WWW Tunnel Backdoor, RingZero"

add chain=virus protocol=tcp action=drop dst-port=3129 comment="Masters Paradise"

add chain=virus protocol=tcp action=drop dst-port=3150 comment="The Invasor"

add chain=virus protocol=udp action=drop dst-port=3150 comment="Deep Throat, Foreplay, Mini Backlash"

add chain=virus protocol=tcp action=drop dst-port=3456 comment="Terror trojan"

add chain=virus protocol=tcp action=drop dst-port=3459 comment="Eclipse 2000, Sanctuary"

add chain=virus protocol=tcp action=drop dst-port=3700 comment="Portal of Doom"

add chain=virus protocol=tcp action=drop dst-port=3777 comment="PsychWard"

add chain=virus protocol=tcp action=drop dst-port=3791-3801 comment="Total Solar Eclypse"

add chain=virus protocol=tcp action=drop dst-port=4000 comment="SkyDance"

add chain=virus protocol=tcp action=drop dst-port=4092 comment="WinCrash"

add chain=virus protocol=tcp action=drop dst-port=4242 comment="Virtual Hacking Machine VHM"

add chain=virus protocol=tcp action=drop dst-port=4321 comment="BoBo"

add chain=virus protocol=tcp action=drop dst-port=4444 comment="Prosiak, Swift Remote"

add chain=virus protocol=tcp action=drop dst-port=4567 comment="File Nail"

add chain=virus protocol=tcp action=drop dst-port=4590 comment="ICQ Trojan"

add chain=virus protocol=tcp action=drop dst-port=4950 comment="ICQ Trogen Lm"

add chain=virus protocol=tcp action=drop dst-port=5000 comment="Back Door Setup, Blazer5, Bubbel, ICKiller, Ra1d, Sockets des Troie"

add chain=virus protocol=tcp action=drop dst-port=5001 comment="Back Door Setup, Sockets des Troie"

add chain=virus protocol=tcp action=drop dst-port=5002 comment="cd00r, Shaft"

add chain=virus protocol=tcp action=drop dst-port=5010 comment="Solo"

add chain=virus protocol=tcp action=drop dst-port=5011 comment="One of the Last Trojans OOTLT, One of the Last Trojans OOTLT, modified"

add chain=virus protocol=tcp action=drop dst-port=5025 comment="WM Remote KeyLogger"

add chain=virus protocol=tcp action=drop dst-port=5031-5032 comment="Net Metropolitan"

add chain=virus protocol=tcp action=drop dst-port=5321 comment="Firehotcker"

add chain=virus protocol=tcp action=drop dst-port=5333 comment="Backage, NetDemon"

add chain=virus protocol=tcp action=drop dst-port=5343 comment="wCrat WC Remote Administration Tool"

add chain=virus protocol=tcp action=drop dst-port=5400-5402 comment="Back Construction, Blade Runner"

add chain=virus protocol=tcp action=drop dst-port=5512 comment="Illusion Mailer"

add chain=virus protocol=tcp action=drop dst-port=5534 comment="The Flu"

add chain=virus protocol=tcp action=drop dst-port=5550 comment="Xtcp"

add chain=virus protocol=tcp action=drop dst-port=5555 comment="ServeMe"

add chain=virus protocol=tcp action=drop dst-port=5556-5557 comment="BO Facil"

add chain=virus protocol=tcp action=drop dst-port=5569 comment="Robo-Hack"

add chain=virus protocol=tcp action=drop dst-port=5637-5638 comment="PC Crasher"

add chain=virus protocol=tcp action=drop dst-port=5742 comment="WinCrash"

add chain=virus protocol=tcp action=drop dst-port=5760 comment="Portmap Remote Root Linux Exploit"

add chain=virus protocol=tcp action=drop dst-port=5880-5889 comment="Y3K RAT"

add chain=virus protocol=tcp action=drop dst-port=6000 comment="The Thing"

add chain=virus protocol=tcp action=drop dst-port=6006 comment="Bad Blood"

add chain=virus protocol=tcp action=drop dst-port=6272 comment="Secret Service"

Setelah memasukkan script diatas kayaknya virus yang melakukan broadcast agak berkurang.

Leave a Comment

UAS Session

Posted in Private by Shoim Sapawie on the 23 June 2009

Pekan ini adalah dimulainya UAS(Ujian Akhir Semester) di semester 8 di Kampus, dengan modal nilai UTS maka harus diniatin dapet lebih baik lagi, karena ada beberapa mata kuliah yang mayan anjlok nilainya, masalahnya Anjlok semua anak-anak kelas 8 O(baca delapan ouw),

mudahmudahan UAS ini nilainya bagus dan nolong nilai yang kemarin dan jangan sampai HER deh..

Semangat-semangat..

Leave a Comment

Qodhoya…

Posted in Private by Shoim Sapawie on the 6 June 2009

Sabtu ini adalah sabtu yang bikin bahagia biarpun dalam hati, karena sebagai muslim aku gak boleh berlebihan dalam mengungkapkan rasa bahagia maupun rasa sedih..cukup dalam hati saja..

mudah-mudahan yang ALLAH SWT berikan kepadaku benar dan aku bisa Amanah pada titipannya

“Ya Robb..jadikan aku umatmu yang berabkti, jauhkan aku dari hal-hal yang tidak kau ridhoi serta bimbinglah aku ke jalanmu yang lurus…Amiiin”

Leave a Comment

Tugas Pascal 4

Posted in Tugas Kuliah by Shoim Sapawie on the 6 June 2009

Buatlah Program untuk menghitung perekaman data sebagai berikut :

DEALER MOTOR “JAYA”

NAMA PEMBELI :__________________________________

DATA MOTOR :______________

JENIS MOTOR :__________

MEREK MOTOR :_______________

JENIS BAYAR [TUNAI/KREDIT] : _________

MASUKAN DATA LAGI [Y/T] :___

BUATLAH FUNCTION U/MENENTUKAN DISKON

MEREK DISKON

————————————————–

TUNAI KREDIT

——————————–

HONDA 26% 5%

YAMAHA 20% 7%

KAWASAKI 20% 6%

DISKON DIBERIKAN DI HARGA MOTOR

TAMPILAN KELUARAN

DEALER MOTOR “JAYA”

NO NAMA_PEMBELI MERK HARGA JENIS_BAYAR DISKON JML_BAYAR

Rp.______ Rp._________

Total bayar : Rp.__________

Berikut listingnya :

program lat_fungsi;

uses crt;

type

simpan = record

tpbyr, nama,merk,jenis : string;

harga : real;

end;

var masukan : array [1..10] of simpan;

pil_merk, jnsbyr, tanya : char;

hitungdisc, disc, total, jmlbyr : real;

i,max : integer;

label lagi;

function diskon(var x, y : string) : real;

begin

if x = 'Honda' then

begin

if y = 'Tunai' then

diskon := 0.2

else if y = 'Kredit' then

diskon := 0.05;

end

else if x = 'Yamaha' then

begin

if y = 'Tunai' then

diskon := 0.2

else if y = 'Kredit' then

diskon := 0.07;

end

else if x = 'Kawasaki' then

begin

if y = 'Tunai' then

diskon := 0.2

else if y = 'Kredit' then

diskon := 0.06;

end;

end;

function hitungdiskon(var a,b : real) : real;

begin

hitungdiskon := a * b;

end;

begin

max := 0;

lagi:

clrscr;

max := max + 1;

writeln('DEALER MOTOR SHOIM JAYA');

writeln('=================');

writeln;

write('Nama Pembeli : ');readln(masukan[max].nama);

writeln('Data Motor   : ');

write(' - Merk Motor [H/Y/K]: '); readln(pil_merk);

if upcase(pil_merk) = 'H' then

begin

masukan[max].merk := 'Honda';

end

else if upcase(pil_merk) = 'Y' then

begin

masukan[max].merk :='Yamaha';

end

else if upcase(pil_merk) = 'K' then

begin

masukan[max].merk := 'Kawasaki';

end;

write(' - Jenis Motor       : '); readln( masukan[max].jenis);

write(' - Harga motor       : Rp. '); readln(masukan[max].harga);

write(' - Jenis bayar [T/K] : '); readln(jnsbyr);

if upcase(jnsbyr) = 'T' then

masukan[max].tpbyr := 'Tunai'

else

masukan[max].tpbyr := 'Kredit';

writeln;

writeln;

write(' Masukkan data lagi ? [Y/N] : ');readln(tanya);

if upcase(tanya) = 'Y' then goto lagi;

{output}

clrscr;

writeln('DEALER MOTOR "SHOIM JAYA"');

writeln('=================================================================');

writeln('No  Pembeli   Merk      Harga   Jns_Byr    Diskon    Jml_Byr');

writeln('=================================================================');

for i := 1 to max do

begin

jmlbyr := 0;

gotoxy(1,5+i);write(i);

gotoxy(5,5+i);write(masukan[i].nama);

gotoxy(15,5+i);write(masukan[i].merk);

gotoxy(25,5+i);write(masukan[i].harga:2:0);

gotoxy(35,5+i);write(masukan[i].tpbyr);

disc := diskon(masukan[i].merk,masukan[i].tpbyr);

{gotoxy(5,5+i);write(disc:2:2);write('   ');}

hitungdisc := hitungdiskon(disc,masukan[i].harga);

gotoxy(47,5+i);write(hitungdisc:2:0);

jmlbyr := masukan[i].harga - hitungdisc;

gotoxy(57,5+i);writeln(jmlbyr:2:0);

total := total + jmlbyr;

end;

writeln('==================================================================');

writeln('                                       Total Bayar :Rp. ',total:2:0);

readln;

end.

Leave a Comment

Latihan Pra Uas-Record

Posted in Tugas Kuliah by Shoim Sapawie on the 4 June 2009

Uses Crt;

CONST MaxData = 100;
TYPE DtSiswa = Record
                NIS     : Integer;
                Nama    : String[15];
                Nilai   : Record
                             PR, Test, Latihan : Real;
                          End;
                NilaiAkhir : Real;
                NilaiHuruf : Char;
               End;
     DaftarSiswa = Array[1..MaxData] Of DtSiswa;

VAR
    Siswa    : DaftarSiswa;
    JmlSiswa : Integer;
PROCEDURE BacaData;
VAR
   Lagi : Char;

FUNCTION NilHuruf(Nilai : Real) : Char;
Begin
     If Nilai &amp;gt;= 80 Then
       NilHuruf := 'A'
     Else If Nilai &amp;gt;= 70 Then
       NilHuruf := 'B'
     Else If Nilai &amp;gt;= 80 Then
       NilHuruf := 'C'
     Else
       NilHuruf := 'D';
End;

Begin
   JmlSiswa := 0;
   REPEAT

     JmlSiswa := JmlSiswa + 1;
     WITH Siswa[JmlSiswa] DO
     Begin
        WriteLn('Masukan Data Siswa');
        Write('N.I.S  : '); ReadLn(NIS);
        Write('Nama   : '); ReadLn(Nama);
       WriteLn('Nilai-Nilai : ');
        Write('Tugas Rumah : '); ReadLn(Nilai.PR);
        Write('Latihan     : '); ReadLn(Nilai.Latihan);
        Write('Test        : '); ReadLn(Nilai.Test);

        NilaiAkhir := (0.2*Nilai.PR)+(0.5*Nilai.Test)+(0.3*Nilai.Latihan);
        NilaiHuruf := NilHuruf(NilaiAkhir);

        Write('Input Data Lagi [Y/T] : '); ReadLn(Lagi);

        IF JmlSiswa + 1 &amp;gt; MaxData Then
        Begin
          Lagi := 'T';
        End;
     End;
   UNTIL UPCASE(LAGI) = 'T';
End;

Procedure UrutData;
VAR
   i, j : Integer;
   Tampung : DtSiswa;
Begin
   FOR i := 1 To JmlSiswa - 1 DO
      FOR i := 1 + i To JmlSiswa DO
         IF Siswa[i].NilaiHuruf &amp;lt; Siswa[j].NilaiHuruf THEN
         Begin
           Tampung := Siswa[i];
           Siswa[i] := Siswa[j];
           Siswa[j] := Tampung;
         End;
End;

Procedure CetakData;
VAR
   i : Integer;
Begin
    WriteLn;
    FOR i := 1 To JmlSiswa DO
      WITH Siswa[i] DO
         WriteLn(NIS:9,' ',Nama:15,' ',NilaiAkhir:6:2,' ',NilaiHuruf);
End;

{PROGRAM UTAMA}
BEGIN
    CLRSCR;
    BacaData;
    UrutData;
    CetakData;
    ReadLn;
END.

Comments Off

Install vsftpd Sebagai FTP Server

Posted in Linux_koe by Shoim Sapawie on the 4 June 2009

1. Install paket vsftpd

# apt-get install vsftpd

2. Buka file konfigurasinya

# vim /etc/vsftpd.conf

3. Berikut adalah isi file konfigurasi punya saya

&amp;lt;/pre&amp;gt;
&amp;lt;/pre&amp;gt;
listen=YES
anonymous_enable=YES
local_enable=YES
dirmessage_enable=YES
xferlog_enable=YES
connect_from_port_20=YES
chroot_list_enable=YES
chroot_list_file=/etc/vsftpd.chroot_list
secure_chroot_dir=/var/run/vsftpd
pam_service_name=vsftpd
rsa_cert_file=/etc/ssl/certs/vsftpd.pem
user_config_dir=/etc/vsftpd_user
anon_root=/home/ftp
&amp;lt;pre&amp;gt;
&amp;lt;pre&amp;gt;

4. Buat file /etc/vsftpd.chroot_list

# vim /etc/vsftpd.chroot_list

kemudian, tulis di file tersebut user yang di beri akses untuk upload data (contoh user = uploader)
misal :

uploader

5. Untuk banner, silahkan create file /etc/vsftpd.banner dan isi sesuai kengininan.

# vim /etc/vsftpd.banner

6. Buat direktori /etc/vsftpd_user/

# mkdir /etc/vsftpd_user/

7. Buatlah file konfigurasi untuk user tukang upload data (contoh user = uploader)

# vim /etc/vsftpd_user/uploader

yang isinya :

&amp;lt;/pre&amp;gt;
&amp;lt;/pre&amp;gt;
listen=YES
anonymous_enable=YES
local_enable=YES
local_umask=022
anon_upload_enable=NO
anon_mkdir_write_enable=NO
dirmessage_enable=YES
xferlog_enable=YES
connect_from_port_20=YES
chown_uploads=YES
chown_username=ftp
xferlog_file=/var/log/vsftpd.log
xferlog_std_format=YES
idle_session_timeout=600
data_connection_timeout=120
nopriv_user=ftp
banner_file=/etc/vsftpd.banner
dirmessage_enable=YES
message_file=welcome.msg
deny_e&amp;lt;a title="mail" href="http://www.shoim.web.id/mail.htm"&amp;gt;mail&amp;lt;/a&amp;gt;_enable=YES
banned_email_file=/etc/vsftpd.banned_emails
chroot_local_user=YES
chroot_list_enable=YES
chroot_list_file=/etc/vsftpd.chroot_list
ls_recurse_enable=YES
tcp_wrappers=YES
user_config_dir=/etc/vsftpd_user
write_enable=YES
max_clients=50
max_per_ip=5
&amp;lt;pre&amp;gt;
&amp;lt;pre&amp;gt;

8. Buat user tukang upload, misal saya create user uploader

# adduser uploader

dan jawab pertanyaan yang diajukan.

9. Rubah home directory user tersebut dengan edit file /etc/passwd

# vim /etc/passwd

cari baris yang ada tulisan uploader, ubah bagian /home/uploader menjadi /home/ftp
misal :

uploader:x:1003:1003:,,,:/home/uploader:/bin/bash

maka dirubah menjadi :

uploader:x:1003:1003:,,,:/home/ftp:/bin/bash

Comments Off

Live is Journey

The Pages

The Search

The Associates

The Storage

The Categories

The Meta

Block URL di Windows XP

Setting Mysql Ubuntu

rsync tanpa password

Auto Backup Mikrotik

Menutup Port celah virus di Mikrotik

UAS Session

Qodhoya…

Tugas Pascal 4

Latihan Pra Uas-Record

Install vsftpd Sebagai FTP Server