• Gizli içerikleri açmak için anlamsız yorum yapmak, script isteğinde bulunmak ve link kısaltmak BAN sebebidir.

Küçük bir kriptografi programı.

indepc4t

Üye
Katılım
23 Şub 2018
Mesajlar
8
Tepkime puanı
0
Puanları
0
Vbs dili ile kodlanan bu program küçük bir kriptografi programı örneğidir:

----------------------------------------------------------

Bu kodu metin belgesine yapıştırıp .vbs olarak kaydetmeniz gerekmektedir.

Kod:
set x = WScript.CreateObject("WScript.Shell")[/SIZE][/SIZE]
[SIZE=3][SIZE=4]mySecret = inputbox("Şifrelenecek yazıyı girin")
mySecret = StrReverse(mySecret)

x.Run "%windir%\\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)
function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt)+3)
coded = coded & newtxt
Next
encode = coded 
End Function

----------------------------------------------------------

Daha sonra bir de yukarıdaki kodlarla şifrelenen yazıyı çözmek için aşağıdaki kodları yine metin belgesine yapıştırıp .vbs olarak kaydedelim.


Kod:
set x = WScript.CreateObject("WScript.Shell")[/SIZE][/SIZE][/SIZE][/SIZE]
[SIZE=4][SIZE=3][SIZE=4][SIZE=3]mySecret = inputbox("Şifresi Çözülecek yazıyı girin")
mySecret = StrReverse(mySecret)

x.Run "%windir%\\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)
function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt)-3)
coded = coded & newtxt
Next
encode = coded 
End Function


Böylece 2 program elde etmiş olduk.

1-) Şifreleyeci

2-) Şifreyi Çözücü
 
Moderatör tarafında düzenlendi:
Üst