praswicaksono

# Database setup. The driver can be either 'sqlite', 'mysql' or 'postgres'.
#
# For SQLite, only the databasename is required. However, MySQL and PostgreSQL
# also require 'username', 'password', and optionally 'host' ( and 'port' ) if the database
# server is not on the same host as the web server.
#
# If you're trying out Bolt, just keep it set to SQLite for now.
database:
    driver: mysql
    databasename: mysqldb

praswicaksono

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim s As Integer = 0
        Dim i As Integer = 1
        Dim prod As Integer = 12525 'WinCHM
        ' Dim prod As Integer = 10010 'CHMTOPDF
        ' Dim prod As Integer = 9958

        Dim f As Integer = prod
        Dim sb As New StringBuilder()

praswicaksono

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim code1 As Int64
        Dim code2 As Int64

        code1 = multiply(i, &H4E09C7)
        code2 = multiply(i, &H7F2819)

        i = i + &HD

        TextBox1.Text = code1.ToString()

praswicaksono

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim count As Integer = rand.Next(4, 9)

        Dim part1 As String = genRamdomString(count)

        TextBox1.Text = count.ToString() & part1 & doMD5(part1)

    End Sub

praswicaksono

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim part1 As String = genRandomString(4)
        Dim part2 As String = genRandomString(4)

        Dim sha As String = doSHA512(part1 & part2)

        sha = part1 & part2 & sha
        Dim part3 As String = sha(32) & sha(33) & sha(34) & sha(35)
        Dim part4 As String = sha(92) & sha(93) & sha(94) & sha(95)

praswicaksono

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim year As String = Now.Year - 2000

        Dim month As String
        If (Now.Month > 10) Then
            month = Now.Month
        Else
            month = "0" & Now.Month
        End If

praswicaksono

<?php

Class Keygen {

	private $serial;

	private function randChar($length = 8) {
	     $characters = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
	     $string = '';
	     for ($p = 0; $p < $length; $p++) {

praswicaksono

package main

import (
	"fmt"
	"github.com/ChimeraCoder/anaconda"
	"net/url"
	"encoding/csv"
	"os"
)

praswicaksono

package main

import (
	"fmt"
	"math/rand"
	"time"
)

func random(min, max int) int {
	rand.Seed(time.Now().UnixNano())

praswicaksono

class Database
{
    /**
     * @var \PDO
     */
    protected static $conn;

    /**
     * @return \PDO
     */