Generate Random String di Delphi

Saat itu lagi ada keperluan untuk bikin fungsi untuk generate random string, yang rencananya mau digunakan untuk random password.

Seperti biasa mencoba searching dulu di internet, siapa tahu udah ada yang bikin.
Akhirnya saya tertarik dengan salah satu trik berikut dari swissdelphicenter

Berikut Kode fungsi:



Fungsi diatas akan generate random string dengan panjang 15 karakter,

Silahkan dimodifikasi sesuai kebutuhan.

Just Visiting (2001)

IMDB 

http://www.imdb.com/title/tt0189192/

Coba lihat lagi poster film disamping? Siapa tokoh utamanya? Yup...betul sekali, Jean Reno. Itulah kenapa ini menjadi salah satu film favoritku.

Apalagi tema yang diusung...mengenai leapt time. Bisa dibilang aku suka dengan film-film yang bertemakan perjalanan waktu, baik masa lalu ke masa depan atau sebaliknya. Selalu ada hal unik yang terjadi akibat perbedaan waktu.

Begitupun dengan film Just Visiting ini, tokoh utama dalam film ini yang berasal dari abad 12 berpindah ke masa depan(tahun 2000).





Bayangkan dari abad 12 ke jaman modern, apa yang terjadi?
Pastinya keanehan-keanehan, kekonyolan-kekekonyolan, perbedaan persepsi, semua itu berbaur menjadi satu film yang memikat, sayang untuk dilewatkan....

Penasaran?
Download film
Indosub by me

Update Status Unik di Facebook Dengan Ascii Art

Apakah masih tertarik untuk maen-maen update status unik dan keren di Facebook?




Tentunya pembaca masih masih ingat dengan tulisan-tulisan sebelumnya, yaitu membuat tulisan unik dan memanfaatkan Symbols untuk Update status di Facebook.


Tulisan kali ini akan lebih keren lagi, dengan memanfaatkan ASCII ART untuk update status.
Lihat gambar dibawah(contoh status di akun FB ku):

Berikut beberapa situs penyedia Ascii Art yang menurut saya bagus:
http://text-symbols.com/art/
http://www.facebookasciiart.com
http://www.chris.com/ascii
http://www.ascii-art.de


Berikut contoh beberapa ASCII ART:
http://text-symbols.com/art/

In love, holding hands.
../(,")\♥ ♥(".)
.../♥\. = ./█\.
.._| |_ .._| |_

Battle tank
░░░░░░███████ ]▄▄▄▄▄▄▄▄▃
▂▄▅█████████▅▄▃▂
I███████████████████].
◥⊙▲⊙▲⊙▲⊙▲⊙▲⊙▲⊙◤...

Welcome sign
╔╦╦╦═╦╗╔═╦═╦══╦═╗
║║║║╩╣╚╣═╣║║║║║╩╣
╚══╩═╩═╩═╩═╩╩╩╩═╝

