Tekil Mesaj gösterimi
Alt 13 Haziran 2011, 22:53   #1
Çevrimdışı
yoSun
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
VB'de Morse alfabesi ve şifreleme




Güvenliğin öneminin arttıgı şu günlerde size yardımcı olabilmek için bilinen eski kodlamalardan(hatta 'sinyal bile diyebiliriz) olan morse alfabesi kullanarak metin dosyalarını şifreleme(crypt) ve deşifre etmek(decrypt) için hazırlamış oldugum bir program

'Değişken tanımlamaları

Dim Source() As String
Dim source2() As String
Dim Temp As String
Dim Temp2 As String
Dim Hold As String
Dim TextNum As Integer
Dim FullText As String
Dim n As Integer
Dim i As Integer
Dim FFILE
Dim newline As String
Dim alltext As String
Private Sub Command1_Click()

On Error Resume Next

txt1.Text = Replace(txt1.Text, ".", " . ")
txt1.Text = Replace(txt1.Text, "-", " - ")
txt2.Text = ""
FullText = ""
' kelimedeki harf sayısını al
TextNum = Len(txt1.Text)
prg1.Max = TextNum
For i = 0 To TextNum
Temp = Left(txt1.Text, Len(txt1.Text) - _
Len(Right(txt1.Text, Len(txt1.Text) - (i + 1))))

Hold = Right(Temp, Len(Temp) - i)


Temp2 = ChartoMorse(Hold)


FullText = FullText & Temp2 & " "

prg1.Value = i
Next i
txt2.Text = FullText
Beep
End Sub

Private Sub Command2_Click()

On Error Resume Next
txt1.Text = ""
FullText = ""
' geçerli karakterleri al ve parçalara böl 3 karak. boşluk bırakmayı unutma)
Source() = Split(txt2.Text, " ")

For n = 0 To UBound(Source())

source2() = Split(Source(n), " ")
' ilk satırdan son satıra kadar geçişi tamamla.
For i = 0 To UBound(source2())
' karakterleri al ve geçerli temp.'e kaydet
Temp = source2(i)
' Morse'a ekleyelim
Hold = MorsetoChar(Temp)
' Tüm texti ekleyelim
FullText = FullText & Hold
Next i
FullText = FullText & " "
Next n
txt1.Text = FullText
Beep
End Sub



Private Function ChartoMorse(Ch As String) As String

Select Case Ch
Case "A", "a"
ChartoMorse = ".-"
Case "B", "b"
ChartoMorse = "-..."
Case "C", "c"
ChartoMorse = "-.-."
Case "D", "d"
ChartoMorse = "-.."
Case "E", "e"
ChartoMorse = "."
Case "F", "f"
ChartoMorse = "..-."
Case "G", "g"
ChartoMorse = "--."
Case "H", "h"
ChartoMorse = "...."
Case "I", "i"
ChartoMorse = ".."
Case "J", "j"
ChartoMorse = ".---"
Case "K", "k"
ChartoMorse = "-.-"
Case "L", "l"
ChartoMorse = ".-.."
Case "M", "m"
ChartoMorse = "--"
Case "N", "n"
ChartoMorse = "-."
Case "O", "o"
ChartoMorse = "---"
Case "P", "p"
ChartoMorse = ".--."
Case "Q", "q"
ChartoMorse = "--.-"
Case "R", "r"
ChartoMorse = ".-."
Case "S", "s"
ChartoMorse = "..."
Case "T", "t"
ChartoMorse = "-"
Case "U", "u"
ChartoMorse = "..-"
Case "V", "v"
ChartoMorse = "...-"
Case "W", "w"
ChartoMorse = ".--"
Case "X", "x"
ChartoMorse = "-..-"
Case "Y", "y"
ChartoMorse = "-.--"
Case "Z", "z"
ChartoMorse = "--.."
Case "1"
ChartoMorse = ".----"
Case "2"
ChartoMorse = "..---"
Case "3"
ChartoMorse = "...--"
Case "4"
ChartoMorse = "....-"
Case "5"
ChartoMorse = "....."
Case "6"
ChartoMorse = "-...."
Case "7"
ChartoMorse = "--..."
Case "8"
ChartoMorse = "---.."
Case "9"
ChartoMorse = "----."
Case "0"
ChartoMorse = "-----"
Case " "
ChartoMorse = " "
Case "."
ChartoMorse = "^"
Case "-"
ChartoMorse = "~"
Case Else
ChartoMorse = Ch
End Select
End Function


Private Function MorsetoChar(Ch As String) As String

Select Case Ch
Case ".-"
MorsetoChar = "a"
Case "-..."
MorsetoChar = "b"
Case "-.-."
MorsetoChar = "c"
Case "-.."
MorsetoChar = "d"
Case "."
MorsetoChar = "e"
Case "..-."
MorsetoChar = "f"
Case "--."
MorsetoChar = "g"
Case "...."
MorsetoChar = "h"
Case ".."
MorsetoChar = "i"
Case ".---"
MorsetoChar = "j"
Case "-.-"
MorsetoChar = "k"
Case ".-.."
MorsetoChar = "l"
Case "--"
MorsetoChar = "m"
Case "-."
MorsetoChar = "n"
Case "---"
MorsetoChar = "o"
Case ".--."
MorsetoChar = "p"
Case "--.-"
MorsetoChar = "q"
Case ".-."
MorsetoChar = "r"
Case "..."
MorsetoChar = "s"
Case "-"
MorsetoChar = "t"
Case "..-"
MorsetoChar = "u"
Case "...-"
MorsetoChar = "v"
Case ".--"
MorsetoChar = "w"
Case "-..-"
MorsetoChar = "x"
Case "-.--"
MorsetoChar = "y"
Case "--.."
MorsetoChar = "z"
Case ".----"
MorsetoChar = "1"
Case "..---"
MorsetoChar = "2"
Case "...--"
MorsetoChar = "3"
Case "....-"
MorsetoChar = "4"
Case "....."
MorsetoChar = "5"
Case "-...."
MorsetoChar = "6"
Case "--..."
MorsetoChar = "7"
Case "---.."
MorsetoChar = "8"
Case "----."
MorsetoChar = "9"
Case "-----"
MorsetoChar = "0"
Case " "
MorsetoChar = " "
Case "^"
MorsetoChar = "."
Case "~"
MorsetoChar = "-"
Case Else
MorsetoChar = Ch
End Select
End Function

Private Sub Command3_Click()

On Error Resume Next
cd1.Filter = "All Files|*.*"
cd1.ShowSave
If cd1.FileName <> "" Then
Open cd1.FileName For Output As FFILE
Print #FFILE, txt1.Text
Close
End If
End Sub

Private Sub Command4_Click()

On Error Resume Next
cd1.Filter = "Morse Files|*.FTFmorse"
cd1.ShowSave
If cd1.FileName <> "" Then
Open cd1.FileName For Output As FFILE
Print #FFILE, txt2.Text
Close
End If
End Sub

Private Sub Command5_Click()

On Error Resume Next
cd1.Filter = "All Files|*.*"
cd1.ShowOpen
If cd1.FileName <> "" Then
Open cd1.FileName For Input As FFILE
While Not EOF(FFILE)
Line Input #FFILE, newtext
alltext = alltext & newtext & vbCrLf
Wend
Close FFILE
txt1.Text = alltext
End If
End Sub

Private Sub Command6_Click()

On Error Resume Next
cd1.Filter = "Morse Files|*.FTFmorse"
cd1.ShowOpen
If cd1.FileName <> "" Then
Open cd1.FileName For Input As FFILE
While Not EOF(FFILE)
Line Input #FFILE, newtext
alltext = alltext & newtext & vbCrLf
Wend
Close FFILE
txt2.Text = alltext
End If
End Sub

Private Sub Command7_Click()

frmSplash.Show


End Sub


Private Sub Command8_Click()

txt1.Text = ""

End Sub


Private Sub Command9_Click()

txt2.Text = ""

End Sub


Private Sub Form_Load()

FFILE = FreeFile
End Sub

Private Sub txt2_Change()

On Error Resume Next
txt2.SelLength = 0

If Len(txt2.Text) > 0 Then


If Right$(txt2.Text, 1) = vbCrLf Then

txt2.SelStart = Len(txt2.Text) - 1
Exit Sub
End If

txt2.SelStart = Len(txt2.Text)

End If

End Sub

Private Sub txt1_Change()
On Error Resume Next
txt1.SelLength = 0

If Len(txt1.Text) > 0 Then


If Right$(txt1.Text, 1) = vbCrLf Then

txt1.SelStart = Len(txt1.Text) - 1
Exit Sub
End If

txt1.SelStart = Len(txt1.Text)

End If

End Sub

alıntı

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan