Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Alex77755
10512 / 3179 / 505
Регистрация: 13.02.2009
Сообщений: 9,075
#1

перевести JAVA в VBA - Visual Basic

07.01.2017, 11:16. Просмотров 208. Ответов 8
Метки нет (Все метки)

Есть на странице скрипт
HTML5
1
<script type="text/javascript">/*<![CDATA[*/eval("var a=\"e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf\";var b=a.split(\"\").sort().join(\"\");var c=\"T4mg9MMfaRpmyM1K0\";var d=\"\";for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));document.getElementById(\"e198546040\").innerHTML=\"<a href=\\\"mailto:\"+d+\"\\\">\"+d+\"</a>\"")/*]]>*/</script>
Похоже тут есть все необходимые данные что бы извлечь адрес мыла
Ошибаюсь?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2017, 11:16     перевести JAVA в VBA
Посмотрите здесь:

Перевести код программы с VB на VBA - Visual Basic
Кто нибудь может помочь перевести код программы с VB на VBA?

Необходимо перевести код из JAVA в VB - Visual Basic
Нужна помощь! Есть код на JAVA-Script, мне надо перевести его в VB, две функции - расчет азимута солнца. Сам попытался - что-то не выходит...

Прошу перевести в VBA - VBA
Program Насадки; uses crt; var m,lm,l,Xc,Ypc,ys,ysp,xs,de,rog,arg,reg,vg,qv,dk,h1,h,dys,Dy,Yc,S,N,Xk,G,Ga, ...

Перевести код с Паскаля на VBA - VBA
begin writeln(' ':4,m,u,h,a); writeln(' ':3,'*'); writeln(' ':4,s,l,o,n); writeln(' ':3,'-----'); writeln('...

Перевести код из Pascal в VBA - VBA
Собственно вот надо чтобы работало в вба : Приложение 1 Листинг программы: {Методом покоординатного спуска найти точки локального...

Перевести программу с Паскаля на VBA - VBA
const N=9; var i: integer; Max: integer; A: array of integer; B: array of integer; begin Max:=-4; for i:=1 to...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Pro_grammer
Модератор
5914 / 2074 / 399
Регистрация: 24.04.2011
Сообщений: 3,514
Записей в блоге: 10
07.01.2017, 22:45     перевести JAVA в VBA #2
Это простенький скрипт, который расшифровывает адрес почты.
На VB лень переводить, но сам сможешь элементарно, после того как изучишь код, приведённый мною к нормальному рабочему виду
HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<html>
    <head>
        <title>Тест</title>
        
 
    </head>
    <body>
        <script type="text/javascript">
 
 
var a='e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf';
var b=a.split('').sort().join('');
var c='T4mg9MMfaRpmyM1K0';
var d='';
for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));
alert (d) // abd1-ssz@kodms.ru
 
</script>
 
                
    </body>
</html>
Если его сохранить в виде HTML, то после запуска браузер выдаст адрес ( он в коде закоментирован )

Добавлено через 2 часа 40 минут
Вот от скуки перевел на VB
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Activate()
a$ = "e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf"
b$ = "+-.0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz" ' После сортировки
' Шифр адреса
c$ = "T4mg9MMfaRpmyM1K0"
d$ = ""
For e = 1 To Len(c$)
c_charAt$ = Mid(c$, e, 1)
a_indexOf& = InStr(1, a$, c_charAt$, 0)
b_charAt$ = Mid(b$, a_indexOf&, 1)
d$ = d$ & b_charAt$
Next
 
Form1.Print d$ ' [email]abd1-ssz@kodms.ru[/email]
End Sub
Alex77755
10512 / 3179 / 505
Регистрация: 13.02.2009
Сообщений: 9,075
08.01.2017, 10:46  [ТС]     перевести JAVA в VBA #3
Я уже сделал так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub qwer()
    Dim a, c, email
    a = "6mQFxf29y-3VLWEzH.OSCBu5Ywd0ciPvI+gbjqZphk@JltGe_MsNr7n8TKo41aARXDU"
    c = "4oNom74WN8l74Qoa"
    MsgBox Get_email(a, c), 64, ""
End Sub
 
Function Get_email(a, c) As String
Dim b, i
b = sort(a)
For i = 1 To Len(c)
     Get_email = Get_email & Mid(b, InStr(1, a, Mid(c, i, 1)), 1)
Next i
End Function
 
Function sort(ByVal s)
Dim i, j, t, n, y
For i = 1 To Len(s) - 1
    n = i
    t = Asc(Mid(s, i, 1))
    For j = i + 1 To Len(s)
        y = Asc(Mid(s, j, 1))
        If t > y Then
            t = y
            n = j
        End If
    Next j
    If n <> i Then
        Mid(s, n, 1) = Mid(s, i, 1)
        Mid(s, i, 1) = Chr(t)
    End If
