Situs Poker Online Terpercaya

Uncategorized

Situs Poker Online Terpercaya

12:01 PM Komentar

Situs Poker Online Terpercaya:  www.afapoker.com

situs poker online uang asli terbaik dan terpercaya di Indonesia.

www.afapoker.com menawarkan layanan permainan poker online terbaik, terpercaya dan teraman, dan didukung staff profesional yang

siap membantu layanan transaksi deposit dan withdraw anda 24jam(selama bank online) dan melayani keluhan dan pertanyaan anda melalui menu memo kami 24jam.

Dimana kenyamanan, keamanan pengalaman bermain poker menggunakan uang asli yang terbaik akan anda rasakan di www.afapoker.com.


Cara mendapatkan userid di afapoker.com adalah sebagai berikut :

- Klik menu daftar pada halaman depan atau tombol registrasi dan akan muncul seperti dibawah ini :

1. - Username : diisi dengan nama login yang agan inginkan (Minimal 2 karakter)
   
   - Password : Password tidak boleh mengandung tagan baca seperti titik koma tagan petik tagan seru tagan tanya atau spasi dan harus mengandung gabungan huruf dan angka. Password yang diterima adalah contoh : afapoker1234
   
   - Email : Email aktif agan(untuk info promo dari situs afapoker.com)
   
       Telepon : Isi dengan nomor telepon/handphone yang aktif !
   
   - Nama Rekening Bank : harap diisi sesuai dengan nama di buku tabungan agan. Perhatikan ejaan nama agan dengan benar. Nama yang tidak benar maka deposit tidak akan kami proses.
   
   - Nomor Rekening Bank: nomor rekening BCA agan 10 angka contoh 123-456-7890
   
   - Isi CAPTCHA dengan angka yang benar sesuai pada yang tampil dimenu daftar agan contoh sebagai berikut :
   
   - Jika agan masih mendapatkan kesulitan dalam mendaftar pastikan agan membaca petunjuk yang ada di tampilan menu pendaftaran dengan baik.
   
   Syarat dan ketentuan yang harus ketahui sebelum membuat userID afapoker.com :
   
   - Satu rekening bank hanya bisa di daftarkan ke satu USERID saja.
   
   - Alamat email haruslah valid karena sangat berguna pada saat agan lupa Password.
   
   - Nama Rekening Bank adalah nama agan yang tertera di BUKU TABUNGAN agan.
   
   - Untuk agan yang memiliki nama TUNGGAL atau tidak mempunyai nama panjang contoh: YUDI, PALDI dll. Disarankan untuk transfer deposit ke rekening kami dengan nominal yang unik, contoh : Rp. 100.123, Rp.1.000.547,- Untuk mempercepat proses deposit agan.
   
   Afapoker.com tidak pernah mengirimkan REKENING DEPOSIT melalui SMS ataupun EMAIL.
   
   Deposit adalah mengirim uang ke rekening kami yang tersedia di menu deposit untuk ditukarkan menjadi CHIPS dalam permainan. Bagaimana cara melakukan DEPOSIT ?
   
   Cara Melakukan Deposit :
   
       M0inimal Deposit di afapoker.com adalah Rp 10.00,- Khusus untuk member yang baru pertama kali melakukan deposit MAKSIMAL ( paling besar ) selama 3x (Tiga kali) deposit pertama adalah Rp. 750.000,- Untuk minimal deposit sama, yaitu Rp 10.000,-
       Pengiriman dana deposit haruslah tertuju ke rekening yang tertera di menu DEPOSIT. Harap selalu melakukan pengecekan REKENING AKTIF KAMI yang tertera di menu DEPOSIT sebelum melakukan pengiriman dana. Karena rekening aktif kami selalu berubah sesuai dengan volume transaksi yang ada di rekening tersebut.
       Setelah melakukan transfer ke rekening kami silahkan konfirmasi di menu DEPOSIT. Anda akan menemukan KOLOM yang harus di isi seperti dibawah ini :


