Серый форум — VBScript: Вычисление CRC32 строки

Re: VBScript: Вычисление CRC32 строки

null@example.com (alexii) — Sun, 10 Feb 2013 20:03:46 +0000

…с помощью RunDll?

Нельзя.

Re: VBScript: Вычисление CRC32 строки

null@example.com (Serge Yolkin) — Sun, 10 Feb 2013 19:36:56 +0000

Большое спасибо.
Правда, возник другой вопрос: можно ли получить контрольную сумму файла из imagehlp.dll,CheckSumMappedFile с помощью RunDll?

rundll32.exe imagehlp.dll,CheckSumMappedFile imagehlp.dll

ни на что не ругается, значит точку входа находит, хотя ничего и не выводит. По крайней мере в консоль (cmd).

Re: VBScript: Вычисление CRC32 строки

null@example.com (alexii) — Sat, 09 Feb 2013 22:34:17 +0000

Восстановить нельзя. Есть в offline Community. Но там всего три сообщения. Держите так: JScript- определение crc32 файла.7z — RGhost — файлообменник.

Re: VBScript: Вычисление CRC32 строки

null@example.com (Serge Yolkin) — Sat, 09 Feb 2013 16:56:11 +0000

Вопрос уважаемым администраторам: а нельзя ли восстановить ссылку из #2: Серый форум / JScript: определение crc32 файла, а то там только «сообщение»...

Re: VBScript: Вычисление CRC32 строки

null@example.com (alexii) — Sat, 05 Mar 2011 09:32:43 +0000

bober132 пишет:

Но я бы предпочёл создать отдельную тему, т.к. не каждый человек заходит на тему не касающийся его языка программирования.

То есть? Не JScript, а VBScript — в этом смысле? Так ведь по приведённой в #2 ссылке как раз VBScript.

=bober132 пишет:

alexii, этот код не требует подключения ActiveX библиотек в отличии…

Тот код — тоже: Серый форум / VBScript , определение crc32 файла использует WinAPI для вычисления CRC32 содержимого файла, в Серый форум / HTA: вычисление CRC32 строки или файла ActiveX используется только для чтения содержимого файла (опять же, после обсуждения с коллегами [Серый форум / JScript: Двоичные файлы, #11], mozers, перейдя на «TextStream.Read()», полностью убрал зависимость от ADODB.Stream — та же ссылка из #2).

Re: VBScript: Вычисление CRC32 строки

null@example.com (bober132) — Sat, 05 Mar 2011 09:13:39 +0000

abasov, да вы правы, идентичный скрипт есть. Я не смог найти этот код когда искал. Но я бы предпочёл создать отдельную тему, т.к. не каждый человек заходит на тему не касающийся его языка программирования. alexii, этот код не требует подключения ActiveX библиотек в отличии от http://forum.script-coding.com/viewtopic.php?id=2805, http://forum.script-coding.com/viewtopi … 876#p23876, http://forum.script-coding.com/viewtopic.php?id=3827.

Re: VBScript: Вычисление CRC32 строки

null@example.com (abasov) — Sat, 05 Mar 2011 06:12:18 +0000

alexii пишет:

Было бы неплохо, если бы Вы сравнили алгоритмы

Vbs алгоритма кажется не было...bober132 вероятно это имел ввиду. Был и идентичен вот. Не заметил.

Re: VBScript: Вычисление CRC32 строки

null@example.com (alexii) — Sat, 05 Mar 2011 04:22:57 +0000

bober132, спасибо! Но, как бы есть:
* Серый форум / VBScript , определение crc32 файла, Серый форум / JScript: определение crc32 файла
* Серый форум / HTA: вычисление CRC32 строки или файла, обсуждение: Серый форум / HTA: Находим CRC32 файла или строки

Было бы неплохо, если бы Вы сравнили алгоритмы по второму методу (скриптовому), ибо я не смогу сим заняться. Что скажете?

VBScript: Вычисление CRC32 строки

null@example.com (bober132) — Fri, 04 Mar 2011 13:24:35 +0000

Здравствуйте. Недавно столкнулся с потребностью нахождения CRC32 строки в VBS. Т.к его нет на вашем сайте решил выложить его здесь.
Думаю его ещё и под вычисление CRC32 файла можно заточить:)

P.S. Не помню где нашёл код, но он нам был на языке VB, а не VBS. Так что выкладываю без копирайта.

Dim CrcTableInit
Dim CRCTable(255)
 
MsgBox Hex(calcCRC32("GetProcAddress")) 'Пример Использования
Wscript.Quit


Function calcCRC32(TextStr)
    Dim i, crc
    If CrcTableInit = False Then Call Init_CRCTable
    crc = -1
    For i = 1 To Len(TextStr)
        crc = (((crc And &HFFFFFF00) \ &H100) And &HFFFFFF) Xor (CRCTable((crc And &HFF) Xor Asc(Mid(TextStr, i, 1))))
    Next
    crc = crc Xor &HFFFFFFFF
    calcCRC32 = crc
End Function
Sub Init_CRCTable()
    Dim i, j, Limit, crc
    Limit = &HEDB88320
    For i = 0 To 255
        crc = i
        For j = 0 To 7
            If crc And 1 Then
              crc = (((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF) Xor Limit
            Else
              crc = ((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF
            End If
        Next
        CRCTable(i) = crc
    Next
    CrcTableInit = True
End Sub