Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl
# The above line may need to be changed to point at your version of Perl
#
# This script attempts to find malicious files/scripts on your machine.
# It specifically looks for spambots that we're aware of, as well
# as "suspicious" constructs in various scripting languages.
#
# Normally it should be run as root.
#
# By default, findbot.pl scans the directories /tmp, /usr/tmp, /home and
/**
*
* Generate v4 UUID
*
* Version 4 UUIDs are pseudo-random.
*/
function uuid() {
return sprintf('%04x%04x-%04x-%04x-%04x-%04x%04x%04x',
// 32 bits for "time_low"
{
// The tab key will cycle through the settings when first created
// Visit http://wbond.net/sublime_packages/sftp/settings for help
// sftp, ftp or ftps
"type": "sftp",
"sync_down_on_open": true,
"sync_same_age": true,
@hmkz
hmkz / convert_datetime.py
Last active December 28, 2015 20:19
年月日,時分秒など日本語で書かれた日付をyyyy-MM-DD HH:mm:ssに変換する。
#!/usr/bin/env python
# -*- encoding: utf8 -*-
import re
date_jpn = "2013年11月7日 08時43分52秒"
r = re.compile("(.*)年(.*)月(.*)日 (.*)時(.*)分(.*)秒")
# 抽出した値はタプルになっているので、タプルを配列に変換
dt = list(r.search(date_jpn).groups())
@hmkz
hmkz / qmail-local-datetime.patch
Created November 18, 2013 02:04
qmail-toaster
--- date822fmt.c~ 1998-06-15 19:53:16.000000000 +0900
+++ date822fmt.c 2010-11-17 15:10:07.000000000 +0900
@@ -1,3 +1,4 @@
+#include <time.h>
#include "datetime.h"
#include "fmt.h"
#include "date822fmt.h"
@@ -12,18 +13,52 @@
{
unsigned int i;
@hmkz
hmkz / cpbackup.pl
Created November 18, 2013 00:09
個別cPanel アカウントのバックアップおよびリストア 参考URL:http://wiki.r1soft.com/pages/viewpage.action?pageId=22196106
#!/usr/bin/perl
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
<?php
/**
* Gmail経由でメール送信
* 要Pear::Mail
* @param string $to 送信先
* @param string $from 送信元
* @param string $bcc BCC
* @param string $subj 件名
* @param string $body メール本文
* @return bool trueでメール送信完了
This file has been truncated, but you can view the full file.
'use strict';
var COMPILED = !0, goog = goog || {};
goog.global = this;
goog.DEBUG = !1;
goog.LOCALE = "en";
goog.provide = function (a) {
if (!COMPILED) {
if (goog.isProvided_(a))
throw Error('Namespace "' + a + '" already declared.');
delete goog.implicitNamespaces_[a];