AES128bit

sumber : 
http://adammaus.com/wp/2012/11/rijndael-encryption-and-decryption-vb-net-php-python/

 VB.NET

' Keys required for Symmetric encryption / decryption
Dim rijnKey As Byte() = {&H1, &H2, &H3, &H4, &H5, &H6, &H7, &H8, &H9, &H10, &H11, &H12, &H13, &H14, &H15, &H16}
Dim rijnIV As Byte() = {&H1, &H2, &H3, &H4, &H5, &H6, &H7, &H8, &H9, &H10, &H11, &H12, &H13, &H14, &H15, &H16}

Function Decrypt(S As String)
If S = "" Then
Return S
End If
' Turn the cipherText into a ByteArray from Base64
Dim cipherText As Byte()
Try
' Replace any + that will lead to the error
cipherText = Convert.FromBase64String(S.Replace("BIN00101011BIN", "+"))
Catch ex As Exception
' There is a problem with the string, perhaps it has bad base64 padding
Return S
End Try
'Creates the default implementation, which is RijndaelManaged.
Dim rijn As SymmetricAlgorithm = SymmetricAlgorithm.Create()
Try
' Create the streams used for decryption.
Using msDecrypt As New MemoryStream(cipherText)
Using csDecrypt As New CryptoStream(msDecrypt, rijn.CreateDecryptor(rijnKey, rijnIV), CryptoStreamMode.Read)
Using srDecrypt As New StreamReader(csDecrypt)
' Read the decrypted bytes from the decrypting stream and place them in a string.
S = srDecrypt.ReadToEnd()
End Using
End Using
End Using
Catch E As CryptographicException
Return S
End Try
Return S
End Function


Function Encrypt(S As String)
'Creates the default implementation, which is RijndaelManaged.
Dim rijn As SymmetricAlgorithm = SymmetricAlgorithm.Create()
Dim encrypted() As Byte
Using msEncrypt As New MemoryStream()
Dim csEncrypt As New CryptoStream(msEncrypt, rijn.CreateEncryptor(rijnKey, rijnIV), CryptoStreamMode.Write)
Using swEncrypt As New StreamWriter(csEncrypt)
'Write all data to the stream.
swEncrypt.Write(S)
End Using
encrypted = msEncrypt.toArray()
End Using

' You cannot convert the byte to a string or you will get strange characters so base64 encode the string
' Replace any + that will lead to the error
Return Convert.ToBase64String(encrypted).Replace("+", "BIN00101011BIN")
End Function

PHP

$rijnKey = "\x1\x2\x3\x4\x5\x6\x7\x8\x9\x10\x11\x12\x13\x14\x15\x16";
$rijnIV = "\x1\x2\x3\x4\x5\x6\x7\x8\x9\x10\x11\x12\x13\x14\x15\x16";
function Decrypt($s){
global $rijnKey, $rijnIV;

if ($s == "") { return $s; }

// Turn the cipherText into a ByteArray from Base64
try {
$s = str_replace("BIN00101011BIN", "+", $s);
$s = base64_decode($s);
$s = mcrypt_decrypt(MCRYPT_RIJNDAEL_128, $rijnKey, $s, MCRYPT_MODE_CBC, $rijnIV);
} catch(Exception $e) {
// There is a problem with the string, perhaps it has bad base64 padding
// Do Nothing
}
return $s;
}

function Encrypt($s){
global $rijnKey, $rijnIV;

// Have to pad if it is too small
$block = mcrypt_get_block_size(MCRYPT_RIJNDAEL_128, 'cbc');
$pad = $block - (strlen($s) % $block);
$s .= str_repeat(chr($pad), $pad);

$s = mcrypt_encrypt(MCRYPT_RIJNDAEL_128, $rijnKey, $s, MCRYPT_MODE_CBC, $rijnIV);
$s = base64_encode($s);
$s = str_replace("+", "BIN00101011BIN", $s);
return $s;
}

ajax fill from json

 contoh 1

	function loadbrg(id,vnd){
		document.forms['fmedit'].querySelectorAll('input[name^="a"]').forEach(function(el){el.value='';});
		$("#modaledit").modal();
		//if(id==0)document.forms['fmtarget'].querySelectorAll('input[name^="a"]').forEach(function(el){el.value=el.name;});
		if(id==0)return;
		var oTXT=document.forms['fmedit'].querySelectorAll('input[name^="a"]');
		$.post("?act=loadbrg&id="+id+"&vnd="+vnd).done(function(response){
			console.log(response);
			$.each(oTXT, function( key, value ) {
				var otxt=value.name.replace('a[','').replace(']','');
				value.value=response[otxt];
				//console.log(key+"="+value.value+"->"+otxt);
			});
		});
	}

contoh 2

	var fmtarget=document.forms['fmpopup'];
	fmtarget.querySelectorAll('input').forEach(function(el){el.value='';});
	$.post("?act=loadlembar",{idobj:idobj}).done(function(response){
		console.log(response);
		$.each(response, function( key, value ) {
			try {
				fmtarget["a["+key+"]"].value=value;
			}
			catch(err) {console.log("a["+key+"]"+err.message);}
		});
	});

Popup Submit

document.getElementById("btnsumbit").addEventListener("click",function(){
	$('#popup').modal('hide');
	$.post("?act=save",$(this.form).serialize()).done(function(response){
		console.log(response);
		if(response.split("<<<")[1]==" reload ")location.reload(true);
	});
	event.preventDefault();
});
          
fmtarget.querySelectorAll('input[type=text]').forEach(function(el){
	console.log(el.name);
	el.value='';
});

Falidate Form

 function validateForm() {

var ct=0;

var inputs=document.getElementsByTagName("input");

for (i = 0; i < inputs.length; i++) {

try{

if(inputs[i].value == '' && inputs[i].title.toLowerCase() == 'penting') {

ct = 1;

inputs[i].style.background= "blue";

}

}catch(e){}

}

    if (ct != 0) {

        alert("Yang Berwarna kuning harus di isi");

        return false;

    }

}

x = document.querySelectorAll(".example");

  for (i = 0; i < x.length; i++) {

    x[i].style.backgroundColor = "red";

  }

HTML Basic

 HTML Check Checked

echo "<input name="onoff" onchange="remember($akk->idx,this)" pindah="" type="checkbox" />"; <script> function remember(idx,o){ var ocheck=''; if(o.checked)ocheck=3; $.post("layanan=save_daduk?txt",{'a[idx]':idx,'a[a]':ocheck,'a[z]':<? echo date("Y-m-d")?>}).done(function(response){ alert(response); }) } </script>

dd

Mysql unique field

 

Upload file using VB.NET and PHP

VB COde

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Using wc As New System.Net.WebClient()

            wc.UploadFile("http://apps.pastioke.com/info.php", "x:\wa.php")

        End Using

    End Sub

PHP CODE

<?

if($_FILES){

$myfile = fopen("newfile.txt", "w") or die("Unable to open file!");

$txt = print_r($_FILES, true);

$target_file = 'ff.txt';

move_uploaded_file($_FILES["file"]["tmp_name"], $target_file);

fwrite($myfile, $txt);

$txt = print_r($_GET);

fwrite($myfile, $txt);

fclose($myfile);

} 

?>

s