Xperia X10 Sony Ericsson

Pull out your Xperia™ X10 touchscreen phone, press the infinite button and enjoy it all - friends, artists and more. Here and now.

Addicted to friends - Timescape™
Take a personalised tour of Timescape™ using your Facebook™ feed and see all your conversations and updates in one view.

Fun to the core - Mediascape
Wanna quench your thirst for fun? Take a sip of Sony Ericsson Mediascape - all your music, videos and photos, just waiting to be enjoyed

Seen that face before?
The Xperia™ X10 recognises up to five faces in a photo and automatically stores them under your friends in your phone.

Xperia X10 features

Update your Xperia™ X10

- Free backup and restore application for your contacts, messages, bookmarks, settings, etc.
- Improved usability of camera, media player, etc.
- Improved overall phone performance.
- PlayNow™, with premium apps and games available in selected markets.

Timescape™ - meet your mates

Sony Ericsson Timescape™ lets all your communication with a person come together in one place. Facebook™, Twitter™, emails, photos, text messages - all gathered, so you don't have to open loads of different apps to see what's going on.

Mediascape. For serious entertainment

Online or stored in your phone: with Mediascape, all your music, photos and videos are in one place. You access your media from everywhere - PlayNow™, YouTube™, your phone memory.

Want everything from everywhere?

All your comms with your friends via Timescape™, all the artist info you want through Mediascape: just touch the infinite button and have it all. Instantly.

You choose - Android Market™

Going out? Finding out? Or perhaps just chilling out? Download any application you want from Android Market™ and customise your Xperia™ X10 to make it exclusively yours.

Find the way - aGPS

You'll never get lost again. Your phone has built-in aGPS. Location-based services like Google Maps™ and Wisepilot help you find the way to your destination. Or add location info to your images - use the geo-tagging function.

HSPA - serious speed

Turbo 3G gives you broadband-like speed in your phone. Download large files and email attachments in a snap. Get Web sites and news feeds to your screen in seconds.

Transfer your old phonebook to your new phone

By setting up your old phone to sync with Sony Ericsson, you can transfer Contacts, Calendar, Notes and Bookmarks from your old phone to your new one. (It works even if your old phone is of another make.) Sony Ericsson Sync also makes it possible for you to access and manage up-to-date information in your mobile phone from the Internet - anytime, anywhere with Sony Ericsson Sync.

spesification

Size 119.0 x 63.0 x 13.0 mm
4.7 x 2.5 x 0.5 inches
Available colours Sensuous Black
Luster White
Weight 135.0 g
4.8 oz
Memory microSD™ up to 16GB, 8GB included
Phone memory 1GB

* Actual free memory may vary due to phone pre-configuration
Screen 4" capacitive touchscreen

source : sonyericsson.com
Selengkapnya...

encrypt and decrypt with vb

Public Function Encrypt(ByVal Teks As String) As String
Dim Panjang_Teks As Integer
Dim Teks_Baru As String

Karakter = ""
Panjang_Teks = Len(Teks)

For i = 1 To Panjang_Teks
Karakter = Mid(Teks, i, 1)
Select Case Asc(Karakter)
Case 65 To 90 'huruf besar
Karakter = Chr(Asc(Karakter) + 100)
Case 97 To 122 'huruf kecil
Karakter = Chr(Asc(Karakter) + 100)
Case 48 To 57 'angka
Karakter = Chr(Asc(Karakter) + 100)
Case 32 'spaci
Karakter = Chr(32)
End Select
Teks_Baru = Teks_Baru + Karakter
Next
Encrypt = Teks_Baru
End Function


Public Function Decrypt(ByVal Teks As String) As String
Dim Panjang_Teks As Integer
Dim Teks_Baru As String

Karakter = ""
Panjang_Teks = Len(Teks)

For i = 1 To Panjang_Teks
Karakter = Mid(Teks, i, 1)
Select Case Asc(Karakter)
Case 165 To 190
Karakter = Chr(Asc(Karakter) - 100)
Case 197 To 222
Karakter = Chr(Asc(Karakter) - 100)
Case 148 To 157
Karakter = Chr(Asc(Karakter) - 100)
Case 32
Karakter = Chr(32)
End Select
Teks_Baru = Teks_Baru + Karakter
Next
Decrypt = Teks_Baru
End Function

Private Sub Command1_Click()
Text2 = Encrypt(Text1)
End Sub

Private Sub Command2_Click()
Text3 = Decrypt(Text2)
End Sub

check this out for example encrypt decrypt with vb 06
Selengkapnya...