- Katılım
- 29 Mar 2009
- Konular
- 695
- Mesajlar
- 2,980
- Reaksiyon Skoru
- 121
- Altın Konu
- 1
- TM Yaşı
- 17 Yıl 2 Ay 19 Gün
- Başarım Puanı
- 175
- MmoLira
- 3
- DevLira
- 0
ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!
'encryption function :
Public Function Encrypt(ByVal Plain As String)
For I=1 To Len(Plain)
Letter=Mid(Plain,I,1)
Mid(Plain,I,1)=Chr(Asc(Letter)+1)
Next
Encrypt = Plain
End Sub
Public Function Decrypt(ByVal Encrypted As String)
For I=1 to Len(Encrypted)
Letter=Mid(Encrypted,I,1)
Mid(Encrypted,I,1)=Chr(Asc(Letter)-1)
Next
Decrypt = Encrypted
End Sub
Print Encrypt("This is just an example")
Print Decrypt("Uijt!jt!kvtu!bo!fybnqmf")
Public Function Encrypt(ByVal Plain As String)
For I=1 To Len(Plain)
Letter=Mid(Plain,I,1)
Mid(Plain,I,1)=Chr(Asc(Letter)+1)
Next
Encrypt = Plain
End Sub
Public Function Decrypt(ByVal Encrypted As String)
For I=1 to Len(Encrypted)
Letter=Mid(Encrypted,I,1)
Mid(Encrypted,I,1)=Chr(Asc(Letter)-1)
Next
Decrypt = Encrypted
End Sub
Print Encrypt("This is just an example")
Print Decrypt("Uijt!jt!kvtu!bo!fybnqmf")
- Katılım
- 9 Tem 2009
- Konular
- 1
- Mesajlar
- 21
- Reaksiyon Skoru
- 1
- Altın Konu
- 0
- TM Yaşı
- 16 Yıl 11 Ay 12 Gün
- Başarım Puanı
- 47
- MmoLira
- 0
- DevLira
- 0
teşekkürler...
- Katılım
- 6 Ağu 2009
- Konular
- 0
- Mesajlar
- 5
- Reaksiyon Skoru
- 0
- Altın Konu
- 0
- TM Yaşı
- 16 Yıl 10 Ay 14 Gün
- Başarım Puanı
- 44
- MmoLira
- 0
- DevLira
- 0
ben bundan bir sik anlamadım saol yenede güzel çalışıyor aklın
