Here is the source code written in visual basic 6. please do not put the source code for
download
Function ham(y)
ham = y * Mid(Val(Text3.Text), 1, 1) + Mid(Val(Text3.Text), 2, 1)
End Function
Function hamr(u)
hamr = (u - (Mid(Val(Text3.Text), 2, 1))) / (Mid(Val(Text3.Text), 1, 1))
End Function
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text) Step 1
Dim z$(1 To 300)
If Mid$(LCase$(Text1.Text), i, 1) = "a" Then z$(i) = "27"
If Mid$(LCase$(Text1.Text), i, 1) = "b" Then z$(i) = "28"
If Mid$(LCase$(Text1.Text), i, 1) = "c" Then z$(i) = "29"
If Mid$(LCase$(Text1.Text), i, 1) = "d" Then z$(i) = "30"
If Mid$(LCase$(Text1.Text), i, 1) = "e" Then z$(i) = "31"
If Mid$(LCase$(Text1.Text), i, 1) = "f" Then z$(i) = "32"
If Mid$(LCase$(Text1.Text), i, 1) = "g" Then z$(i) = "33"
If Mid$(LCase$(Text1.Text), i, 1) = "h" Then z$(i) = "34"
If Mid$(LCase$(Text1.Text), i, 1) = "i" Then z$(i) = "35"
If Mid$(LCase$(Text1.Text), i, 1) = "j" Then z$(i) = "10"
If Mid$(LCase$(Text1.Text), i, 1) = "k" Then z$(i) = "11"
If Mid$(LCase$(Text1.Text), i, 1) = "l" Then z$(i) = "12"
If Mid$(LCase$(Text1.Text), i, 1) = "m" Then z$(i) = "13"
If Mid$(LCase$(Text1.Text), i, 1) = "n" Then z$(i) = "14"
If Mid$(LCase$(Text1.Text), i, 1) = "o" Then z$(i) = "15"
If Mid$(LCase$(Text1.Text), i, 1) = "p" Then z$(i) = "16"
If Mid$(LCase$(Text1.Text), i, 1) = "q" Then z$(i) = "17"
If Mid$(LCase$(Text1.Text), i, 1) = "r" Then z$(i) = "18"
If Mid$(LCase$(Text1.Text), i, 1) = "s" Then z$(i) = "19"
If Mid$(LCase$(Text1.Text), i, 1) = "t" Then z$(i) = "20"
If Mid$(LCase$(Text1.Text), i, 1) = "u" Then z$(i) = "21"
If Mid$(LCase$(Text1.Text), i, 1) = "v" Then z$(i) = "22"
If Mid$(LCase$(Text1.Text), i, 1) = "w" Then z$(i) = "23"
If Mid$(LCase$(Text1.Text), i, 1) = "x" Then z$(i) = "24"
If Mid$(LCase$(Text1.Text), i, 1) = "y" Then z$(i) = "25"
If Mid$(LCase$(Text1.Text), i, 1) = "z" Then z$(i) = "26"
If Mid$(LCase$(Text1.Text), i, 1) = " " Then z$(i) = "36"
If Mid$(LCase$(Text1.Text), i, 1) = "0" Then z$(i) = "37"
If Mid$(LCase$(Text1.Text), i, 1) = "1" Then z$(i) = "38"
If Mid$(LCase$(Text1.Text), i, 1) = "2" Then z$(i) = "39"
If Mid$(LCase$(Text1.Text), i, 1) = "3" Then z$(i) = "40"
If Mid$(LCase$(Text1.Text), i, 1) = "4" Then z$(i) = "41"
If Mid$(LCase$(Text1.Text), i, 1) = "5" Then z$(i) = "42"
If Mid$(LCase$(Text1.Text), i, 1) = "6" Then z$(i) = "43"
If Mid$(LCase$(Text1.Text), i, 1) = "7" Then z$(i) = "44"
If Mid$(LCase$(Text1.Text), i, 1) = "8" Then z$(i) = "45"
If Mid$(LCase$(Text1.Text), i, 1) = "9" Then z$(i) = "46"
z$(i) = ham(Val(z$(i)))
Next i
e$ = z$(106) + z$(107) + z$(108) + z$(109) + z$(110) + z$(111) + z$(112) + z$(113) + z$(114) + z$(115) + z$(116) + z$(117) + z$(118) + z$(119) + z$(120) + z$(121) + z$(122) + z$(123) + z$(124) + z$(125) + z$(126) + z$(127) + z$(128) + z$(129) + z$(130) + z$(131) + z$(132) + z$(133) + z$(134) + z$(135) + z$(136) + z$(137) + z$(138) + z$(139) + z$(140) + z$(141) + z$(142) + z$(143) + z$(144) + z$(145) + z$(146) + z$(147) + z$(148) + z$(149) + z$(150) + z$(151) + z$(152) + z$(153) + z$(154) + z$(155) + z$(156) + z$(157) + z$(158) + z$(159) + z$(160) + z$(161) + z$(162) + z$(163) + z$(164) + z$(165) + z$(166) + z$(167) + z$(168) + z$(169) + z$(170) + z$(171) + z$(172) + z$(173) + z$(174) + z$(175) + z$(176) + z$(177) + z$(178) + z$(179) + z$(180) + z$(181) + z$(182) + z$(183) + z$(184) + z$(185) + z$(186) + z$(187) + z$(188) + z$(189) + z$(190) + z$(191) + z$(192) + z$(193) + z$(194) + z$(195) + z$(196) + z$(197) + z$(198) + z$(199) + z$(200)
j$ = z$(1) + z$(2) + z$(3) + z$(4) + z$(5) + z$(6) + z$(7) + z$(8) + z$(9) + z$(10) + z$(11) + z$(12) + z$(13) + z$(14) + z$(15) + z$(16) + z$(17) + z$(18) + z$(19) + z$(20) + z$(21) + z$(22) + z$(23) + z$(24) + z$(25) + z$(26) + z$(27) + z$(28) + z$(29) + z$(30) + z$(31) + z$(32) + z$(33) + z$(34) + z$(35) + z$(36) + z$(37) + z$(38) + z$(39) + z$(40) + z$(41) + z$(42) + z$(43) + z$(44) + z$(45) + z$(46) + z$(47) + z$(48) + z$(49) + z$(50) + z$(51) + z$(52) + z$(53) + z$(54) + z$(55) + z$(56) + z$(57) + z$(58) + z$(59) + z$(60) + z$(61) + z$(62) + z$(63) + z$(64) + z$(65) + z$(66) + z$(67) + z$(68) + z$(69) + z$(70) + z$(71) + z$(72) + z$(73) + z$(74) + z$(75) + z$(76) + z$(77) + z$(78) + z$(79) + z$(80) + z$(81) + z$(82) + z$(83) + z$(84) + z$(85) + z$(86) + z$(87) + z$(88) + z$(89) + z$(90) + z$(91) + z$(92) + z$(93) + z$(94) + z$(95) + z$(96) + z$(97) + z$(98) + z$(99) + z$(100) + z$(101) + z$(102) + z$(103) + z$(104) + z$(105) + e$
length = 2 * Len(Text1.Text)
Text2.Text = Mid$(j$, 1, length)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
For j = 1 To Len(Text2.Text) Step 2
Dim w$(1 To 200)
w$(j) = hamr(Val(Mid$(Text2.Text, j, 2)))
If w$(j) = "27" Then w$(j) = "a"
If w$(j) = "28" Then w$(j) = "b"
If w$(j) = "29" Then w$(j) = "c"
If w$(j) = "30" Then w$(j) = "d"
If w$(j) = "31" Then w$(j) = "e"
If w$(j) = "32" Then w$(j) = "f"
If w$(j) = "33" Then w$(j) = "g"
If w$(j) = "34" Then w$(j) = "h"
If w$(j) = "35" Then w$(j) = "i"
If w$(j) = "10" Then w$(j) = "j"
If w$(j) = "11" Then w$(j) = "k"
If w$(j) = "12" Then w$(j) = "l"
If w$(j) = "13" Then w$(j) = "m"
If w$(j) = "14" Then w$(j) = "n"
If w$(j) = "15" Then w$(j) = "o"
If w$(j) = "16" Then w$(j) = "p"
If w$(j) = "17" Then w$(j) = "q"
If w$(j) = "18" Then w$(j) = "r"
If w$(j) = "19" Then w$(j) = "s"
If w$(j) = "20" Then w$(j) = "t"
If w$(j) = "21" Then w$(j) = "u"
If w$(j) = "22" Then w$(j) = "v"
If w$(j) = "23" Then w$(j) = "w"
If w$(j) = "24" Then w$(j) = "x"
If w$(j) = "25" Then w$(j) = "y"
If w$(j) = "26" Then w$(j) = "z"
If w$(j) = "36" Then w$(j) = " "
If w$(j) = "37" Then w$(j) = "0"
If w$(j) = "38" Then w$(j) = "1"
If w$(j) = "39" Then w$(j) = "2"
If w$(j) = "40" Then w$(j) = "3"
If w$(j) = "41" Then w$(j) = "4"
If w$(j) = "42" Then w$(j) = "5"
If w$(j) = "43" Then w$(j) = "6"
If w$(j) = "44" Then w$(j) = "7"
If w$(j) = "45" Then w$(j) = "8"
If w$(j) = "46" Then w$(j) = "9"
Next j
f$ = w$(106) + w$(107) + w$(108) + w$(109) + w$(110) + w$(111) + w$(112) + w$(113) + w$(114) + w$(115) + w$(116) + w$(117) + w$(118) + w$(119) + w$(120) + w$(121) + w$(122) + w$(123) + w$(124) + w$(125) + w$(126) + w$(127) + w$(128) + w$(129) + w$(130) + w$(131) + w$(132) + w$(133) + w$(134) + w$(135) + w$(136) + w$(137) + w$(138) + w$(139) + w$(140) + w$(141) + w$(142) + w$(143) + w$(144) + w$(145) + w$(146) + w$(147) + w$(148) + w$(149) + w$(150) + w$(151) + w$(152) + w$(153) + w$(154) + w$(155) + w$(156) + w$(157) + w$(158) + w$(159) + w$(160) + w$(161) + w$(162) + w$(163) + w$(164) + w$(165) + w$(166) + w$(167) + w$(168) + w$(169) + w$(170) + w$(171) + w$(172) + w$(173) + w$(174) + w$(175) + w$(176) + w$(177) + w$(178) + w$(179) + w$(180) + w$(181) + w$(182) + w$(183) + w$(184) + w$(185) + w$(186) + w$(187) + w$(188) + w$(189) + w$(190) + w$(191) + w$(192) + w$(193) + w$(194) + w$(195) + w$(196) + w$(197) + w$(198) + w$(199) + w$(200)
r$ = w$(1) + w$(2) + w$(3) + w$(4) + w$(5) + w$(6) + w$(7) + w$(8) + w$(9) + w$(10) + w$(11) + w$(12) + w$(13) + w$(14) + w$(15) + w$(16) + w$(17) + w$(18) + w$(19) + w$(20) + w$(21) + w$(22) + w$(23) + w$(24) + w$(25) + w$(26) + w$(27) + w$(28) + w$(29) + w$(30) + w$(31) + w$(32) + w$(33) + w$(34) + w$(35) + w$(36) + w$(37) + w$(38) + w$(39) + w$(40) + w$(41) + w$(42) + w$(43) + w$(44) + w$(45) + w$(46) + w$(47) + w$(48) + w$(49) + w$(50) + w$(51) + w$(52) + w$(53) + w$(54) + w$(55) + w$(56) + w$(57) + w$(58) + w$(59) + w$(60) + w$(61) + w$(62) + w$(63) + w$(64) + w$(65) + w$(66) + w$(67) + w$(68) + w$(69) + w$(70) + w$(71) + w$(72) + w$(73) + w$(74) + w$(75) + w$(76) + w$(77) + w$(78) + w$(79) + w$(80) + w$(81) + w$(82) + w$(83) + w$(84) + w$(85) + w$(86) + w$(87) + w$(88) + w$(89) + w$(90) + w$(91) + w$(92) + w$(93) + w$(94) + w$(95) + w$(96) + w$(97) + w$(98) + w$(99) + w$(100) + w$(101) + w$(102) + w$(103) + w$(104) + w$(105) + f$
length2 = 2 * (Len(Text2.Text))
Text1.Text = Mid$(r$, 1, length2)
End Sub
