PolekoZ

PolekoZ

а что тут
Пикабушник
Дата рождения: 5 сентября
45К рейтинг 15 подписчиков 37 подписок 72 поста 15 в горячем
Награды:
Пикабу 16 лет! За поиск настоящего сокровища 5 лет на ПикабуС Днем рождения, Пикабу! За МегаВнимательность За победу над кибермошенниками За исследование параллельных миров За подвиги в Мире PlayStation 5
41

Виктор Садовничий и обоснование храма Кирилла и Мефодия

Зашёл тут на сайт планирующегося храма при МГУ в поисках тех, кто ратует за его строительство. Самое первое - сам ректор.

Вместе с братом они ввели ту письменность, которую мы сегодня используем в общении

Тем временем, глаголица

Кириллицу, по некоторым данным, придумал потом то ли его ученик Климент Охридский сам, то ли ему Кирилл помогал - остаётся вопросом.

Показать полностью 1

Мегафон, ну ****!

Вот пукнуть даже несекьюрно нельзя, сразу впихнёт рекламу. У человека какой-то супер-вип тариф, но даже ему они напихают хуёв рекламы там, где её быть не должно в принципе.

P.S. Усманов, может хватит так явно подлизывать Светлейшему?

Показать полностью 2
2

Кэшбэк на переводы с карты на карту, налетай!

В рекламе на ютубе крутится вот такое видео. Кэшбэк 30% на переводы с карты на карту! Как же мне повезло, сейчас я нахаляву обогачусь! Спасибо, letyshops! Ой, я имел в виду... iltycheps? Неважно! Вбиваю данные одной карты (с генератора карт, естественно), другой карты, и получаю.

Чёрт, надо, наверное, было вбивать реальные данные! Тогда бы точно разбогател!

А теперь серьёзно. Что можно сделать: нажаловаться на видео в ютуб (мошенничество), сообщить в гугл о фишинговом сайте. Сайт у них хостится на core-vps.lv, единственная почта на сайте - support@core-vps.lv, туда я тоже написал (но никто не мешает вам сделать то же самое).

Хотел ещё засрать им базу левыми картами, но у меня лапки не хватает времени, если кто захочет - валидность карты у них проверяется только по номеру.

function valid_credit_card(value) {
if (/[^0-9-\s]+/.test(value)) return false;
let nCheck = 0, bEven = false;
value = value.replace(/\D/g, "");
for (var n = value.length - 1; n >= 0; n--) {
var cDigit = value.charAt(n),
nDigit = parseInt(cDigit, 10);
if (bEven && (nDigit *= 2) > 9) nDigit -= 9;
nCheck += nDigit;
bEven = !bEven;
}
return (nCheck % 10) == 0;
}

Показать полностью 1
83

VBA Excel - вывести формулы в ячейки

Была задача по переносу вычислений из экселя. Чтобы не лезть и не смотреть формулу в каждой ячейке я написал небольшой макрос, который их выводит.

Ниже выделенного диапазона на 10 строк выводятся все формулы и значения из заполненных ячеек.

Получается вот такая штука, которую гораздо проще разобрать и перенести

VBA Excel - вывести формулы в ячейки

Сам макрос:

Sub DrawFormulas()
For Each Cell In Selection
CellFormula = Cell.Formula
If Left(CellFormula, 1) <> "=" Then CellFormula = "=" + CellFormula
If Trim(CellFormula) <> "=" Then Cell.Offset(Selection.Rows.Count + 10).Value = Cell.Address + CellFormula
Next
End Sub

Отличная работа, все прочитано!