2. CAPTCHA harus anda isi setelah anda melengkapi seluruh data deposit atau transfer yang anda lakukan contoh sebagai berikut:

Mari bergabung gan..

Baca selengkapnya

Lirik lagu dan kunci gitar - Esok kan bahagia D'masiv ft Ariel Giring dan Momo

Lirik dan kunci gitar

Lirik lagu dan kunci gitar - Esok kan bahagia D'masiv ft Ariel Giring dan Momo

6:20 PM Komentar

 Lirik lagu dan kunci gitar - Esok kan bahagia D'masiv ft Ariel Giring dan Momo

Intro : C

C                 G
Kesedihan hari ini
Am         Cm         C
Bisa saja jadi bahagia esok hari
C                        Em
Walau kadang kenyataan
       Am           C           F              C
Tak selalu seperti apa yang diinginkan

G                           C
Dan ku ikhlaskan s’galanya
     C         G                           C
Keyakinan ini membuatku bertahan

                          C
Hidup yang ku jalani
G                            Am
Masalah yang ku hadapi
G                      C
Semua yang terjadi
G                Am       F
Pasti ada hikmahnya

      C                  Em
Walau kadang kenyataan
         Am        C         F          C
Tak selalu seperti apa yang diinginkan..

G                            F
Kan ku serahkan semuanya
     G    basic-chord.blogspot.com      C
Keyakinan padaNya menjadikan ku tenang

                           C
Hidup yang ku jalani
G                            Am
Masalah yang ku hadapi
G                      C
Semua yang terjadi
G                Am       F
Pasti ada hikmahnya

                         C
Ku kan terus berjuang
G                     Am
Ku kan terus bermimpi
F                         C         G
Tuk hidup yang lebih baik
G                                C   F
Tuk hidup yang lebih indah
F            C                       G
Harus yakin (harus yakin), pasti bisa…

Int : C D F C
       C F G

G                        C
Hidup yang ku jalani
G                              C
Masalah yang ku hadapi
C                      G
Semua yang terjadi
G                     Cm
Pasti ada hikmahnya

F                           C
Ku kan terus berjuang
G                        Am
Ku kan terus bermimpi
F                                C
Tuk hidup yang lebih baik
G                              Am   F
Tuk hidup yang lebih indah

Solo : C G C F

F                           C
Ku kan terus berjuang
B                            C
Ku kan terus bermimpi
C             F                C
Tuk hidup yang lebih baik
C                                  F
Tuk hidup yang lebih indah
       Em                      C
Tuk hidup yang lebih baik
C                               Am        F
Tuk hidup yang lebih indah

      C        Em       Am          C      F   C
Kesedihan hari ini, bisa saja jadi bahagia
    F     C
Esok hari

Baca selengkapnya

Lirik Lagu Dan Kunci Gitar Christina Perri - Jar Of Hearts

Lirik dan kunci gitar

Lirik Lagu Dan Kunci Gitar Christina Perri - Jar Of Hearts

12:11 AM Komentar

Lirik Lagu Dan Kunci Gitar Christina Perri - Jar Of Hearts

 Am                                        C
    No, I can't take one more step towards you
G                                             Dm

  ‘Cause all that's waiting is regret
Am                                             C

    Don't you know I'm not your ghost anymore
G                                                   Dm
  You lost the love I loved the most

(Pre-chorus)



Dm                              C         G
    I learned to live, half a life
Dm                         C                            G

    And now you want me one more time

(Chorus)



C                                       G

  Who do you think you are?

                               Am
Runnin' 'round leaving scars

                                       F
Collecting your jar of hearts
                            C

And tearing love apart
                                       G

You're gonna catch a cold

                                         Am
From the ice inside your soul

                                         F
So don't come back for me

                                  C  
Who do you think you are?

(Verse 2)



(Pre-chorus)


(Chorus)

(Bridge)



Am                E                 C         D

 It took so long just to feel alright
    Am                      E                    C                D

Remember how to put back the light in my eyes
   Am               E                       C                      D

I wish I had missed the first time that we kissed
             Am             E             C  D

 ‘Cause you broke all your promises
          F

And now you're back
                              E

You don't get to get me back

(Chorus x 2)


Fm                                 C
Who do you think you are?     (x 3)

Baca selengkapnya

Nama - Nama Situs Judi Bola Online Terpercaya

Uncategorized

Nama - Nama Situs Judi Bola Online Terpercaya

8:38 AM 1 Komentar

Nama - nama situs judi bola online terpercaya

1. www.m88.com
2. www.188bet.com
3. www.365bet.com

Baca selengkapnya

Lirik lagu dan kunci gitar Republik - Selimut Tetangga

Lirik dan kunci gitar

Lirik lagu dan kunci gitar Republik - Selimut Tetangga

6:41 PM Komentar

 Lirik lagu dan kunci gitar Republik - Selimut Tetangga

Intro:C F Am C Dm G

Am                  C                     Dm
Bersabarlah sayang aku akan pulang
                           G                        Am
Jangan dengarkan gosip murahan tentang aku
Am                C            Dm
Berjanjilah sayang ku slalu setia
                            G
Meski ku tak Slalu disampingmu

F                       G
Tak usah kau menangis meratapi aku
F                          G         
Tak perlu kau berfikir ku meninggalkanku

Reff:
       F                   G
Mana mungkin selimut tetangga
             Em             Am
Hangati tubuhku dalam kedinginan
                Dm               G     
Malam-malam panjang setiap tidurku
          C    
Selalu kesepian

Gm        F               G
Mana mungkin selimut tetangga
             Em             Am
Hangati tubuhku dalam kedinginan
                Dm               G
Malam-malam panjang setiap tidurku
          C   
Selalu kesepian

Am                C            Dm
Berjanjilah sayang ku slalu setia
                            G
Meski ku tak Slalu disampingmu

F                             G
Tak usah kau menangis meratapi aku
F                          G   
Tak perlu kau berfikir ku meninggalkanku

Solo : Am C Dm G
      
C                       G
Tak usah kau menangis meratapi aku
C                         G   
Tak perlu kau berfikir ku meninggalkanku

Reff:
       F                   G
Mana mungkin selimut tetangga
             Em             Am
Hangati tubuhku dalam kedinginan
                Dm               G     
Malam-malam panjang setiap tidurku
          C    
Selalu kesepian

Gm        F               G
Mana mungkin selimut tetangga
             Em             Am
Hangati tubuhku dalam kedinginan
                Dm               G
Malam-malam panjang setiap tidurku
          C   
Selalu kesepian

Am               C
Bersabarlah sayang aku akan pulang

Baca selengkapnya

Lirik lagu dan kunci gitar Armada - Wanita Paling Berharga

Lirik dan kunci gitar

Lirik lagu dan kunci gitar Armada - Wanita Paling Berharga

12:57 AM Komentar

Lirik lagu dan kunci gitar Armada - Wanita Paling Berharga

[intro] Em

Em                Am
Kan ku utarakan kepadamu
   D              G
Semua yang ada di hatiku
Em              Am
Aku mencintai kamu
   B           Em    E
Dengarkan janjiku

[chorus]
      Am     D
Kan kusayang kau
       G         C
Sampai akhir dunia
      Am  F#     B
Kan kujadikan kamu wanita
       Am    D        G       C
Paling bahagia di seluruh dunia
       Am    F#     B
Karena kamulah Satu-satunya

Em                Am
Jadi terimalah oh cintaku
   D                G
Jangan kau patahkan hatiku
Em              Am
Aku mencintai kamu
  B            Em  E
Dengarkan janjiku

[chorus]
      Am     D
Kan kusayang kau
       G         C
Sampai akhir dunia
      Am  F#     B
