Código:
Tengo este scripts en visual basic.. y me gustaria saber que es lo que hace.. ya que no entiendo mucho.. en realidad lo que necesito saber bien es que hace este sector.. que es lo que multiplica Sub Prog()
Dim SaisieMotPasse As String, NbCaractere As Long, i As Long, j As Long, k As Long
Dim CodeNico(33 To 256) As Long
Dim Ascii(33 To 256) As String
Ascii(33) = "!"
Ascii(34) = """"
Ascii(35) = "#"
Ascii(36) = "$"
Ascii(37) = "%"
Ascii(38) = "&"
Ascii(39) = "’"
Ascii(40) = "("
Ascii(41) = ")"
Ascii(42) = "*"
Ascii(43) = "+"
Ascii(44) = ","
Ascii(45) = "-"
Ascii(46) = "."
Ascii(47) = "/"
Ascii(48) = "0"
Ascii(49) = "1"
Ascii(50) = "2"
Ascii(51) = "3"
Ascii(52) = "4"
Ascii(53) = "5"
Ascii(54) = "6"
Ascii(55) = "7"
Ascii(56) = "8"
Ascii(57) = "9"
Ascii(58) = ":"
Ascii(59) = ";"
Ascii(60) = "<"
Ascii(61) = "="
Ascii(62) = ">"
Ascii(63) = "?"
Ascii(64) = "@"
Ascii(65) = "A"
Ascii(66) = "B"
Ascii(67) = "C"
Ascii(68) = "D"
Ascii(69) = "E"
Ascii(70) = "F"
Ascii(71) = "G"
Ascii(72) = "H"
Ascii(73) = "I"
Ascii(74) = "J"
Ascii(75) = "K"
Ascii(76) = "L"
Ascii(77) = "M"
Ascii(78) = "N"
Ascii(79) = "O"
Ascii(80) = "P"
Ascii(81) = "Q"
Ascii(82) = "R"
Ascii(83) = "S"
Ascii(84) = "T"
Ascii(85) = "U"
Ascii(86) = "V"
Ascii(87) = "W"
Ascii(88) = "X"
Ascii(89) = "Y"
Ascii(90) = "Z"
Ascii(91) = "["
Ascii(92) = "\"
Ascii(93) = "]"
Ascii(94) = "^"
Ascii(95) = "_"
Ascii(96) = "`"
Ascii(97) = "a"
Ascii(98) = "b"
Ascii(99) = "c"
Ascii(100) = "d"
Ascii(101) = "e"
Ascii(102) = "f"
Ascii(103) = "g"
Ascii(104) = "h"
Ascii(105) = "i"
Ascii(106) = "j"
Ascii(107) = "k"
Ascii(108) = "l"
Ascii(109) = "m"
Ascii(110) = "n"
Ascii(111) = "o"
Ascii(112) = "p"
Ascii(113) = "q"
Ascii(114) = "r"
Ascii(115) = "s"
Ascii(116) = "t"
Ascii(117) = "u"
Ascii(118) = "v"
Ascii(119) = "w"
Ascii(120) = "x"
Ascii(121) = "y"
Ascii(122) = "z"
Ascii(123) = "{"
Ascii(124) = "|"
Ascii(125) = "}"
Ascii(126) = "~"
Ascii(127) = ""
Ascii(128) = "€"
Ascii(129) = ""
Ascii(130) = "‚"
Ascii(131) = "ƒ"
Ascii(132) = "„"
Ascii(133) = "…"
Ascii(134) = "†"
Ascii(135) = "‡"
Ascii(136) = "ˆ"
Ascii(137) = "‰"
Ascii(138) = "Š"
Ascii(139) = "‹"
Ascii(140) = "Œ"
Ascii(141) = ""
Ascii(142) = "Ž"
Ascii(143) = ""
Ascii(144) = ""
Ascii(145) = "‘"
Ascii(146) = "’"
Ascii(147) = "“"
Ascii(148) = "”"
Ascii(149) = "•"
Ascii(150) = "–"
Ascii(151) = "—"
Ascii(152) = "˜"
Ascii(153) = "™"
Ascii(154) = "š"
Ascii(155) = "›"
Ascii(156) = "œ"
Ascii(157) = ""
Ascii(158) = "ž"
Ascii(159) = "Ÿ"
Ascii(160) = " "
Ascii(161) = "¡"
Ascii(162) = "¢"
Ascii(163) = "£"
Ascii(164) = "¤"
Ascii(165) = "¥"
Ascii(166) = "¦"
Ascii(167) = "§"
Ascii(168) = "¨"
Ascii(169) = "©"
Ascii(170) = "ª"
Ascii(171) = "«"
Ascii(172) = "¬"
Ascii(173) = "*"
Ascii(174) = "®"
Ascii(175) = "¯"
Ascii(176) = "°"
Ascii(177) = "±"
Ascii(178) = "²"
Ascii(179) = "³"
Ascii(180) = "´"
Ascii(181) = "µ"
Ascii(182) = "¶"
Ascii(183) = "·"
Ascii(184) = "¸"
Ascii(185) = "¹"
Ascii(186) = "º"
Ascii(187) = "»"
Ascii(188) = "¼"
Ascii(189) = "½"
Ascii(190) = "¾"
Ascii(191) = "¿"
Ascii(192) = "À"
Ascii(193) = "Á"
Ascii(194) = "Â"
Ascii(195) = "Ã"
Ascii(196) = "Ä"
Ascii(197) = "Å"
Ascii(198) = "Æ"
Ascii(199) = "Ç"
Ascii(200) = "È"
Ascii(201) = "É"
Ascii(202) = "Ê"
Ascii(203) = "Ë"
Ascii(204) = "Ì"
Ascii(205) = "Í"
Ascii(206) = "Î"
Ascii(207) = "Ï"
Ascii(208) = "Ð"
Ascii(209) = "Ñ"
Ascii(210) = "Ò"
Ascii(211) = "Ó"
Ascii(212) = "Ô"
Ascii(213) = "Õ"
Ascii(214) = "Ö"
Ascii(215) = "×"
Ascii(216) = "Ø"
Ascii(217) = "Ù"
Ascii(218) = "Ú"
Ascii(219) = "Û"
Ascii(220) = "Ü"
Ascii(221) = "Ý"
Ascii(222) = "Þ"
Ascii(223) = "ß"
Ascii(224) = "à"
Ascii(225) = "á"
Ascii(226) = "â"
Ascii(227) = "ã"
Ascii(228) = "ä"
Ascii(229) = "å"
Ascii(230) = "æ"
Ascii(231) = "ç"
Ascii(232) = "è"
Ascii(233) = "é"
Ascii(234) = "ê"
Ascii(235) = "ë"
Ascii(236) = "ì"
Ascii(237) = "í"
Ascii(238) = "î"
Ascii(239) = "ï"
Ascii(240) = "ð"
Ascii(241) = "ñ"
Ascii(242) = "ò"
Ascii(243) = "ó"
Ascii(244) = "ô"
Ascii(245) = "õ"
Ascii(246) = "ö"
Ascii(247) = "÷"
Ascii(248) = "ø"
Ascii(249) = "ù"
Ascii(250) = "ú"
Ascii(251) = "û"
Ascii(252) = "ü"
Ascii(253) = "ý"
Ascii(254) = "þ"
Ascii(255) = "ÿ"
Ascii(256) = "?"
SaisieMotPasse = Me.tboMotDePasse.Text
NbCaractere = Len(SaisieMotPasse)
Dim Lettre(1 To 16) As String, NbA(1 To 16) As Variant, NbC(1 To 16) As Variant
For i = 1 To NbCaractere
Lettre(i) = Mid(SaisieMotPasse, i, 1)
For j = 33 To 256
If Lettre(i) = Ascii(j) Then
NbA(i) = j
NbC(i) = (NbA(i)) * (3 ^ i)
End If
Next j
Next i
Código:
For i = 1 To NbCaractere
Lettre(i) = Mid(SaisieMotPasse, i, 1)
For j = 33 To 256
If Lettre(i) = Ascii(j) Then
NbA(i) = j
NbC(i) = (NbA(i)) * (3 ^ i)
End If
Next j
Next i
