Лингрин :: Резиденция Линды Кайе — Дайри (бывший Diary.ru)

суббота, 03 января 2009

12:54

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3082-10-42
#original-date: 2.01.2009 Fri
#original-time: 10:42 AM
#original-day: 3082
#original-host: WinXP Prof SP2 (Build 2600)

Новая цитата — #3317
Full Kernel Panic - новое аниме про линуксоеда, работающего под прикрытием в японской старшей школе)
на протяжении всего сюжета главный герой сталкивается с главной проблемой: "как пропатчить КДЕ2 под фриБСД?"
жанр: шонен, романтика, хентай с ОС Линукс

URL

12:53

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3082-09-23
#original-date: 2.01.2009 Fri
#original-time: 9:23 AM
#original-day: 3082
#original-host: WinXP Prof SP2 (Build 2600)

Хммм... А что, исходники Semagic не открыты?

О! Нашла. Но ссылка почему-то была не на SF, а в ЖЖ... Ага, а там 404...

URL

12:53

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3082-09-19
#original-date: 2.01.2009 Fri
#original-time: 9:19 AM
#original-day: 3082
#original-host: WinXP Prof SP2 (Build 2600)

Интересный контрол, работает как WebBrowser Control, но на самом деле это Геко ^^

http://www.iol.ie/~locka/mozilla/control.htm

URL

12:53

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3082-09-04
#original-date: 2.01.2009 Fri
#original-time: 9:04 AM
#original-day: 3082
#original-host: WinXP Prof SP2 (Build 2600)

Mail.ru снова решил повыкаблучиваться...

>>> Connecting to "pop.mail.ru" [2.01.2009 8:54:12 AM] <<<
-ERR Domain for 194.67.23.69:110 not found
USER lindakaioh

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

А ещё как-то настроражиает второе пропадение Инета ночью за последнее время. При чём утром, часов в восемь он появляется.

URL

12:53

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3082-05-35
#original-date: 2.01.2009 Fri
#original-time: 5:35 AM
#original-day: 3082
#original-host: WinXP Prof SP2 (Build 2600)

Терпеть не могу когда кто-нибудь живущиё в западной части нашей необъятной начинает названивать ночью. Нет, у них день, но им по барабану, что здесь ночь. При этом, если сделать тоже самое, то они будут долго психовать и орать. Мда.

URL

12:53

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3082-01-19
#original-date: 2.01.2009 Fri
#original-time: 1:19 AM
#original-day: 3082
#original-host: WinXP Prof SP2 (Build 2600)

Странный ост у Enthusia ~Professional Racing~. Вроде гонка, а музыка такая лёгкая, что аж не верится ^^ Например, та, что играет, похожа на очень лиричную версию Switch! из Initial D Battle Stage 2 ^^ Но мне нравится ^_^

#music: Masanori Akita\Enthusia ~Professional Racing~ Original Soundtrack (DISC 1)\Monochrome Roulette

URL

12:52

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3082-00-13
#original-date: 2.01.2009 Fri
#original-time: 12:13 AM
#original-day: 3082
#original-host: WinXP Prof SP2 (Build 2600)

Цунаде будет сильно орать, когда узнает что вместо того чтобы выяснить, где Звук, Джирая сотоварищи разнёс там всё ^^

А главный у фуумовцев похож на Джека Воробья ^^ И та дама в фиолетовом платье тоже оказалась нинзей ^^

Ээээ... А вот Сакуре пора завершить валяние дурака и начать равняться на бабульку ^^

Ну вот! Только подумала (см. прерыдущий абзац), а тут уже и Сакура пошла просить учёбы у бабульки ^^ Итак, круг замкнулся ^^ Саске - Орочимарик, Наруко - Джирая, Сакура - бабулька ^_^ А вот Какаши остался без учеников...

#video: Naruto - 141

URL

12:52

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-21-44
#original-date: 1.01.2009 Thu
#original-time: 9:44 PM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Выдала перл ^^

Вопреки народной мудрости, если бы у бабушки был член, она бы была футанарькой, а не дедушкой ^___^

#music: Need For Speed III: Hot Pursuit\ALPITECH

URL

12:52

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-21-36
#original-date: 1.01.2009 Thu
#original-time: 9:36 PM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Обажаю тумблеровцев вот за это на каждой странице:

                                              88           88              
      ,d                                      88           88              
      88                                      88           88              
    MM88MMM  88       88  88,dPYba,,adPYba,   88,dPPYba,   88  8b,dPPYba,  
      88     88       88  88P'   "88"    "8a  88P'    "8a  88  88P'   "Y8  
      88     88       88  88      88      88  88       d8  88  88          
      88,    "8a,   ,a88  88      88      88  88b,   ,a8"  88  88        888
      "Y888   `"YbbdP'Y8  88      88      88  8Y"Ybbd8"'   88  88        888

#music: Need For Speed III: Hot Pursuit\ATLATECH

URL

12:52

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-21-15
#original-date: 1.01.2009 Thu
#original-time: 9:15 PM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Странный Тумблер какой-то. Получаю XML с авторизацией, говорит, что постов 323. А выборки по X-Path выдают 350. Думала, что у меня глюк, но оказалось, что их действительно 350. Добавила ещё один пост - 351... Кажется он не учитывает приватные посты...

#music: Need For Speed III: Hot Pursuit\ALPIROCK

URL

12:52

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-09-57
#original-date: 1.01.2009 Thu
#original-time: 9:57 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Зря L.P.M. сомневался в необходимости оболочки для MSXML. Потихоньку развиваю свой XML Helper, и очень даже удобно, хотя ни чего особенно нового, кроме автоматизации некоторых вещей, не привносит ^^

А! Я сейчас пишу важную утилиту - бэкапер для Тумблера. Так как там нет ни чего такого как на Дайриках, поэтому просто будем использовать стандартный API и получать XML постов ^^

Я это включу потом в клиент для Тумблера.

Тут я использую MSXML для парсинга даных, а в Onanie Stalker (утилита для загрузки картинок с одного блога) и стиралка блога использовали регулярные выражения ^^

#music: Lostprophets\Need For Speed: Underground\Ride

URL

12:52

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-06-04
#original-date: 1.01.2009 Thu
#original-time: 6:04 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

#435: А кофе не будет
97й.
Сеть на коаксиале, одноранговая.
Я - сэйлз в небольшой конторе, по совместительству адский админ.

Суббота, 10 утра, тяжелое утро, звонок на домашний телефон. Бухгалтерия бьется в истерике: мы, кричат, специально вышли в субботу, а твоя программа (честно стыренный парус) не работает, вообще ничего не работает, во вторник НДС!

Кое-как собираюсь и добираюсь до работы, с порога обрушиваются крики и претензии, плач о том, как они уже устали меня ждать. Говорю, что сейчас, всё починим, вот только кофейку себе заварю, пять минут...
Бухгалтера отвечают гордо - ха, заварит он, с утра во всем здании света нет!

Читаю такие истории и хочу залезть под стол, спрятаться. Помните, это может случиться с каждым!

URL

12:51

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-04-36
#original-date: 1.01.2009 Thu
#original-time: 4:36 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

ООООООООО!!! ^__________________^

Новая цитата — #3308
Дед мороз: а теперь что надо сказать,чтобы елочка зажглась?
Анимешники: Катон! Гокакью но дзюцу!

И вот ещё ^_^

Новая цитата — #3302
nyash.org.ru/store/1230420651136.jpg
:3

URL

12:51

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-04-13
#original-date: 1.01.2009 Thu
#original-time: 4:13 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Вот так я встретила Новый год...

Option Explicit

'====================================================================
' Ксором перекодируем данные
'====================================================================
Private Sub FilterData(ByRef Src() As Byte, _
                       ByRef Key() As Byte, _
                       ByRef Dest() As Byte)
  Dim Len1 As Long
  Dim Len2 As Long
  Dim TMP1 As Long
  Dim UBKey As Long
  
  UBKey = UBound(Key) + 1
  ReDim Dest(0 To UBound(Src)) As Byte
  
  For TMP1 = 0 To UBound(Src)
    Len1 = TMP1 \ (UBKey)
    Len2 = TMP1 - Len1 * (UBKey)
    
    Dest(TMP1) = Src(TMP1) Xor Key(Len2)
  Next TMP1
End Sub

'====================================================================
Public Sub EncodeFile(ByVal SourceFileName As String, _
                      ByVal KeyFileName As String, _
                      ByVal DestinationFileName As String)
  Dim Src As String
  Dim Key As String
  Dim Dest As String
  
  On Error GoTo hError
  
  Src = modFSO.GetFile(SourceFileName)
  Key = modFSO.GetFile(KeyFileName)
  
  If Src = "" Then
    Dest = ""
  ElseIf Key = "" Then
    Err.Raise vbObjectError + 1, TypeName(Me), _
              "Ключевой файл имеет нулевую длину."
  Else
    Dest = EncodeString(Src, Key, False)
  End If
  
  modFSO.PutFile DestinationFileName, Dest
  Exit Sub
  
hError:
  Err.Raise Err.Number, Err.Source, Err.Description, _
            Err.HelpFile, Err.HelpContext
End Sub

'====================================================================
Public Function EncodeString(ByVal SourceString As String, _
                             ByVal KeyString As String, _
                             Optional ByVal Unicode As Boolean = False) As String
  If SourceString = "" Then
    EncodeString = ""
  ElseIf KeyString = "" Then
    Err.Raise vbObjectError + 2, TypeName(Me), _
              "Ключевая строка имеет нулевую длину."
  Else
    Dim Src() As Byte
    Dim Key() As Byte
    Dim Dest() As Byte
    
    If Unicode Then
      Src = SourceString
      Key = KeyString
    Else
      Src = StrConv(SourceString, vbFromUnicode)
      Key = StrConv(KeyString, vbFromUnicode)
    End If
    
    FilterData Src, Key, Dest
    
    If Unicode Then
      EncodeString = Dest
    Else
      EncodeString = StrConv(Dest, vbUnicode)
    End If
  End If
End Function

'====================================================================
Public Sub EncodeByteBuffer(ByRef SourceBuffer() As Byte, _
                            ByRef KeyBuffer() As Byte, _
                            ByRef DestinationBuffer() As Byte)
  Dim TMP As Long
  
  ' Здесь мы просто инициируем ошибки при неинициализированных
  ' массивах...
  TMP = UBound(SourceBuffer)
  TMP = UBound(KeyBuffer)
  
  If UBound(SourceBuffer) < 0 Then
    DestinationBuffer() = SourceBuffer()
  ElseIf UBound(KeyBuffer) < 0 Then
    Err.Raise vbObjectError + 3, TypeName(Me), _
              "Ключевой буфер имеет нулевую длину."
  Else
    FilterData SourceBuffer, KeyBuffer, DestinationBuffer
  End If
End Sub

modFSO.BAS:

Option Explicit

'====================================================================
Public Function GetFile(ByVal FileName As BStr) As BStr
  Dim hFile As API_HANDLE
  
  On Error GoTo hError
  
  hFile = FreeFile
  Open FileName For Binary Access Read As #hFile
    GetFile = String(LOF(hFile), 0)
    Get #hFile, , GetFile
  Close #hFile
  
  Exit Function
  
hError:
  Close #hFile
  Err.Raise Err.Number, Err.Source, Err.Description, _
            Err.HelpFile, Err.HelpContext
End Function

'====================================================================
Public Function PutFile(ByVal FileName As String, _
                        ByVal Data As String) As Boolean
  Dim hFile As VB_FILE_NUMBER
  
  On Error Resume Next
  
  Kill FileName
  
  On Error GoTo hError
  
  hFile = FreeFile
  Open FileName For Binary Access Write As #hFile
    Put #hFile, , Data
  Close #hFile
  
  PutFile = True
  Exit Function
  
hError:
  Close #hFile
  Err.Raise Err.Number, Err.Source, Err.Description, _
            Err.HelpFile, Err.HelpContext
End Function

Да, и ещё писала диски, много дисков ^^

URL

12:51

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-02-36
#original-date: 1.01.2009 Thu
#original-time: 2:36 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Приехали, что-то давление начало скакать...

Ээээ... О, что я хочу показать ^___^

URL

12:51

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-02-13
#original-date: 1.01.2009 Thu
#original-time: 2:13 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Вырубила привод - тишина подозрительная. Новый год перенесли чтоли? OO'

URL

12:51

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-02-04
#original-date: 1.01.2009 Thu
#original-time: 2:04 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Мой стол в своё время так затаскали по каждому поводу, что теперь он резонирует, стоит на него немного надавить (руку, скажем, положить). Учитывая, что у меня на столе машина и внешний привод, гудение раздражает неимоверно...

#music: Lostprophets\Need For Speed: Underground\Ride

URL

12:50

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-01-32
#original-date: 1.01.2009 Thu
#original-time: 1:32 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

О! До Venus 5 добралась ^____^ Скажу по секрету, что там есть богиня, которая косплеит маму Сейлормун (тобишь королеву Серенити), и она стала прообразом для мисс ДВ ^_^ В самом начале LCIWL это видно: нервная, чуть что - сразу молнией ^___^

URL

12:50

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-01-06
#original-date: 1.01.2009 Thu
#original-time: 1:06 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Wife Eater - хороший пример хентая, от которого экономией и урезанным бюджетом так и несёт, но всё равно каваййно ^^

#video: TSUMAMIGUI-Wife_Eater_vol.2

URL

12:50

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3081-00-50
#original-date: 1.01.2009 Thu
#original-time: 12:50 AM
#original-day: 3081
#original-host: WinXP Prof SP2 (Build 2600)

Новый год всего 50 минут, а меня уже задолбали >_< Нет, музыка не орёт (пока ещё), пьяные не носятся, но, блин, сколько можно бегать и предлагать мне покушать то, сё, третее, пятое? >_< Задолбали, не могу нормально хентай для записи сортировать! Хоть повесь на дверь табличку какую-нибудь!

#video: TSUMAMIGUI-Wife_Eater_vol.2

URL

Последние 1 …1120 …1140 …1160 …1166 1167 1168 1169 1170 …1180 …1200 …1624