哪位高手帮小弟我修改下,小弟我的密码破解方法?

谁帮我修改下,我的密码破解方法??
下面是我写的密码(12)位的破解方法,但一运行,内存就吃光了,大家帮我想下办法??
Function   R_W_Mifare(ByVal   xsing   As   String,   ByVal   block   As   Integer,   ByVal   xdev   As   Long,   ByVal   xdata   As   String)   As   String
    Dim   data_hex   As   String   *   32
    maxmode   =   0
    shanq   =   0
    snr   =   0
   
    Dim   aa,   ba,   ca,   da,   ea,   fa,   ga,   ha,   ia,   ja,   ka,   la,   ma,   na,   oa,   pa,   qa,   ra,   sa,   ta,   ua,   va,   wa,   xa   As   Integer
    Dim   value(62)   As   String
    'value(0)   =   " "
    value(1)   =   "0 "
    value(2)   =   "1 "
    value(3)   =   "2 "
    value(4)   =   "3 "
    value(5)   =   "4 "
    value(6)   =   "5 "
    value(7)   =   "6 "
    value(8)   =   "7 "
    value(9)   =   "8 "
    value(10)   =   "9 "
    value(11)   =   "a "
    value(12)   =   "b "
    value(13)   =   "c "
    value(14)   =   "d "
    value(15)   =   "e "
    value(16)   =   "f "
    value(17)   =   "g "
    value(18)   =   "h "
    value(19)   =   "i "
    value(20)   =   "j "
    value(21)   =   "k "
    value(22)   =   "l "
    value(23)   =   "m "
    value(24)   =   "n "
    value(25)   =   "o "
    value(26)   =   "p "
    value(27)   =   "q "
    value(28)   =   "r "
    value(29)   =   "s "
    value(30)   =   "t "
    value(31)   =   "u "
    value(32)   =   "v "
    value(33)   =   "w "
    value(34)   =   "x "
    value(35)   =   "y "
    value(36)   =   "z "
    value(37)   =   "A "
    value(38)   =   "B "
    value(39)   =   "C "
    value(40)   =   "D "
    value(41)   =   "E "
    value(42)   =   "F "
    value(43)   =   "G "
    value(44)   =   "H "
    value(45)   =   "I "
    value(46)   =   "J "
    value(47)   =   "K "
    value(48)   =   "L "