Kan kujadikan kamu wanita
       Am    D        G       C
Paling bahagia di seluruh dunia
       Am    F#     B
Karena kamulah Satu-satunya

[interlude] Em
            Am D G C Am F# B 2x

[chorus]
      Am     D
Kan kusayang kau
       G         C
Sampai akhir dunia
      Am  F#     B
Kan kujadikan kamu wanita
       Am    D        G       C
Paling bahagia di seluruh dunia
       Am    F#     B
Karena kamulah Satu-satunya

Am   D   G    C
Ha haha  ha haha
Am    F#     B
Ha ha ha  ha ha haha
Am   D   G    C
Ha haha  ha haha
Am    F#     B
Ha ha ha  ha ha haha

Baca selengkapnya

PEMOGRAMAN KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )

TUGAS KAMPUS

PEMOGRAMAN KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )

4:58 PM Komentar

PEMOGRAMAN KRIPTOGRAFI

 ( Caesar ,Vernam, Gronsfled,Vigenere )

Public Class Form1

    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.show()

    End Sub

    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub KriptografiVigenereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVigenereToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Close()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Kemudian, bagian-bagian dari pada menu tersebut :

1. Kriptografi Caesar

Listing Program :

Public Class Form2

    Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(Plain.Text)

            x = Mid(Plain.Text, i, 1)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        Chiper.Text = xkalimat

    End Sub

    Private Sub BtnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDekripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(Chiper.Text)

            x = Mid(Chiper.Text, i, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        Plain.Text = xkalimat

   End Sub

Tampilannya :

2. Kriptografi Vernam

Listing Program :

Public Class Form3

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click

        Dim j As Integer

        Dim jum As Integer

        Dim sKey As String

        Dim nkata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim splain As String = ""

        Dim nEnc As Integer

        j = 0

        sKata = Plainteks.Text

        jum = Len(sKata)

        sKey = Kunci.Text

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nkata = Asc(Mid(sKata, i, 1)) - 61

            nKunci = Asc(Mid(sKey, j, 1)) - 86

            nEnc = ((nkata + nKunci) Mod 26)

            splain = splain & Chr((nEnc) + 61)

        Next i

        Chiperteks.Text = splain

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 61) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plainteks.TextChanged

    End Sub

    Private Sub Chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chiperteks.TextChanged

    End Sub

    Private Sub Kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 61) And (tombol <= 90)) Or (tombol = 80)) Then

            e.Handled = True

        End If

    End Sub

Tampilannya :

3. Kriptografi Gronsfeld

Listing Program :

Public Class Form4
    Private Sub Gronsfeld_Chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Input.Text = ""
        hasil.Text = ""
    End Sub

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        Dim ind As Integer
        Dim huruf, kalimat As String
        Dim jumlah(25) As Integer
        kalimat = (Input.Text).ToUpper
        For x = 1 To Microsoft.VisualBasic.Len(kalimat)
            huruf = kalimat.Substring(x - 1, 1)
            If (huruf >= "A") And (huruf <= "Z") Then
                ind = Asc(huruf) - 65
                jumlah(ind) += 1
            End If
        Next
        hasil.Text = ""
        For i As Integer = 0 To 25
            huruf = Chr(i + 65)
            If jumlah(i) > 0 Then
                hasil.Text = hasil.Text & huruf & " = " & jumlah(i) & vbCrLf
            End If
        Next
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

    Tampilannya :

4. Kriptografi ViGenere

Listing Program :

Public Class Form5

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        ChiperTeks.Text = Enkripsi(PlainTeks.Text, Kunci.Text)

    End Sub

    Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String

        Dim j As Integer

        Dim jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String

        Dim nEnc As Integer

        j = 0

        jum = Len(Teks)

        sPlain = ""

        sKey = Kunci

        sKata = Teks

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1))

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Enkripsi = sPlain

    End Function

End Class

Tampilannya :

Baca selengkapnya