1. VisualBasic / Говнокод #23481

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    Const strMask="258258258258258258"
    mNumber = Clng(Left(mParam1,2))*100000+Clng(Right(mParam1,5))*10+Clng(mParam2)
    mResStr = Right("000000000"+Cstr(mNumber),9)
    For c=1 To 9
    	mRes1 = Cint(Mid(mResStr, c, 1))
    	mRes2 = Int(Rnd()*10)
    	strPreResult=Cstr(mRes1)+Cstr(mRes2)
    	mCheckSum = mCheckSum+mRes1*Cint(Mid(strMask, (c-1)*2+1, 1))
    	mCheckSum = mCheckSum+mRes2*Cint(Mid(strMask, (c)*2, 1))
    	Print strPreResult, mCheckSum
    	strResult=strResult+strPreResult
    Next c
    strResult = Left(strResult,9)+Right("00"+Cstr((mCheckSum Mod 95)Mod 100),2)+Right(strResult,8)

    Генератор случайных чисел.
    Почему везде такой не используется?

    Запостил: lsd, 03 Ноября 2017

    Комментарии (7) RSS

    • Прикольный кодстайл
      Что такое m?
      Ответить
      • Я хз, может Magic?
        Ответить
      • my
        Ответить
      • переменные текущего модуля (но это не точно)
        Ответить
      • В крестах (точнее, в «Си с классами») некоторые программисты названия полей объекта начинают с m или с m_.
        Ответить
        • А в нормальных крестах (не «© с классами») не начинают?
          Ответить
        • а жабке тоже делают префикс my иногда.

          Но тут смешано указание типа (str) и указание области (m). Говновенгерка какая-то
          Ответить

    Добавить комментарий