• XSS.stack #1 – первый литературный журнал от юзеров форума

Winux Soft

Отслеживать
Winux

Winux

Старожил форума
Легенда
Регистрация
12.11.2004
Сообщения
6 358
Реакции
53
Сюда буду публиковать мелкие проги от меня.
Кодингом увлекаюсь по-мелочи и надо кудато софт сваливать.
Пишу в основном для себя, однако мой софт может оказаться пригодным для инородного использования. Поэтому добавляю эбаут и пощу сюды.

если у кого то есть ко мне предложения по написанию мелких софтин - напишу бесплатно (надо тренироваться) - пишите в приват.

Начнем.
1) BrutAll
http://news.xss.pro/brall.gif
Многофункциональная софтина.
Тема поддержки
Сортировщик из него написал юзер нашего форума - BUG(O)r. Большинство алгоритмов других функций - XFq. Так что софтина моя только на 1/5.
:zns5: Скачать|Download

2) 10 and 13 symbols replacer
Прожка для удаления сброса строки или замены его не символ(ы)
10132zm.gif

Вроде все пашет, на тестинг время не тратил.

Пока все. Завтра новая интересная прога)
Она уже готова. Сделаю последние тесты и опубликую.
обо всех ошибках говорим мне. Возможно не предусмотрел некорректный ввод каких либо значений или что.
 

Вложения

  • 10_and_13_Sybbols_Replacer.rar
    11.3 КБ · Просмотры: 357
IndexSeparator
http://news.xss.pro/ind_sep.gif
IndexSeparator - универсальная программа для работы со списками.
Основные функции:
- замена разделителя в списках
- удаление какого либо элемента списка
- обмен местами элеменов списка (свитч)
Работать умеет с большими файлами, хотя подвесить софт все равно можно.
Для Вашего удобства прикручен бар. Пока он работает - прога еще в действии.
Подробности далее[New$paN]:
Ну и для особо одаренных, которые так и не поняли зачем это надо, приведу пример:
Домустим есть список UIN-mail@mail.ru-pass скажем 6000 подобных строк. А для вашего любимого ICQ флудера требуется список вида UIN;pass. Готовим прогу к работе: вписываем файлы для обработки. Колличество индексов - кол-во элементов списка (в примере их 3). Сепаратор индекса - символ, разделяющий элементы списка. В примере "-". Конвертируем сепаратор в: ставим ";" без кавычек. Ну и оставляем индексы 1 и 3. Следовательно, в первую ячейку пишем 1, а во вторую - 3.
Если необходимо поменять местами элементы списка, то можно вписать например в первую 3, во вторую 2.
Внимание, если в строке недостаточно индексов, указанных в кол-ве индексов - прога вылетит.
На скриншоте видны настройки первого примера.
:zns5: Скачать|Download
 
простите за наглость, а сорсы мона ??? :о) а вдруг у тебя там какие-то хитрые алгоритмы :о) может быть плагиатом займусь... ну и для собственной коллекции сорсов...

И на чем пишемся ??? али секрет ???
 

IndexSeparator
Хорошая программа...
Winux респект!!!
 
Скачал Вашу прогу "IndexSeparator" запускаю её и в ответ "Ошибка при инициализации приложения (0хс0000135)..." Подскажите как исправить или скиньте мне рабочею версию на btc1@bk.ru.

P.S. Прога реально нужна и аналогов я пока не нашёл.
 
Чёрт
Ты бы рассказал по-больше про систему, что-ли!!!
Кто тя поймет чего не ботает...
 
, вопрос: каким цыклом пользовался в BrutAll
for или do loop??? просто интересно.
Пытался делать типа того же на ВБ6. долго очень млин.... Мож из-за того что ты на .NET делал....
 
aivus
А может быть ты ставишь верхнию границу больше чем позволяет тип данных что ты используешь... я не верю, что на 99 тысяч комп может зависнуть... это нереально просто... он в секунду обрабатывает миллион действий... а тут...
Проверь код, скорее всего что-то с кодом...
 
Lamer
Код: 
Private Sub generet_Click()
Dim str As Variant
Dim a As Variant
a = first.Text
Do While a < Val(second.Text)
    str = str & a & vbCrLf
    a = a + 1
Loop
MsgBox "Сгенерировано!", vbInformation, "Сделал!"
save.ShowSave
If save.FileName = "" Then Exit Sub
Open save.FileName For Append As #1
Print #1, str
Close
MsgBox "Сохранил!", vbInformation, "Теперь можно отдохнуть!"
End Sub

А это с For'ом
Код: 
Private Sub generet_Click()
Dim str As Variant
Dim a As Variant
For a = first.Text To second.Text

str = str & a & vbCrLf

Next
MsgBox "Сгенерировано!", vbInformation, "Сделал!"
save.ShowSave
If save.FileName = "" Then Exit Sub
Open save.FileName For Append As #1
Print #1, str
Close
MsgBox "Сохранил!", vbInformation, "Теперь можно отдохнуть!"
End Sub

З.Ы. Я на всякий пожарный поставил Variant ХЗ
Если где-то я и ошибся.... :sorry: Просто давно не программил на ВБ6.


ОФФТОП: а так у меня есть проги http://aivus.jino-net.ru/
если кому-то интересно...
 
admin


Напишите ответ...
  • Вставить:
Прикрепить файлы
Верх