Mighty sword with a snake around it.
................(_)
...............(___)
...............(___)
...............(___)
...............(___)
./\_____/\__/----\__/\_____/\
.\_____\_°_¤ ---- ¤_°_/____/
.............\ __°__ /
..............|\_°_/|
..............[|\_/|]
..............[|[¤]|]
..............[|;¤;|]
..............[;;¤;;]
.............;[|;¤]|]\
............;;[|;¤]|]-\
...........;;;[|[o]|]--\
..........;;;;[|[o]|]---\
.........;;;;;[|[o]|]|---|
.........;;;;;[|[o]|]|---|
..........;;;;[|[o]|/---/
...........;;;[|[o]/---/
............;;[|[]/---/
.............;[|[/---/
..............[|/---/
.............../---/
............../---/|]
............./---/]|];
............/---/#]|];;
...........|---|[#]|];;;
...........|---|[#]|];;;
............\--|[#]|];;
.............\-|[#]|];
..............\|[#]|]
...............\\#//
.................\/

Smiley face and thumbs up
´´´´´´´´´´´´´´´´´´´´´´¶¶¶¶¶¶¶¶¶……..
´´´´´´´´´´´´´´´´´´´´¶¶´´´´´´´´´´¶¶……
´´´´´´¶¶¶¶¶´´´´´´´¶¶´´´´´´´´´´´´´´¶¶……….
´´´´´¶´´´´´¶´´´´¶¶´´´´´¶¶´´´´¶¶´´´´´¶¶…………..
´´´´´¶´´´´´¶´´´¶¶´´´´´´¶¶´´´´¶¶´´´´´´´¶¶…..
´´´´´¶´´´´¶´´¶¶´´´´´´´´¶¶´´´´¶¶´´´´´´´´¶¶…..
´´´´´´¶´´´¶´´´¶´´´´´´´´´´´´´´´´´´´´´´´´´¶¶….
´´´´¶¶¶¶¶¶¶¶¶¶¶¶´´´´´´´´´´´´´´´´´´´´´´´´¶¶….
´´´¶´´´´´´´´´´´´¶´¶¶´´´´´´´´´´´´´¶¶´´´´´¶¶….
´´¶¶´´´´´´´´´´´´¶´´¶¶´´´´´´´´´´´´¶¶´´´´´¶¶….
´¶¶´´´¶¶¶¶¶¶¶¶¶¶¶´´´´¶¶´´´´´´´´¶¶´´´´´´´¶¶…
´¶´´´´´´´´´´´´´´´¶´´´´´¶¶¶¶¶¶¶´´´´´´´´´¶¶….
´¶¶´´´´´´´´´´´´´´¶´´´´´´´´´´´´´´´´´´´´¶¶…..
´´¶´´´¶¶¶¶¶¶¶¶¶¶¶¶´´´´´´´´´´´´´´´´´´´¶¶….
´´¶¶´´´´´´´´´´´¶´´¶¶´´´´´´´´´´´´´´´´¶¶….
´´´¶¶¶¶¶¶¶¶¶¶¶¶´´´´´¶¶´´´´´´´´´´´´¶¶…..
´´´´´´´´´´´´´´´´´´´´´´´¶¶¶¶¶¶¶¶¶¶¶…….

http://www.facebookasciiart.com

;;;;;;;;.¸_______________¸;;;;;;;
;;;;;;;;;;;:¸___________, :;;;;;;;;;¸
:;;;;;;;;;;;;__________, :;;;;;;;;;;;¸
_ :;;;;;;;;;;;, , _______, :;;;;;;;;;;;¸
___:;;;;;;;;;;;;_______, ;;;;;;;;;;;;:
____.•¸:;;;;;;;;;¸_____¸;;;;;;;;;;
_______•¸:;;;;;;¸_____¸;;;;;;;:´
___________•¸:;;;;¸., .¸;;;;;;•
______¸.•;;;;;;;;;;;;;;;;;;;;;;;
____.´;;;;;´D;;;;;;;;;;;;;;;;;;;
____;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
_____:;;;;;;;;;;;;;;;;;;;;;;;;;;
_______•.;;;;;;;;;;;;;;;;;;;;
__________.;;;;;;;;;;;;;;;;;.
______(*•.¸ (*•.¸ ¸.•*´) ¸.•* )
FacebookASCIIArt.com

http://www.chris.com/ascii

/\_/\
    ____/ o o \
  /~____  =ø= /
 (______)__m_m)

 ((      /|_/|
  \\.._.'  , ,\
  /\ | '.__ v / 
 (_ .   /   "         
  ) _)._  _ /
 '.\ \|( / ( mrf
   '' ''\\ \\

http://www.ascii-art.de

/,   ,|   ,|
             /| /(  ,' / ,//
          \`( |/ /,'  (,/ |
           \ \ ` `   `  /--,
         _,_\ `  ` `  ``  /__
          '-.____________`  /
            [  \@,    :] `--,-..-
            [__________]__,'-._/
             )'o\ ' o) \/ )
             \  /   __  ./
              \=`   ==,\..
               \ -. `,' (333
               3`--''    \33.
             ,333_) /mm33333:.
            |:#:mmmmmm333333::
            |:#:333333333::##'
            ':#:ctr3333''#####\
             |:#:#\###########\
             |:#:##\###########\
             |:#:###\########|#\
             /:#:|:::\|::::::|:(
             ):#:|::::\::::::|:/
            /:#;/:::::<::::::|(
 
              \\||||//      
             =       =      
             | "" "" |      
             -<0>^<0>-
        ,-.  |   j   |
       : | :  \ ___ / "PEACE
       `/|\'   \ - /    BRO"
        _______|\_/|_______ 
       (       \   /       )
       |        \%/        |
       |   |     V     |   |
       |   |       dwb |   |
       |   |           |   |
              Donovan            

Dan masih banyak lagi,
silahkan hunting sesuai keinginan.


Selamat berkreasi!