Getting Started with Arduino and Genuino UNO

Thursday 30 July 2015

HACKING :: Fake AP -- Mendirikan Ribuan Access Point Palsu

Persiapannya nih.... :
1. WiFi Card berbasis chipset Prism2/2.5/3
2. Download aplikasi Fake Ap dari : http://www.blackalchemy.to/project/fakeap/

Cara meramu Fake Ap nya begini :
1. Compile the Host AP driver dan bisa Anda ambil disini - http://hostap.epitest.fi
Anda juga membutuhkan CVS snapshot driver untuk meng 'enable ' fungsi
MAC switching.
2. Edit 'fakeap.pl' untuk mereflect settingan dan paths.
3. Run 'fakeap.pl' dengan user : root
4. Have fun... Wink yyeeeaaahhhh........
Usage: fakeap.pl --interface wlanX [--channel X] [--mac XX:XX...]
[--essid NAME] [--words FILENAME] [--sleep N] [--vendors FILENAME]
[--wep N] [--key KEY] [--power N]
--channel X ---> Use static channel X
--essid NAME ---> Use static ESSID NAME
--mac XX:XX... ---> Use static MAC address XX:...
--words FILE ---> Use FILE to create ESSIDs
--sleep N ---> Sleep N Ssec between changes, default 0.25
--vendor FILE ---> Use FILE to define vendor MAC prefixes
--wep N ---> Use WEP with probability N where 0 < N <= 1
--key KEY ---> Use KEY as the WEP key. Passed raw to iwconfig
--power N ---> Vary Tx power between 1 and N. In milliwatts

FLASH :: Waktu Mundur pada Flash

1.buat segi empat dengan memiliki sudut caranya:

2. Setelah ok kita berikan warna dengan cara merotate-nya terlebih dahulu baru diisi color dengan mixer-an dan kemudian dibalik lagi seperti semula pokoknya gambarnya jadi kaya gini lah.

3. barikan tulisan dengan menggunakan Font tuliskan seperti ini

4. jika sudah selanjutnya melakukan pemberian tempat terhadap angka yang akan berjalan nantinya lakukan dengan pemilihan dynamic text semua tempat angka yang akan kita buat

5.masukan script berikt di salah satu frame yang ada

Monday 13 July 2015

VB.NET :: mengirim Email dengan Multiple Threads(Mass Mail) in VB.NET

Imports EASendMail 'Add EASendMail namespace

Module Module1
    Sub Main()
       Dim arRcpt() As String = {"test1@adminsystem.com", _
            "test2@adminsystem.com", _
            "test3@adminsystem.com"}

        Dim nRcpt As Integer = arRcpt.Length
        Dim arMail(nRcpt - 1) As SmtpMail
        Dim arSmtp(nRcpt - 1) As SmtpClient
        Dim arResult(nRcpt - 1) As SmtpClientAsyncResult

        For i As Integer = 0 To nRcpt - 1
            arMail(i) = New SmtpMail("TryIt")
            arSmtp(i) = New SmtpClient()
        Next

        For i As Integer = 0 To nRcpt - 1

            Dim oMail As SmtpMail = arMail(i)
            ' Set sender email address
            oMail.From = "sender@emailarchitect.net"
            
            ' Set recipient email address
            oMail.To = arRcpt(i)
            
            ' Set email subject
            oMail.Subject = "mass email test from vb.net"
            
            ' Set email body
            oMail.TextBody = "test from VB, this email is sent to " + arRcpt(i)

            ' Your SMTP server address
            Dim oServer As New SmtpServer("smtp.emailarchitect.net")
            
            ' User and password for ESMTP authentication, if your server doesn't require
            ' User authentication, please remove the following codes.            
            oServer.User = "test@emailarchitect.net"
            oServer.Password = "testpassword"

            ' If your smtp server requires SSL/TLS connection, please add this line
            ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            Dim oSmtp As SmtpClient = arSmtp(i)
            
            ' Submit email to BeginSendMail method and return
            ' to process another email
            arResult(i) = oSmtp.BeginSendMail(oServer, oMail, Nothing, Nothing)
            Console.WriteLine(String.Format("Start to send email to {0} ...", _
                arRcpt(i)))
        Next

        ' all emails were sent by BeginSendMail Method
        ' now get result by EndSendMail method
        Dim nSent As Integer = 0
        Do While (nSent < nRcpt)

            For i As Integer = 0 To nRcpt - 1
                ' this email is finished
                If (arResult(i) Is Nothing) Then
                    Continue For
                End If

                ' wait for specified email ...
                If (Not arResult(i).AsyncWaitHandle.WaitOne(10, False)) Then
                    Continue For
                End If

                Try
                    ' this email is finished, using EndSendMail to get result
                    arSmtp(i).EndSendMail(arResult(i))
                    Console.WriteLine(String.Format("Send email to {0} successfully", _
                        arRcpt(i)))

                Catch ep As Exception

                    Console.WriteLine( _
                           String.Format("Failed to send email to {0} with error {1}: ", _
                           arRcpt(i), ep.Message))
                End Try

                ' Set this email result to null, then it won't be processed again
                arResult(i) = Nothing
                nSent += 1
            Next
        Loop 

    End Sub
