Play Conway's Game of Life At http://babak.pw.
There Are Simple Rules Running In Simple 2d universe and create awesome cultures.
Rules Are :
Any live cell with fewer than two live neighbours dies, as if caused by under-population.
Any live cell with two or three live neighbours lives on to the next generation.
Any live cell with more than three live neighbours dies, as if by overcrowding.
Any dead cell with exactly three live neighbours becomes a live cell, as if by reproduction.
More Info: http://en.wikipedia.org/wiki/Conway's_Game_of_Life
You can Start the world using texts numbers and everything else , also there is ability to share your state on twitter.
http://t.co/JNZ7YDMkor
http://babak.pw/GOL.aspx
Babak
#CSS #Jquery #CSS3 #conway #game #life #game of life #conway game of life #culture #grow #universe #2d #share #twitter #Online #free #save #state
5/16/2014 12:07:51 PM
Simple ASP Page To Change HmailServer Password For Clients
<%
On Error resume next
if request("Do")="Error" then
Select Case Request("Type")
case "Account"
%>
<html><head><title>Password Change</title></head><body><p>Bad Account</p> <p><a href='?' >Back</a></p></body></html>
<%
case "Change"
%>
<html><head><title>Password Change</title></head><body><p>Can't Change</p> <p><a href='?' >Back</a></p></body></html>
<%
Case "Password"
%>
<html><head><title>Password Change</title></head><body><p>Bad Password</p> <p><a href='?' >Back</a></p></body></html>
<%
Case "Confirm"
%>
<html><head><title>Password Change</title></head><body><p>Password Confirmation Issue</p> <p><a href='?' >Back</a></p></body></html>
<%
case else
%>
<html><head><title>Password Change</title></head><body><p>Unknown Error</p> <p><a href='?' >Back</a></p></body></html>
<%
end select
response.End
end if
if request("Do")="ChangePassword" then
Dim obApp
Set obApp = CreateObject("hMailServer.Application")
Call obApp.Authenticate(request("Email"), request("OldPassword"))
if err.number<>0 then
response.Redirect("?Do=Error&Type=Password")
response.End
end if
Dim obDomain
Set obDomain = obApp.Domains.ItemByName(Split(request("Email"),"@")(1))
if err.number<>0 then
' response.Write err.Description
response.Redirect("?Do=Error&Type=Password")
response.End
end if
if trim(Request("PasswordConf"))<>"" and Request("PasswordConf")=Request("Password")then
Dim obAccount
Set obAccount = obDomain.Accounts.ItemByAddress(request("Email"))
if err.number<>0 then
response.Redirect("?Do=Error&Type=Account")
response.End
end if
obAccount.Password=Request("Password")
obAccount.Save
if err.number<>0 then
response.Redirect("?Do=Error&Type=Change")
response.End
end if
Response.Write ("<html><head><title>Password Changed</title></head><body><p>Password Changed</p> <p><a href='?' >Back</a></p></body></html>")
Response.End ()
else
response.Redirect("?Do=Error&Type=Confirm")
response.End
end if
end if
%>
<!DOCTYPE html>
<html>
<head>
<title>Change Password </title>
<style type="text/css">
/*************************************************/
/*By Babak */
.SimpleTable
{
padding-left: auto;
padding-right: auto;
margin-left: auto;
margin-right: auto;
border: solid thin black;
border-collapse: collapse;
}
.SimpleTable th, .SimpleTable thead
{
font-size: 14px;
background-color: #882222;
color: #AAAA22;
}
.SimpleTable th, .SimpleTable td
{
text-align: center;
border: solid thin black;
padding: 1px 10px 1px 10px;
margin: 0px 0px 0px 0px;
}</style>
</head>
<body>
<form action="?Do=ChangePassword" method="post">
<table class=SimpleTable>
<tr>
<th colspan="2">
Change Password
</th>
</tr>
<tr>
<th>
Email
</th>
<td>
<input name="Email" type="Email" />
</td>
</tr>
<tr>
<th>
Old Password
</th>
<td>
<input name="OldPassword" type="password" />
</td>
</tr>
<tr>
<th>
New Password
</th>
<td>
<input name="Password" type="password" />
</td>
</tr>
<tr>
<th>
New Password (Confirm)
</th>
<td>
<input name="PasswordConf" type="password" />
</td>
</tr>
<tr>
<td colspan="2">
<input type="submit" />
</td>
</tr>
</table>
</form>
</body>
</html>
Some Steps Needed To Permit ASP to Use HmailServer Com Class:
Steps
Follow these steps to give IIS or Apache the required permissions to connect to hMailServer using DCOM.
Start DCOM config by selecting Start, Run, enter dcomcnfg.exe and press OK.
In the Component Services program, expand the Component Services folder
Expand down to Computers | My Computer | DCOM Config
Right-click on hMailServer and select properties
Select the Security tab
Under "Launch and Activation Permissions", select Customize and click on Edit
Under "Group or user names", click Add
For IIS6: add the built-in anonymous IIS user account
For Apache: add the Apache user account
Set the Local Launch and Local Activation permissions for this user to Allow
* Italic Content From https://www.hmailserver.com/documentation/v5.3/index.php?page=howto_dcom_permissions
Babak
#free #Server #hmail #hmailServer #Config #Script #ASP #Programming #VB #Visual Basic #Server Admin #Admin #Tools #password #Change Password
12/31/2014 10:18:35 AM
View Internet Explorer 11 Cookies Using Powershell With simple script:
you can run the script below view your cookies without need to run applications so you'll be sure about malware and viruses in application.
soon I'll create the cookie manager script
Tested on Windows 8.1 with IE11
dir "$([Environment]::GetFolderPath("Cookies"))\low" | %{
$str=(cat $_.fullname);
$q=New-Object "System.Collections.Generic.Queue[string]"
$str|%{$q.Enqueue($_)}
while($q.Count -gt 0 ){
New-Object psobject -Property (@{
Name=$q.Dequeue();
Value=$q.Dequeue();
Domain=$q.Dequeue();
Flags=$q.Dequeue();
Expire= [System.DateTime]::FromFileTime([long]$q.Dequeue()+[long]$q.Dequeue()*[math]::pow(2,32)) ;
Creation= [System.DateTime]::FromFileTime([long]$q.Dequeue()+[long]$q.Dequeue()*[math]::pow(2,32)) ;
Delim=$q.Dequeue();
Filename=$_.Name;
}
)
}
} | Out-GridView
Babak
#Powershell #File #safe #Script #Windows #IE #IE11 #InternetExplorer #Source #Cookie #Cookies #View Cookies #GridView #Parse #Parse Cookie #Parse Cookie Files #Browse #free #Generic #Collections #Queue #GenericQueue
7/5/2015 8:48:50 AM