Next i
sort = s
End Function
Казанский
13144 / 5038 / 1209
Регистрация: 24.09.2011
Сообщений: 7,784
08.01.2017, 12:32     перевести JAVA в VBA #4
Да-а, sort() и split() с разделителем "" - это сила Бейсик по сравнению с JScript выглядит бледно
Впрочем, можно скормить код скриптконтролу с минимальным изменением
Visual Basic
1
2
3
4
5
6
7
Sub bb()
  With CreateObject("ScriptControl")
    .Language = "JScript"
    .AddCode "function eml(){var a='e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf';var b=a.split('').sort().join('');var c='T4mg9MMfaRpmyM1K0';var d='';for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));return d}"
    MsgBox .Run("eml")
  End With
End Sub
Pro_grammer
Модератор
5914 / 2074 / 399
Регистрация: 24.04.2011
Сообщений: 3,514
Записей в блоге: 10
08.01.2017, 12:57     перевести JAVA в VBA #5
Цитата Сообщение от Alex77755 Посмотреть сообщение
Я уже сделал так
В принципе код сортировки тут лишний - ведь какая бы ни была исходная стока
a = "6mQFxf29y-3VLWEzH.OSCBu5Ywd0ciPvI+gbjqZphk@JltGe_MsNr7n8TKo41aARXDU"
В результате сортировки в любом случае выйдет это
b$ = "+-.0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz" ' После сортировки
А значит это можно использовать как константу в коде!
Alex77755
10512 / 3179 / 505
Регистрация: 13.02.2009
Сообщений: 9,075
09.01.2017, 03:17  [ТС]     перевести JAVA в VBA #6
ведь какая бы ни была исходная стока
не факт!
a = "6mQFxf29y-3VLWEzH.OSCBu5Ywd0ciPvI+gbjqZphk@JltGe_
никакая сортировка не даст:
b$ = "+-.0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz" ' После сортировки
Pro_grammer
Модератор
5914 / 2074 / 399
Регистрация: 24.04.2011
Сообщений: 3,514
Записей в блоге: 10
09.01.2017, 09:41     перевести JAVA в VBA #7
Цитата Сообщение от Alex77755 Посмотреть сообщение
не факт!
a = "6mQFxf29y-3VLWEzH.OSCBu5Ywd0ciPvI+gbjqZphk@JltGe_
Такой стоки в принципе быть не может. Там ведь весь принцип шифрования тогда нарушится - строка должна содержать полный набор знаков, который допустим в E-mail.
Alex77755
10512 / 3179 / 505
Регистрация: 13.02.2009
Сообщений: 9,075
09.01.2017, 13:52  [ТС]     перевести JAVA в VBA #8
Такой стоки в принципе быть не может
Не факт. шифровка сделана на конкретном сайте для конкретного набора E-mail
И собственнику сайта может быть глубоко плевать на все допустимые символы в наборе.
Тем более, что при полном наборе теряется почти весь смысл шифрования
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2017, 16:55     перевести JAVA в VBA
Еще ссылки по теме:

Перевести код с Pascal на VBA - VBA
Var x: Shortint; BEGIN Writeln('Введите (-1),(0) или (1): '); Readln(x); If x=-1 Then Writeln('Смерть найдешь') Else If x=0...

Можно ли перевести программу с VB на VBA? - VBA
Здравствуйте скажите можно ли перевести программу с VB на VBA? и если да то как?

Перевести программу с паскаля на Vba - VBA
Срочно народ помогите надо перевести мне 20 программ с Pascal на VBA... Не успеваю( program dota; var i,n,f:integer; a:array of...

Перевести функцию из фортрана в VBA - VBA
Нужно сделать функцию из фортрана в vba (с языком абсолютно не знаком, поэтому прошу помощи) Subroutine KGAUSS(Ab, N, X, IAI) ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Pro_grammer
Модератор
5914 / 2074 / 399
Регистрация: 24.04.2011
Сообщений: 3,514
Записей в блоге: 10
09.01.2017, 16:55     перевести JAVA в VBA #9
Цитата Сообщение от Alex77755 Посмотреть сообщение
теряется почти весь смысл шифрования
Ни чего не теряется. Смысл шифрования тут не спрятать "мыло" от человека ( это видно из алгоритма - нет секретного ключа), а исключить возможность автоматического сбора адресов.
Из интереса, проверь на случайный выбор несколько таких страниц на сайте - везде будет одинаковый набор символов, только порядок разный.
Yandex
Объявления
09.01.2017, 16:55     перевести JAVA в VBA
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru