| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Все возможные замены символов в пароле: [D7]

shebe91 ©   (2010-11-12 21:28:00) 

привет всем!
нужен код, который при наличии букв и их замен в данном слове сделает все возможные замены, т.е.
слово - кошка; замены - о0, а@, ш*
к0шка, кошк@, к0шк@, ко*ка, к0*ка, ко*к@, к0*к@

---

KSergey   (2010-11-19 15:16:00) [1]

function CatToAbrakadabra(const s_in: String): String;
var
 i: Integer;
begin
 Result := s_in;
 for i := 1 to Length(Result) do
   begin
     case Result[i] of
       'о': Result[i] := 'О';
       'а': Result[i] := '@';
       'ш': Result[i] := '*';
     end;
   end;
end;

---

Amoeba_   (2010-11-13 00:32:00) [2]

http://www.delphikingdom.com/notice/putinfo.asp?CategoryID=7

---

Наверх