[Помогите!] Сортировка паролй

[xRedBullkax]

На сервере стоит ограничение, 10+ символов логин и 10+ символов пароль, есть ли программа для сортировки таких паролей?
где то на жуке видел давно

[xVanHelsingx]

В етой проге есть такая функция ArxParsing - Генератор словарей

[Excellent18rus]

там так не получится сделать... там лишь длину строки можно...
но если ставить строку больше 20 типа акк -10, пас 10 , то пароль может быть из 12, логин из 8

Вот это тебе надо

[xVanHelsingx]

А можна сначала розделить а потом отдельно пройтись по логинам и паролям!!!!

[Excellent18rus]

а потом связки обратно не соберешь...
т.к везде разное кол-во удалится...

[WhiteForge]

Сортировка Базы с помощью Excel
Загружаем базу, которую будем сортировать, делим соответсвенно там на 2 столбика
Логин|Пасс

1 Вариант (дольше чем второй, но делается в пару кликов)

Допустим тебе нужно удалить аккаунты, длина символов которых более 10
Макрос создается во вкладке - Вид -> Макрос (впиши ченеть типа 34456, патом создать, откроется VB редактор, макросы вставляем через CTRL+V, CTRL+C, причем полностью заменяя весь текст который там есть (стандартный sub и т д).
Макрос:

Sub delete1()
Dim x As Worksheet
Dim a As Long

For Each x In ActiveWorkbook.Worksheets
If x.Visible = xlSheetVisible Then
a = x.UsedRange.Row
For a = x.UsedRange.Rows.Count + a - 1 To a Step -1
If Len(x.Cells(a, 1)) > 10 Then x.Rows(a).Delete
Next a
End If
Next x
End Sub

Параметры этого макроса:
> - знак больше (<, >, <>, <=, >=)
10 - число символов
Cells(a, 1) - число 1 (ключевая колонка, столбец 1)

2 Вариант (самый быстрый, для людей которые соображают че делают xD )

В третий столбец вставляем формулу: =ДЛСТР(RC[-2]) или =ДЛСТР(A1), либо вставляем формулу =ДЛСТР(), ставим курсор между скобок и указываем на первую ячейку ключевого столбца (A1 тотже) и автоматически определит (у меня офис не активирован, поэтому RC всякие )

У нас там должно появиться число - это длина символов (Растягиваем формулу вниз, до конца или до куда вам нужно )

Получаем в каждой ячейке по числу.

Теперь немного модифицируем наш верхний макрос до такого вида:

Sub delete2()
Dim x As Worksheet
Dim a As Long

For Each x In ActiveWorkbook.Worksheets
If x.Visible = xlSheetVisible Then
a = x.UsedRange.Row
For a = x.UsedRange.Rows.Count + a - 1 To a Step -1

If x.Cells(a, 3) > 10 Then x.Rows(a).Delete
Next a
End If
Next x
End Sub

Запускаем, ждём немного и получаем результат.
Параметры теже самые

Мини статью накалякал сам, макросы написал тоже сам
Если помог, поставь Спасибо =)