Tema: Ayuda sobre script vb
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/11/2007, 09:27
Aper
 
Fecha de Ingreso: marzo-2007
Mensajes: 103
Antigedad: 17 aos, 1 mes
Puntos: 0
Ayuda sobre script vb
Cdigo: 
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
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

Cdigo: 
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