Fermé

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

Есть файл 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

Compétences : Visual Basic

Voir plus : 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

Concernant l'employeur :
( 0 commentaires ) Russian Federation

N° du projet : #8520549

5 freelance ont fait une offre moyenne de 401 $ pour ce travail

igorrumv

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

250 $ USD en 2 jours
(24 Commentaires)
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 Plus

368 $ USD en 5 jours
(9 Commentaires)
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 en 10 jours
(0 Commentaires)
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 Plus

277 $ USD en 5 jours
(0 Commentaires)
0.0
zu02

A proposal has not yet been provided

555 $ USD en 10 jours
(0 Commentaires)
0.0
evv59

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

555 $ USD en 4 jours
(0 Commentaires)
0.0