Selamat Datang

Assalamu'alaikum Warahmatullahi Wabarokatuh Wamaghfiratuh, Moga anda dapat mengambil manfaat dari keberadaan blog Prestasikoe ini.

blog ini sekedar kumpulan" yang tidak bisa ku ingat seluruhnya,
makanya dibuat dlm tulisan.

produk

produk

Wednesday, August 27, 2008

php getTagVal for http req

function makeTagVal($tag,$val){

echo urlencode("<".$tag.">".$val."<".$tag.">");

}


function getTagVal($tag,$source){

$source=urldecode($source);

eval("\$p=split('<".$tag.">|</".$tag.">',\$source);");

return $p[1];

}
bg83

Tuesday, August 26, 2008

Create barcode with php

copas from php.net

<?php

function UPCAbarcode($code) {

$lw = 2; $hi = 100;

$Lencode = array('0001101','0011001','0010011','0111101','0100011',

'0110001','0101111','0111011','0110111','0001011');

$Rencode = array('1110010','1100110','1101100','1000010','1011100',

'1001110','1010000','1000100','1001000','1110100');

$ends = '101'; $center = '01010';

/* UPC-A Must be 11 digits, we compute the checksum. */

if ( strlen($code) != 11 ) { die("UPC-A Must be 11 digits."); }

/* Compute the EAN-13 Checksum digit */

$ncode = '0'.$code;

$even = 0; $odd = 0;

for ($x=0;$x<12;$x++) {

if ($x % 2) { $odd += $ncode[$x]; } else { $even += $ncode[$x]; }

}

$code.=(10 - (($odd * 3 + $even) % 10)) % 10;

/* Create the bar encoding using a binary string */

$bars=$ends;

$bars.=$Lencode[$code[0]];

for($x=1;$x<6;$x++) {

$bars.=$Lencode[$code[$x]];

}

$bars.=$center;

for($x=6;$x<12;$x++) {

$bars.=$Rencode[$code[$x]];

}

$bars.=$ends;

/* Generate the Barcode Image */

$img = imagecreate($lw*95+30,$hi+30) or die("Cannot Initialize new GD image stream");;

$fg = imagecolorallocate($img, 0, 0, 0);

$bg = imagecolorallocate($img, 255, 255, 255);

imagefilledrectangle($img, 0, 0, $lw*95+30, $hi+30, $bg);

$shift=10;

for ($x=0;$x<strlen($bars);$x++) {

if (($x<10) || ($x>=45 && $x<50) || ($x >=85)) { $sh=10; } else { $sh=0; }

if ($bars[$x] == '1') { $color = $fg; } else { $color = $bg; }

imagefilledrectangle($img, ($x*$lw)+15,5,($x+1)*$lw+14,$hi+5+$sh,$color);

}

/* Add the Human Readable Label */

imagestring($img,4,5,$hi-5,$code[0],$fg);

for ($x=0;$x<5;$x++) {

imagestring($img,5,$lw*(13+$x*6)+15,$hi+5,$code[$x+1],$fg);

imagestring($img,5,$lw*(53+$x*6)+15,$hi+5,$code[$x+6],$fg);

}

imagestring($img,4,$lw*95+17,$hi-5,$code[11],$fg);

/* Output the Header and Content. */

header("Content-type: image/png");

imagepng($img);

}


UPCAbarcode('12345678901');


?>




bg83

Wednesday, August 13, 2008

captcha

session_start();
// The text to draw
$text = 'Testing...';
$str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
$text = substr(str_shuffle($str),0,4);
$_SESSION['a']=$text;
// Set the content-type
header("Content-type: image/png");

// Create the image
$im = imagecreatetruecolor(150, 30);

// Create some colors
$white = imagecolorallocate($im, 255, 255, 255);
$grey = imagecolorallocate($im, 128, 128, 128);
$black = imagecolorallocate($im, 0, 0, 0);
imagefilledrectangle($im, 0, 0, 399, 29, $white);


// Replace path by your own font path
$font = 'PAPYRUS.TTF';

// Add some shadow to the text
imagettftext($im, 20, 0, 11, 21, $grey, $font, $text);

// Add the text
imagettftext($im, 20, 0, 10, 20, $black, $font, $text);

// Using imagepng() results in clearer text compared with imagejpeg()
imagepng($im);
imagedestroy($im);
?>
bg83