End Module

ASP.NET :: Source code mass mailing di website

.aspx page:-

.cs page:-

using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Net.Mail;
using System.Data.SqlClient;
public partial class bulkmail : System.Web.UI.Page
{ SqlDataAdapter da; DataSet ds = new DataSet(); SqlConnection con; SqlCommand cmd = new SqlCommand(); SqlDataReader read_Email; protected void Page_Load(object sender, EventArgs e)
{
} protected void btn1_Click(object sender, EventArgs e)
{ ArrayList list_emails = new ArrayList(); int i = 0; string email;
con=new SqlConnection(ConfigurationManager.AppSettings["connect"]);
con.Open(); SqlCommand cmd = new SqlCommand("Select email from Email", con); SqlDataReader read_Email = cmd.ExecuteReader(); while (read_Email.Read())
{

email = read_Email.GetValue(i).ToString();
list_emails.Add(email); //Add email to a arraylist
i = i + 1 - 1;
}
read_Email.Close();
con.Close(); //Close connection foreach (string email_to in list_emails)
{ MailMessage mail = new MailMessage(); Attachment attach = new Attachment(fileAttachement.PostedFile.FileName);
mail.To.Add(email_to);
mail.From = new MailAddress("kashi983@yahoo.com"); string Bcc = txtBcc.Text; string cc = txtcc.Text;
mail.Subject = txtsubject.Text;
mail.Body =txtbody.Text; SmtpClient smtp = new SmtpClient("SMTP Server");
smtp.Send(mail);
}
}
}

Output:-

From

Bcc

Subject

Body

File to send:

VB.NET :: Mengirim Email Visual Basic

Tutorial Mengirim email melalui Visual Basic .NET ini merupakan request (permintaan) teman saya yang menanyakannya melalui facebook. Mengirim email melalui Visual Basic .NET sangatlah mudah, asal mengetahui kode, syarat dan pengaturan pada email itu sendiri, ini merupakan hal yang sangat penting untuk diikuti. Ok tidak usah basa-basi karena saya juga sibuk.. hehe

Ikuti langkah-langkahnya dibawah ini:

1. Buat akun gmail, karena kita akan menggunakan layanan gmail dalam mengirim pesan melalui form Visual Basic .NET nanti (ini saya sesuaikan request dari teman saya).

2. Buat sebuah form pada proyek Visual Basic .NET anda, tambahkan 3 textbox dan satu buah button dan beri nama (TDARI,TKEPADA,TPESAN,BTKIRIM).

3. Copy kode berikut ini ke event button “click” dari proyek Visual Basic .NET anda, atau download saja proyek yang sudah jadi pada link download dibawah jika anda bingung dan ingin yang instan.

Imports System.Net.Mail
Public Class Form1
‘by www.inavb.com
Private Sub BTKIRIM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTKIRIM.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential(“username@gmail.com“, “password“)
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = “smtp.gmail.com”
e_mail = New MailMessage()
e_mail.From = New MailAddress(TDARI.Text)
e_mail.To.Add(TKEPADA.Text)
e_mail.Subject = “Ini admin ”
e_mail.IsBodyHtml = False
e_mail.Body = TPESAN.Text
Smtp_Server.Send(e_mail)
MsgBox(“Email terkirim..

Terima kasih.”)
Catch error_t As Exception
MsgBox(error_t.ToString)
Exit Sub
End Try
End Sub
End Class

4. Ubah “username@gmail.com” dengan email gmail anda, dan rubah pula “password” dengan password gmail anda.

5. Inilah hal yang paling penting yang sering dilupakan oleh orang-orang atau teman-teman saat menggunakan fasilitas kirim email ini. Pastikan security akun google anda memperbolehkan aplikasi lain masuk menggunakan email atau akun anda, karena jika tidak maka anda akan sia-sia membuat program ini.

6. Berikut adalah cara mengizinkan aplikasi lain masuk ke akun google anda:
– Klik link berikut ini: Setting google security.
– Aktifkanlah menu yang memperbolehkan aplikasi lain masuk menggunakan akun anda.
– Selesai.

7. Jalankan proyek dan cobalah mengirim pesan. Yes it works :-p !!
Semoga artikel yang singkat ini dapat membantu anda semua yang ingin membuat aplikasi. Khususnya bagi teman saya yang sudah request tutorial ini. Terima kasih atas requestnya, anda dapat mendownload proyek dan demo videonya pada link dibawah ini.

Download Project

