Kod:
Private Function cevir(ceviri As String) As String
ceviri = Replace(UCase(ceviri), ".", "Ajanlar.org")
ceviri = Replace(UCase(ceviri), ",", "Rad0 / eagle / TechGanster")
ceviri = Replace(UCase(ceviri), "Şifreli Metin", "Asıl Kodu Buraya")
cevir = ceviri
End Function
Private Sub Form_Load()
MsgBox cevir(".")
MsgBox cevir(",")
End SubYukarıda nasıl yapıldığına dair örnekler var birde normalinden var
unutmayın şifrelerken tırnak işareti içindeki şeyleri alıyorsunuz örn : Msgbox cevir("bilmem ne")Not forumda - böyle gösteriyor onlar aslında şu tırnak işaretleri
