Закрыт

расшифровать код Атбаш.

Есть файл xls, в нем на vba программа. В ней нужно ввести ключ, основанный (как я понимаю) на шифровании Атбаш. Я в этом не силен, но немного информации по этому шифру в сети нашел. Попробовал расшифровать, но программа говорит, что ключ не верный.

Нужна помощь! За денежку, конечно.

То, что это Атбаш, я понял из кода программы.

Идентификатор 9585V65Z8YCD-WD

Вот кусок кода:

Function computer_identifier$()

Dim objWMIService, colDiskDrives, objDrive, HardDrives, Drive As Object

Dim strComputer, Info As String, nb As Boolean

strComputer = "."

nb = False

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDiskDrives = [url removed, login to view]("SELECT * FROM Win32_DiskDrive")

For Each objDrive In colDiskDrives

Set HardDrives = [url removed, login to view]("SELECT * FROM Win32_PhysicalMedia")

For Each Drive In HardDrives

If [url removed, login to view] = [url removed, login to view] Then

If [url removed, login to view] <> "" Then

Info = CoDerAtbash$(Trim([url removed, login to view]))

nb = True

End If

End If

Next

If nb Then Exit For

Next

[url removed, login to view] = Info 'k - 3 &

End Function

Function CoDerAtbash$(ByVal txt$)

Dim i&, n&, k&

Dim testType As String

Const s$ = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz" '0123456789

k = Len(s$)

For i = 1 To Len(txt$)

n = InStr(s, Mid$(txt, i, 1))

If n > 0 Then

Mid$(txt, i, 1) = Mid$(s, 52 - n, 1)

Else

If IsNumeric(Mid$(txt, i, 1)) Then

k = CInt(Mid$(txt, i, 1))

Mid$(txt, i, 1) = 9 - k

End If

End If

Next i

CoDerAtbash = Reverse_Word(txt)

End Function

Квалификация: Visual Basic

Показать больше convert dat file xls, import xls postgresql, xls mysql, write datatable xls file net, export asp xls, txt xls, xls macro xml, script compare xls files, vbnet xls web page scrape, parse xls

О работодателе:
( 0 отзыв(-а, -ов) ) Russian Federation

ID проекта: #8520549

5 фрилансеров(-а) в среднем готовы выполнить эту работу за $401

igorrumv

Привет, Возьмусь, если сможем быстро договориться. На вскидку - реализовать/вскрыть показалось очень просто, в детали пока не лез) Соотвественно, сумма/стоимость проекта мне кажется должна быть меньше, но постави Больше

$250 USD за 2 дней(-я)
(24 отзывов(-а))
6.3
kevivu

Dear Sir, Done numerous similar projects in the past and always impressed the clients with my excellent VBA solutions. Out of my 40 projects, almost 35+ are complex VB/VBA projects, hence i can definitely deliv Больше

$368 USD за 5 дней(-я)
(9 отзывов(-а))
4.1
elephentplayer

Hello, I am expert in Excel, Visual Basic,... I have a lot of experiences in many fields. I can help you well. Please contact me. Best regards.

$250 USD за 10 дней(-я)
(0 отзывов(-а))
0.8
Maheshpatel107

Hello, I am good in VB and VBA development, If you provide description in English then I can do this. I have 3 years experience in VB,VBA and VB.NET,C# and JAVA development. I have worked with VB6.0 as Front-end V Больше

$277 USD за 5 дней(-я)
(0 отзывов(-а))
0.0
zu02

A proposal has not yet been provided

$555 USD за 10 дней(-я)
(0 отзывов(-а))
0.0
evv59

Предложение еще не подано

$555 USD за 4 дней(-я)
(0 отзывов(-а))
0.0