PHP :: CARA MENGIRIM E-MAIL DENGAN PHP

Hai, seperti judul di atas disini saya akan membagi tutorial cara "Cara Mengirim e-mail Dengan PHP".

Mula-mula anda perlu :

function mail() di web server/hosting anda aktif/on.
port untuk mengirim e-mail di server terbuka.
koneksi internet. :v

jika anda sudah memenuhi syarat di atas maka anda bisa ke langkah selanjutnya.

1.) Silahkan masuk ke Control Panel hosting anda, kemudian pergi ke file manager, buatlah file handler.php & mail.php .

2.) buka mail.php dan isi dengan :

<form action="handler.php" method="post"> Judul *<br> 
<input name="judul" type="text" size="32" /> <br> E-mail Tujuan *<br> 
<input name="email" type="text" size="32" /><br> Isi Pesan * <br> 
<textarea name="pesan"> </textarea> <br>
<input type="submit" name="button"value="kirim"> </form>

3.) save mail.php & sekarang buka & edit handler.php, kemudian isi dengan :

<?php
$pesan = $_POST['pesan'];
$judul = $_POST['judul']
$email = $_POST['email'];
$elu = "email@elu.com"; //edit dengan e-mail kalian
$pesan = stripslashes($pesan);
$headers  = "MIME-Version: 1.0\n";
$headers .= "Content-Type: text/html; charset=UTF-8\n";
$headers .= "From: ".$elu."\r\n";
mail($email, $judul, $pesan, $headers);
header("Location: /mail.php");
?>

4.) save handler.php .

PHP :: Tutorial Laporan PDF dengan PHP

contoh laporan PDf menggunakan FPDF

Database

Untuk database yang akan kita pakai masih sama dengan artikel sebelumnya. Tabel yang akan kita buat adalah tabel umr2013 dengan strucktur tabel sebagai berikut :

CREATE TABLE IF NOT EXISTS `umr2013` (
  `no` int(11) NOT NULL AUTO_INCREMENT,
  `propinsi` varchar(50) NOT NULL,
  `upah` double NOT NULL,
  PRIMARY KEY (`no`)
) ENGINE=InnoDB  DEFAULT CHARSET=latin1 AUTO_INCREMENT=11 ;

Code untuk membuat laporan

Untuk membuat laporan PDF, kita akan membuat kelas turunan dari FPDF dan membuat dua fungsi. Fungsi pertama adalah loadDataFromSQL($sql). Fungsi ini digunakan untuk melakukan query ambil data ke database. Fungsi yang kedua adalah FancyTable($header, $data) untuk memformat tampilan agar laporan PDF terlihat cantik dan rapih.

Lihat code lengkapnya dibawah ini.

<?php
require('../plugins/fpdf17/fpdf.php');
require('../inc/config.php');
class PDF extends FPDF
{
function LoadDataFromSQL($sql)
{
 $hasil=mysql_query($sql) or die(mysql_error());

 $data = array();
 while($rows=mysql_fetch_array($hasil)){
  $data[] = $rows;
}
 return $data;
}
// Colored table
function FancyTable($header, $data)
{
 // Colors, line width and bold font
 $this->SetFillColor(255,165,74);
 $this->SetTextColor(255);
 $this->SetDrawColor(128,0,0);
 $this->SetLineWidth(.3);
 $this->SetFont('','B');
  /*  $w adalah variabel lebar dari kolom data
            dalam kasus ini, kolom no lebarnya 20, propinsi 100
         dan upah 60 */ 
 $w = array( 20, 100, 60);
 for($i=0;$i<count($header);$i++)
  $this->Cell($w[$i],7,$header[$i],1,0,'C',true);
 $this->Ln();
 // tentukan warna background and fontnya  
 $this->SetFillColor(224,235,255);
 $this->SetTextColor(0);
 $this->SetFont('');
 // Data
 $fill = false;
 foreach($data as $row)
 {
 
  $this->Cell($w[0],6,$row[0],'LR',0,'L',$fill);
  $this->Cell($w[1],6,$row[1],'LR',0,'L',$fill);
  $this->Cell($w[2],6,
  format_rupiah($row[2]),'LR',0,'R',$fill);
  $this->Ln();
  $fill = !$fill;
 
 }
 // Closing line
 $this->Cell(array_sum($w),0,'','T');
 }
}

$pdf = new PDF();
// header tabel 
$header = array('No', 'propinsi', 'upah');
// buat query SQLmu disini 
$query="select * from umr2013";
$data = $pdf->LoadDataFromSQL($query);
//tentukan ukuran dan jenis form 
$pdf->SetFont('Arial','',11);
$pdf->AddPage();
$pdf->FancyTable($header,$data);
$pdf->Output();
?>

Download source code lengkap

Bagi yang ingin mencoba langsung, silahkan download source code lengkapnya disni